Con Excel è possibile spedire delle email attaverso le macro. Questa procedura descrive 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

Progetto postato da davideba a questo url.

Grazie Davide :)