salve a tutti
Avrei un piccolo problema vorrei nviare email da excell con i dati presenti in alcune celle, la macro che ho trovato ed adattato alle mie esigenze funziona solo con outlook il quale andrebbe bene tranne il fatto che la posta resta bloccata in posta in uscita dopo ore di ricerca non sono riuscito a trovare una soluzione outlook continua a non inviare la posta il codice e il seguente se un anima buona potrebbe dirmi come modificalro in modo da far inviare le email a thunderbird invece del deludente outlook
Sub email()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
EmailAddr = Range("Sviluppo!B209").Value '<<< inserire lo/gli indirizzi
Subj = Range("Sviluppo!A206").Value
BodyText = Range("Sviluppo!A207").Value
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.to = EmailAddr
.CC = ""
.BCC = ""
.Subject = Subj
.Body = BodyText
'.Attachments.Add ActiveWorkbook.FullName
.Display 'or use .send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
grazie anticipatamente