Emailsignatur über VBA/HTML wird als Fließtext eingefügt

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Emailsignatur über VBA/HTML wird als Fließtext eingefügt

Re: Emailsignatur über VBA/HTML wird als Fließtext eingefügt

Beitrag von mmarkus » 09. Nov 2018, 15:45

BloodyRulz hat geschrieben:Leider fügt es mir die Signatur als nicht formatierten Text hinzu.


Du musst die Signatur mit HTML Codierung formatieren.
Hier findest du was zu HTML Textformierung.

Emailsignatur über VBA/HTML wird als Fließtext eingefügt

Beitrag von BloodyRulz » 09. Nov 2018, 11:43

Hallo,

ich hoffe mir kann jemand helfen.
Ich habe ein Skript welches mir 2 Mails erstellt was auch funktioniert.
Leider fügt es mir die Signatur als nicht formatierten Text hinzu.
Ist es möglich HTML vor dem hinzufügen von der Signatur "auszuschalten"?
Wäre über Hilfe sehr Dankbar

Code: Alles auswählen
     Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xOutMsg As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
   xOutMail2.Display
    Signatur = xOutMail2.body
    Signatur = xOutMail.htmlbody
    MsgBox "Signatur1: " & Signatur
'    Signatur = xOutMsg
'    MsgBox "Signatur2: " & Signatur
    xOutMsg = "<p style='font-family:calibri;font-size:16'>Sehr geehrte Herren            <br/><br/>" & _
"Mailtext                      <br />"
    With xOutMail
        xOutMail.GetInspector.Display     ' sorgt für die Signatur????
        .To = Empfänger
        .CC = EmpfängerCC
        .BCC = ""
        .Subject = MailBetreff
        .htmlbody = xOutMsg & Signatur
        .Display
    End With
    Set xOutMail = Nothing
    Set xOutApp = Nothing
'End If


Danke im Voraus
Gruß
Andreas

Nach oben