Questa è la Function che uso dopo aver opportunamente valorizzato i campi necessari .. il campo incriminato MessaggioEMail
Function SpedisciEmail(Destinatari, DestinatariCC, DestinatariBCC, AllegatoEmail, OggettoEmail, MessaggioEmail)
On Error Resume Next
'
Dim OggOutlook As Object
Dim OggEmail As Object
'
Set OggOutlook = CreateObject("Outlook.Application")
Set OggEmail = OggOutlook.CreateItem(0)
'
With OggEmail
.To = Destinatari
.CC = DestinatariCC 'utile per inserire un indirizzo in copia
.bcc = DestinatariBCC 'utile per inserire un indirizzo in copia nascosta
.Subject = OggettoEmail
.Body = MessaggioEmail
.Attachments.Add AllegatoEmail
.Send
End With
'
On Error GoTo 0
Set OggEmail = Nothing
Set OggOutlook = Nothing
'
End Function