Con Excel si può spedire una email attaverso le macro. Ecco come spedire un email attraverso Outlook :
Sub invia_email_CDO()
variabileEmailDelDestinatario = Range("destinatario").Value
Set VarOggApplicazioneOutlook = CreateObject("Outlook.Application")
Set VarOggMailInOutlook = VarOggApplicazioneOutlook.CreateItem(olMailItem)
VarOggMailInOutlook.To = variabileEmailDelDestinatario
VarOggMailInOutlook.Subject = Range("oggetto").Value
VarOggMailInOutlook.Body = Range("testo").Value
VarOggMailInOutlook.Display
VarOggMailInOutlook.Send
End Sub