Eu encontrei uma maneira de fazer isso no Excel e no VBA.
Name Date Email
Set OutlookApp = New Outlook.Application
Msg = "message"
Subj = "subject " + Format(Date, "mmmm yyyy")
EmailAddr = "[email protected]"
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = EmailAddr
.Subject = Subj
.Body = Msg
.Display
.Send
End With