Avviare Microsoft Office Excel e selezionare la scheda " Sviluppo " . Fare clic su " Visual Basic ".
Digitare quanto segue per creare una nuova procedura :
"Sub sendEmailUsingVBA ( ) "
Tipo "Invio"
2
Digitare quanto segue per dichiarare le variabili :
" Dim eSub As String Dim
Eto As String Dim
eBody As String Dim
eMailObj As Variant
Dim eMailItem come variante "
3
digitare quanto segue per definire l'oggetto , e-mail e il corpo :
" eSub = "Invio di e-mail utilizzando VBA "
Eto = " [email protected] "
eBody = " Ho mandato questa e-mail utilizzando Excel e VBA ! " "
4
Tipo quanto segue per creare gli oggetti utilizzati per inviare l'e-mail :
"Imposta eMailObj = CreateObject ( " Outlook.Application " ) per
eMailItem = eMailObj.CreateItem ( 0 ) "
5
digitare quanto segue per inviare l'e-mail : . .
"Con eMailItem
Oggetto = eSub
Per = eto
. corpo = eBody
. inviare
End With "
Programmazione © www.354353.com