Ci sono un sacco di motivi per inviare la posta da una macro di Excel. Ad esempio, quando una somma vendita raggiunge un certo valore, un manager desidera sapere subito. Mentre ci sono pochi modi per inviare email da una macro di Excel, il metodo più comunemente usato è quello di sfruttare Outlook. Questo è un problema se non si dispone di Outlook installato sul computer che stai usando per aprire il foglio di calcolo. In tal caso, è possibile utilizzare CDO, che sta per oggetto dati di collaborazione, invece.

Istruzioni

1

Premere "Alt" e "F11" allo stesso tempo dal foglio di calcolo Excel per aprire l'editor di Visual Basic integrato.

2

Copiare e incollare il codice seguente nella finestra codice vuoto:
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")

. Elemento ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
' = "Fill in your SMTP server here"
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With

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

End Sub

3

Sostituire "Indicare il server SMTP qui" con l'indirizzo del server SMTP che si desidera utilizzare.

4

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

Consigli & Avvertenze

• Se non avete il vostro, Google fornisce un server SMTP (http://gmail.google.com) che è possibile utilizzare gratuitamente.