Guten Tag,
wir benutzen folgendes Makro um bei Bedarf im Postausgang die Absender-Emailadresse zu ändern. Seit Office 2016 funktioniert es nicht mehr.
Public Sub AbsenderAendern()
Dim olNs As Outlook.NameSpace
Dim olOutbox As Outlook.MAPIFolder
Dim olItem As Object
Dim olEmail As Outlook.MailItem
Set olNs = GetNamespace("MAPI")
Set olOutbox = olNs.GetDefaultFolder(olFolderOutbox)
For Each olItem In olOutbox.Items
If olItem.Class = olMail Then
Set olEmail = olItem
With olEmail
.SentOnBehalfOfName = "platzhalter@test.de"
.Save
.Send
End With
End If
Next
End Sub
Zur Umgebung: Exchange, Office 2016 auf einem Terminalserver 2012R2. Vorher lief das Makro lokal auf Office 2010/13 mit dem selben Exchangeserver. Manuelles Ändern und Absenden mit der gewünschten Adresse funktioniert.
Das Makro funktioniert in Office 2010 und 2013. In 2016 wird das Makro ohne Fehler ausgeführt, aber es ändert nicht den Absender.
MfG
