"Alias" Mail senden über Office 365

  • VB.NET

    "Alias" Mail senden über Office 365

    Hallo,

    ich sende über Office 365 Mails mit dem Code hier unten. Dieses funktioniert so weit gut.
    Ich will aber über "Alias" bzw. "Von", über eine andere Mail Adresse Mails versenden.
    Es wird nur von der "ersten" Mail versendet.
    Ich kann über das item ".SentOnBehalfOfName" die zweite Mail Adresse setzten, aber aus dieser wird die gewünschte Mail nicht gesendet.

    Hier ein Beispiel:



    Hat jemand eine Idee wie es gehen könnte?

    Danke :)

    VB.NET-Quellcode

    1. Try
    3. Dim objOutlookMsg As Object = CreateObject("Outlook.Application").CreateItem(0)
    5. '--- Zusammenbasteln der Mail ---
    6. With objOutlookMsg
    7. .To = Empfaenger
    8. .Importance = 1
    9. .Subject = Betreff
    10. .HTMLBody = BodyText
    11. .Save()
    12. .Display() ' Display() zeigt die neue Nachricht
    13. '.Send() 'sendet direkt
    14. End With
    16. '--- Objekte zerstören ---
    17. objOutlookMsg = Nothing
    19. Catch ex As Exception
    21. '--- Fehler abfangen falls kein Outlook installiert ist ---
    22. '----------------------------------------------------------
    24. End Try

Facebook
Telefonspende