Inviare una email da Excel usando Outlook |
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 :) |