Bild Anhänge in Mailbody einfügen

Moderator: ModerationP

Bild Anhänge in Mailbody einfügen

Beitragvon Goof2018 » 28. Jun 2018, 07:36

Hallo zusammen,

ich bekomme oft Mails mit Bildanhänge. Diese Bilder würde ich gerne per VBA am Ende in den Body einfügen.


Soweit habe ich das:

Code: Alles auswählen
Public Sub Bild_in_Body_Einfuegen()
    Dim objMail As MailItem
    Dim intAnlagen As Integer, i As Integer
    On Error Resume Next
   
    'Schleife
    For Each objMail In Outlook.ActiveExplorer.Selection
    With objMail
    'Mails auf vorh. Anlagen prüfen
    intAnlagen = .Attachments.count
    If intAnlagen > 0 Then
    For i = 1 To intAnlagen
        If Right(.Attachments.Item(i).DisplayName, 3) = "jpg" Or _
           Right(.Attachments.Item(i).DisplayName, 3) = "png" Or _
          Right(.Attachments.Item(i).DisplayName, 3) = "gif" Then
         
          '.Attachments.Item(i).FileName
       
        End If
    Next i
    End If
    End With
    Next objMail
End Sub


Wie bekomme ich aber die Bilder eingefügt?

Vielen Dank für Eure Hilfe
Goof
Goof2018
 

Re: Bild Anhänge in Mailbody einfügen

Beitragvon DerHoepp » 28. Jun 2018, 10:15

Hallo Goof,

hier stehts wie's geht: https://excel-macro.tutorialhorizon.com/excel-vba-send-mail-with-embedded-image-in-message-body-from-ms-outlook-using-excel/
Du musst letztlich nur im HTML-IMG-Tag die cid des Anhangs als src angeben.

Viele Grüße
derHöpp
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8910
Registriert: 14. Mai 2013, 11:08

Re: Bild Anhänge in Mailbody einfügen

Beitragvon Goof2018 » 28. Jun 2018, 10:50

Hallo derHöpp,

vielen Dank. Es funktioniert.

Goof
Goof2018
 


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste