VBA - Sjabloom + sentonbehalf

[Daniel89]

Goedendag,

Ik probeer een macro te maken waarbij hij een template selecteert & het afzender e-mail adres aanpast.
Nu krijg ik het wel voor elkaar om het sjabloon te "selecteren" maar het: SentOnBehalfOfName krijg ik er niet werkend bij.
Ben een amateur die wat probeert, vandaar mijn vraag hier.

Template selecteren:

Sub MakeItem()
Set newItem = Application.CreateItemFromTemplate("m:\templates\test.oft")
newItem.Display
Set newItem = Nothing
End Sub

Hoe krijg ik echter onderstaande regel er werkend bij?
objOutlookMsg.SentOnBehalfOfName = "info@test.nl"

Groetjes,
Daniel

 

[OctaFish]

Da's niet zo heel lastig, en als je IntelliSense had gebruikt, had je daar denk ik wel uitgekomen.

Sub MakeItem()
Dim newItem As MailItem
    Set newItem = Application.CreateItemFromTemplate("H:\Mijn documenten\Downloads\Visitekaartjes 2.oft")
    With newItem
        .SentOnBehalfOfName = "info@test.nl"
        .Display
    End With
    MsgBox newItem.SentOnBehalfOfName
    Set newItem = Nothing
End Sub

 

[Daniel89]

Daar was ik niet bekend mee, vandaar dat ik aangaf als amateur zijnde
Het werkt inderdaad, Thanks!