Absender-Namen ändern
30.09.2008 14:55:00
Jürgen
ich generiere per VBA ausgehende EMails, die dann via Outlook versendet werden.
Leider ist es mir bisher nicht gelungen, als Absender unser Postfach anstelle meines eigenen Absenders einzutragen. Egal was ich versuche, der Absender ist stets "juergen.vanradecke@firma.com" und nicht &Postfachname bzw. aufgelöst Funktion.Postfachname@firma.com. Es werden Exchange-Server eingesetzt.
Beim Googeln hier nach ist oft zu lesen, daß sei generell nicht möglich, wenn man keinen Exchange-Server einsetzt - das tun wir aber. Wenn ich manuell eine EMail versende, kann ich in Outlook auch problemlos das "VON:" auf jedes beliebige Postfach ändern, bei dem ich eine Versandberechtigung habe.
Wie realisiere ich dies per VBA?
Folgenden (gekürzten, nur das wesentliche) Code verwende ich:
Dim olApp As Object
Dim olMailItem As Object
Set olApp = CreateObject("Outlook.Application")
Set olMailItem = olApp.CreateItem(0)
With olMailItem
´Diverse Abfragen und Sortierungen nach Mailempfänger..
.Recipients.Add "dummy541@firma.com"
.Recipients.Add "Funktion.tech_errorqueue@firma.com"
.CC = "juergen.vanradecke@firma.com"
.ReplyRecipientNames = "juergen.vanradecke@firma.com"
.subject = MSsubject
.Importance = Wichtigkeit
.htmlbody = MSbody
.ReadReceiptRequested = False
.Send
End With
Set olMailItem = Nothing
Set olApp = Nothing
Danke & Gruß, Jürgen