algo asi
Set msMail = CreateObject("CDONTS.NewMail")
With msMail
.BodyFormat = 0 'Set to 0 for HTML email, 1 for plain text.
.MailFormat = 0 'Set to 0 for HTML email, 1 for plain text.
.To = "para"
.From = "de & " <
[email protected]>""
.Subject = "Asunto"
.Body = "Cuerpo"
.Send
End With