Extend the code to include choosing the sender.

Use SentOnBehalfOfName when creating or replying or forwarding.

Option Explicit

Sub SentOnBehalf_create()
 
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
objMsg.SentOnBehalfOfName = "Sender address"

' code to disable the delivery and read receipts

objMsg.Display
 
ExitRoutine:
    Set objMsg = Nothing
 
End Sub
Note: You cannot set "From" manually and wait until Application_ItemSend. SentOnBehalfOfName will be empty.