Office: Signatur per VBA einfügen

ebs17 · 14. Juni 2009

nach dem BODY-Tag meinen Text einfügen ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich muss mich korrigieren (irgendwie war ich auf den schließenden Tag fixiert): Also ja. der Text wäre innerhalb der BODY-Tags einzufügen, eine Signatur üblicherweise im letzten Teil.

Ich bins · 15. Juni 2009

Guten Abend,

ich habe es so gelöst, dass ich zuerst per .Display mir eine neue leere Mail anzeigen lasse, mit Y = .HTMLBody mir die Signatur in die Variabe Y einlese, dann den Mailinhalt auch als Variable M1 zusammen mit Y wieder bei .HTMLBody einfüge. MS-Office 2003.
(Codeschnipsel ist an manchen Stellen gekürzt. Hoffe es ist auch so verständlich)

Code:

Dim Y As Variant
Dim olApp As Outlook.Application
Dim objMailItem As MailItem
Set olApp = Outlook.Application

Set objMailItem = olApp.CreateItem(olMailItem)

With objMailItem
.To = Ds2!Email
.Subject = "Ihr Einsatzplan vom " & KWE & " bis " & KWE + 6
M1 = "Sehr geehrter Herr " & Ds2!Ressourcenname & ","
M1 = M1 & " hier ist Ihr Einsatzplan für die Woche " & KW & " vom " & KWE & " bis " & KWE + 6 & " "
BodyFormat = olFormatHTML
.Display
Y = .HTMLBody ' Sichere die vorhandene Signatur und füge sie unten wieder an!!!
.HTMLBody = "<html><body><o:p></o:p>" & M1 & Y & "" & "</body></html>"

End With
Set olApp = Nothing
Set objMailItem = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Irgendwie hat es den Code verhauen. Habs schon lange nicht mehr gemacht :)
Hier nochmals die richtige Zeile:

.HTMLBody = "<html><body><o:p></o:p>" & M1 & Y & "" & "</body></html>"

User · 15. Juni 2009

Hallo,

ich stand gestern vor dem gleichen Problem und habe diesen Task zur Hilfe herangezogen und mein Problem gelöst, dafür ersteinmal vielen Dank.

Das einzige, das ich anders gemacht habe ist, dass ich VOR dem Einstellen von .bodyformat = olFormatHTML die Zeile mit .bodyHTML = MailText & .bodyHTML gesetzt habe, also wie folgt:

Code:

...
Set oItem = objOutlook.CreateItem(olMailItem)
With oItem
.Display
.HTMLBody = MailText & .HTMLBody
.BodyFormat = olFormatHTML
.Subject = Betreff
.Categories = Kategorie
.To = Empfänger
end with
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe es auch ausprobiert, wenn Outlook neue Mail im "RTF" Format oder "nur Text" erstellt, dann natürlich nicht mit schönen Bildchen etc. *wink.gif*

Ich verwende Vista und Access 2007.

Office: Signatur per VBA einfügen

Signatur per VBA einfügen

Signatur per VBA einfügen

Signatur per VBA einfügen - Similar Threads - Signatur VBA einfügen

Signatur in neuer Nachricht

Signatur legt Postfach lahm

Outlook Signaturen fehlen nach update

Outlook unterschiedliche Signaturen bei gleichem Konto

Signatur in htm mit CheckBoxen

Outlook Signatur in Mail

Signatur mit Rahmen