Von-Feld per vba ausfüllen

[Olli]

Hallo,

ich möchte aus Excel heraus eine E-Mail verschicken.
Empfänger und cc-Empfänger eintragen, geht ohne Probleme. Nur das Von-Feld möchte irgendwie nicht ausgefüllt werden. Habt ihr da eine Idee?
Hier der Code bis jetzt:

Dim Mail1 As String
    adressemail1 = "[email protected]"
    If IsNull(adressemail1) Then
        
    Else
        Mail1 = adressemail1
        Dim olApp1 As Outlook.Application
        Dim objMail1 As MailItem
        Set olApp1 = Outlook.Application
        Set objMail1 = olApp1.CreateItem(olMailItem)
        With objMail1
           .BodyFormat = olFormatHTML
           
           .To = Mail1
           .CC = "[email protected]"
           .Subject = "Zeitenkorrektur " & AARRTT
           .Body = "Hallo Christin, " & vbNewLine & vbNewLine & "bitte korrigieren:" & vbNewLine & "Ist: " & ist & "€ ; " & "Soll: " & soll & "€ " & vbNewLine & "Vielen Dank." & vbNewLine & vbNewLine & "Gruß," & vbNewLine & "Olli"
           
           
           .Display
        End With
    End If

Fehlermeldung sieht so aus:



Vielen Dank.

Gruß,
Olli