Email mit Signatur versenden

  • Excel

    Email mit Signatur versenden

    Hallöchen zusammen,

    inzwischen habe ich mehrere Lösungsansätze für eine automatische Emailgenerierung gefunden, habe hier aber diverse Probleme.
    Ich stelle die Variante kurz vor.

    Variante 1:

    Visual Basic-Quellcode

    1. Sub Mailsenden(ByRef GD() As String, ByRef BSD() As String)
    2. Dim olApp As Object, objMail As Object
    3. Set olApp = CreateObject("Outlook.Application")
    4. Set objMail = olApp.CreateItem(0)
    5. With objMail
    6. .GetInspector ' sorgt für die Signatur
    7. .To = BSD(2)
    8. .Subject = "Ich bin ein Betreff"
    9. .Body = "Ich bin der Body" & .Body
    10. .Send
    11. End With
    12. Set objMail = Nothing
    13. Set olApp = Nothing
    14. End Sub


    Problem:
    Diese Variante erstellt die Email korrekt, mit Signatur und Body, das Problem hierbei ist, dass sie die komplette Formatierung der Signatur zerschiesst und auch das enthaltene Logo nicht anzeigt. Dies liegt voraussichtlich daran, dass die E-Mail per Text und nicht als HTML versendet wird.

    Hat hier jemand Ahnung davon?

    Wäre cool wenn ihr mir helfen könntet =)

    *UPDATE*
    Habe die funktion .AsHTML probiert, diese funktioniert leider nicht =/
    *UPDATE*
    Funktion gefunden, heisst .HTMLBody ;)

    closed

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „manuelritter“ ()