Come usare una macro Excel per inviare email senza Outlook

Ci sono molti motivi per inviare email da una macro Excel. Ad esempio, quando una somma di vendite raggiunge un certo valore, un manager potrebbe volerlo sapere subito. Mentre ci sono alcuni modi per inviare email da una macro Excel, il metodo più comune è sfruttare Outlook. Questo è un problema se non hai Outlook installato sul computer che usi per aprire il foglio di calcolo. In quel caso, puoi usare CDO (Collaboration Data Object).

Passo 1

Premi "Alt" e "F11" simultaneamente dal foglio Excel per aprire l'editor Visual Basic integrato.

Passo 2

Copia e incolla il seguente codice nella finestra di codice vuota:

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Fields("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2
iConf.Fields("https://schemas.microsoft.com/cdo/configuration/smtpserver") = "Inserisci qui il tuo server SMTP"
iConf.Fields("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
iConf.Fields.Update

strbody = "Ciao" & vbNewLine & vbNewLine & _
"Questa è la riga 1" & vbNewLine & _
"Questa è la riga 2" & vbNewLine & _
"Questa è la riga 3" & vbNewLine & _
"Questa è la riga 4"

With iMsg
Set .Configuration = iConf
.To = "destinatario@email.com"
.CC = ""
.BCC = ""
.From = """Mittente"" <mittente@email.com>"
.Subject = "Oggetto"
.TextBody = strbody
.Send
End With
End Sub

Passo 3

Sostituisci "Inserisci qui il tuo server SMTP" con l'indirizzo del server SMTP che vuoi usare.

Passo 4

Premi "F5" per eseguire la macro e inviare il messaggio email.

Suggerimento

Se non hai un tuo server SMTP, Google ne fornisce uno gratuito (smtp.gmail.com) che puoi usare.