Con Excel è potremmo spedire delle email attaverso le macro. Ecco come spedire un email senza usare Outlook
Sub invia_email_CDO()
Set mess = CreateObject("CDO.Message")
Set config = CreateObject("CDO.Configuration")
config.Load -1 ' CDO Source Defaults
config.Fields.item(schemas.microsoft.com/cdo/configuration/sendusing)= 2
config.Fields.item(schemas.microsoft.com/cdo/configuration/smtpserver) _
= "smtp.xxx.eu" 'metti qui il tuo server smtp
'autentiazione 1 NONE, 2 Basic (Base64 encoded), 3 NTLM
config.Fields.item(schemas.microsoft.com/cdo/configuration/smtpauthenticate) = 1
'account ID
config.Fields.item(schemas.microsoft.com/cdo/configuration/sendusername) = "xxx@xxx.eu
'password
config.Fields.item(schemas.microsoft.com/cdo/configuration/sendpassword) = "xxxxx"
config.Fields.item(schemas.microsoft.com/cdo/configuration/smtpserverport) = 25
config.Fields.Update
With mess
Set .Configuration = config
.To = Range("destinatario").Value
.CC = ""
.BCC = ""
.From = " xxx@xxx.eu"
.Subject = Range("oggetto").Value
.TextBody = Range("testo").Value
'.AddAttachment PercorsoAssolutoFileDaAllegare
End With
mess.Send
End Sub