Mail erstellen, aber anderer Absender
11.03.2024 15:56:08
daniel
mit folgenden Code erzeuge ich eine Mail, die dann auch direkt versendet werden soll:
Sub MailVersand()
Dim objOutLook As Object
Dim objMail As Object
Set objOutLook = CreateObject("Outlook.Application")
Set objMail = objOutLook.createitem(0)
With objMail
.To = "empfänger@xxx.com"
.Subject = "abc"
.Body = "Hallo Welt"
.Display '.Send
End With
End Subdas funktioniert auch so weit.
allerdings soll als Absender nicht meine eigene Mailadresse verwendet werden, sondern die Adresse einer MBox, in welcher ich Mitglied bin.
Wie kann ich hier per Code diese MBox-Adresse als Absender einstellen, so dass ich die Mail direkt versenden kann.
Gruß Daniel
Anzeige