| 
Login
Inviare una email da Excel usando Outlook
(1 voto, media: 5.00 di 5)
Tips and Tricks - VBA: mini progetti

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 :)