Come utilizzare una macro di Excel per inviare e-mail senza utilizzare Outlook

Ci sono molti motivi per inviare posta da una macro di Excel. Ad esempio, quando una somma di vendita raggiunge un certo valore, un manager potrebbe volerlo sapere subito. Sebbene ci siano alcuni modi per inviare e-mail da una macro di Excel, il metodo più comunemente utilizzato è sfruttare Outlook. Questo è un problema se Outlook non è installato sul computer che stai utilizzando per aprire il foglio di calcolo. In tal caso, puoi invece utilizzare CDO, che sta per Collaboration Data Object.

Passaggio 1

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

Passaggio 2

Copia e incolla il codice seguente nella finestra del 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")

.Item("http://schemas.Microsoft.com/cdo/configuration/sendusing") =2 ' .Item("http://schemas.Microsoft.com/cdo/configuration/smtpserver") _ ' ="Riempi nel tuo server SMTP qui" ' .Item("http://schemas.Microsoft.com/cdo/configuration/smtpserverport") =25 ' .Update ' Termina con

strbody = "Hi there" & vbNewLine & vbNewLine & _
 "This is line 1" & vbNewLine & _
 "This is line 2" & vbNewLine & _
 "This is line 3" & vbNewLine & _
 "This is line 4"

With iMsg
 Set .Configuration = iConf
 .To = "[email protected]"
 .CC = ""
 .BCC = ""
 .From = """Person"" < [email protected] >"
 .Subject = "Subject Line"
 .TextBody = strbody
 .Send
End With

Fine Sub

Passaggio 3

Sostituisci "Compila qui il tuo server SMTP" con l'indirizzo del server SMTP che desideri utilizzare.

Passaggio 4

Premi "F5" per eseguire la macro e inviare il tuo messaggio di posta elettronica.

Suggerimento

Se non ne possiedi uno, Google fornisce un server SMTP (http://gmail.google.com) che puoi utilizzare gratuitamente.