Office: (Office 365) htmlBody nach Bild weiteren Text einfügen

Hallo zusammen,
hauptsätzlich bin ich im Excel Forum unterwegs.
Ich glaube aber mein jetziges Problem ist hier besser aufgehoben.
also
ich füge aus Excel ein Bereich, als Bild ein.

Code:

Dim olApp As Object
   Dim Signatur As String
   Dim sMailtext As String
    Set olApp = CreateObject("Outlook.Application") 
    With olApp.CreateItem(0)
        .GetInspector.Display
         Signatur = .htmlbody
        .GetInspector.Display
        .Recipients.Add "musterman@test.de" 'Empfänger
        .CC = "musterman1@test.de;s.Mustermann2@test.de" 'CC
        .Subject = "Änderungen der Schaltzeiten vom " & Date   'Betreff
    
        sMailtext = "<p style='font-family:calibri;font-size:11pt'>Hallo zusammen," & vbLf _
                  & "Anbei die Änderungen der Schaltzeiten </p>" & vbLf                                'Nachricht
                
       .htmlbody = Replace(sMailtext, vbLf, "<br>")
        
        With .GetInspector.WordEditor.Application.Selection
           .Start = Len(sMailtext): .End = Len(sMailtext)
           .Paste          ' Grafik in Mail einfügen
        
        End With   
        .ReadReceiptRequested = False
        'Lesebestätigung aus
        .Display
        'Zeigt E-Mail an, ohne zu senden

    End With
    Set olApp = Nothing

Das klappt super!
Nun will ich aber nach der Grafik noch ein Text einfügen. z.B "bei Fragen stehe ich gerne zur Verfügung"
Kann mir hierbei jemand helfen?
Gruß
Martin

 

Hallo Martin,
mit dem Sourcecode kannst Du nicht steuern, wann das Bild eingefügt wird. Du müsstest das Bild in den Code von sMailtext einbauen und hättest dann die Möglichkeit nachher noch zu formatieren. Lies mal das Bild aus Excel mittels VBA in Email einfügen

 

Hallo Andreas,
deine Nachricht habe ich erst jetzt gelesen, ist im Junkmail Ordner gelandet.
Diesen Beitrag kenne ich. Hatte gedacht das passt für mich nicht. Muss nämlich überlegen welchen Pfad ich nehme, denn die Datei wird von einem Rechner mit mehren User genutzt. ich brauche also ein Pfad auf dem jeder zugreifen kann.
Oder hast du da eine Idee?
Gruß
Martin

 

Hallo Martin,
es kommt darauf an, ob der Empfänger in der gleichen Organisation / Netzwerk ist oder ob es sich um externe Empfänger handelt. Für externe Empfänger geht das nicht, da muss man die Bilder einbetten. Im folgenden Link ist das in Antwort 1 beschrieben. Embed picture in outlook mail body excel vba

Gruß
Andreas