Send alle kladde e-mails på én gang i Outlook

Det er lidt svært bare at sige ude fra din besked,

Men for at kunne sende fra en anden mail adresse end din egen kan denne bruges. 

Sub CustomMailMessage()

Dim OutApp As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Recipient
Dim Recipients As Recipients

Set OutApp = CreateObject("Outlook.Application")
Set objOutlookMsg = OutApp.CreateItem(olMailItem)

Set Recipients = objOutlookMsg.Recipients
Set objOutlookRecip = Recipients.Add("alias@domain.com")
objOutlookRecip.Type = 1
 
objOutlookMsg.SentOnBehalfOfName = "sales@domain.com"
objOutlookMsg.Subject = "Testing this macro"
objOutlookMsg.HTMLBody = "Testing this macro" & vbCrLf & vbCrLf

'Resolve each Recipient's name.
For Each objOutlookRecip In objOutlookMsg.Recipients
objOutlookRecip.Resolve
Next

'objOutlookMsg.Send
objOutlookMsg.Display

Set OutApp = Nothing

End Sub

Den virker ellers afsender bliver den jeg ønsker.

Kan man kombiner den formel fra den adresse?

https://da.extendoffice.com/documents/outlook/5064-outlook-send-multiple-drafts-at-once.html

Så alle fra den kladde kan sendes på én gang?