Ci sono un sacco di ragioni per inviare la posta da una macro di Excel . Ad esempio, quando una somma vendite raggiunge un certo valore , un manager può essere utile sapere subito. Mentre ci sono un paio di modi per inviare e-mail da una macro di Excel , il metodo più comunemente usato è quello di sfruttare Outlook . Questo è un problema se non si dispone di Outlook installata nel computer che si sta utilizzando per aprire il foglio di calcolo . In tal caso , è possibile utilizzare CDO , che si distingue per la collaborazione Object Data, invece. Istruzioni
1

Premere " Alt " e " F11 " , allo stesso tempo dal foglio di calcolo Excel per aprire il built-in editor di Visual Basic .
2

Copia e incolla il seguente codice nella finestra del codice vuota : Sub CDO_Mail_Small_Text ( ) Dim IMSG Come ObjectDim iConf Come ObjectDim strBody As String ' Dim Flds As Variant

IMSG = CreateObject ( " CDO.Message " ) Set iConf = = 2 ' . Articolo ( " http://schemas.microsoft.com/cdo/configuration/smtpserver " ) _ ' = " Inserire il server SMTP qui " ' . Articolo ( " http://schemas.microsoft.com/cdo /configuration /SMTPServerPort " ) = 25 ' . Aggiorna' End With

strBody = " Ciao " & vbNewLine & vbNewLine & _" Questa è la riga 1 " & vbNewLine & _ " Questo è la linea 2 "& vbNewLine & _" Questa è la riga 3 "& vbNewLine & _" Questa è la riga 4 "

iMsgSet . Configurazione = iConf.To = " person@email.com " . CC = "" . BCC = " " . From = " " "Persona" " " . Oggetto = " oggetto" . TextBody = strbody.SendEnd Con

Fine sub
3

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

Premere " F5 " per eseguita la macro e inviare il vostro messaggio e-mail .

• Come progettare un cruciverba con Excel 2003 
• Come utilizzare la funzione RATA in Excel