Signatur in Email

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc] Sub mail_senden() Dim WSh As Worksheet Set WSh = ThisWorkbook.Sheets("Tabelle1") With CreateObject(Class:="Outlook.Application").CreateItem(0) .Getinspector .To = Range("C6").Value .Subject = Range("C7").Value .Body = Range("C9") & .Body ' For Each vntItem In avntAttachments ' Call .Attachments.Add(vntItem) ' Next .Display 'Anzeigen ' Call .Send 'direkt senden End With End Sub

Was du im Internet dazu findest, ist zu 99,9% veraltet, da es mit dem "neuen" Outlook (ab 2006?) nicht mehr funktioniert.
"htmlBody" enthält bereits die Standard-Signatur.
Guckst du hier:

Sub mail_senden()
Dim objOutlook As Object, objMail As Object
Dim olOldBody As String
Set objOutlook = CreateObject(Class:="Outlook.Application")
Dim Inhalt As String, Mail As String, Body As String, WahlSignatur As String, strSignatur
Mail = Range("C6")
Inhalt = Range("C7")
Body = Range("C9")
WahlSignatur = Range("C8")
Set objMail = objOutlook.CreateItem(0)
With objMail
.GetInspector.Display
olOldBody = .htmlBody
.To = Mail
.Subject = Inhalt
.htmlBody = Inhalt & olOldBody
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub

Signatur wählen kannst du nicht, höchstens das Konto, indem du direkt hinter die "With objMail"-Zeile

Set SendUsingAccount = .Session.Accounts.Item("Kontoname") ' Konto auswählen

einfügst.

With objMail .BodyFormat = 2 'olFormatHTML .GetInspector.Display 'Leer Mail mit Signatur olOldBody = .HtmlBody 'in Variable olOldBody die leer Mail mit Signatur abspreichern .To = Mail .Subject = Inhalt .HtmlBody = Body & olOldBody 'Hier wird die leere mail mit der Signatur an den neuen Body _ angehängt ' For Each vntItem In avntAttachments ' Call .Attachments.Add(vntItem) ' Next ' .Send 'direkt senden End With

Hallo Excel-Fan's
eine besondere Herausforderung seit Outlook 2013 ist, daß der Inhaber von mehreren Signaturen per Outlook-Oberfläche die Wunsch-Signatur einstellen kann, der vba-Programmierer damit aber ein riesiges Problem hat - denn seit diesem Zeitpunkt ist das CommandBar-Object für jeglichen Vba-Zugriff gesperrt und alle Vba-Lösungen vor O-2013 sind passé.
Ich habe an dieser Lösung rund ein halbes Jahr im I-Net gesucht aber immer nur Hilfesuche zum selben Thema gefunden, egal ob in deutschen oder engl./amerikanischen Foren.
Inzwischen ist für mich dieses Thema erledigt/gelöst und wer ein bißchen googelt, wird meine Lösung auch finden. Für ein aktuelles Projekt habe ich die Outlook-Signatur von Outlook entkoppelt und kann jetzt ganz entspannt per DropDown die gewünschte Signatur auswählen lassen und in die EMail per vba einfügen.
Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

61 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Signatur in Email

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

61 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread