Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Spustite program Microsoft Office Excel vyberte kartu " Vývojár " . Kliknite na tlačidlo " . Visual Basic " 
 
 Zadaním nasledujúceho príkazu vytvorte nový postup : 
 
 " Sub sendEmailUsingVBA ( ) " 
 
 Typ " Enter " 
 2 
 Zadajte nasledujúce deklarovať svoje premenné : 
 
 " Dim eSuba As String Dim 
 
 ETO As String Dim 
 
 eBody As String Dim 
 
 eMailObj as Variant 
 
 Dim eMailItem as Variant " 
 3 
 zadajte nasledujúce vymedziť predmet , e - mail a telo : 
 
 " eSuba = " odosielanie e - mailov pomocou jazyka VBA " 
 
 ETO = " [email protected] " 
 
 eBody = " Poslal som tento e - mail pomocou Excel a VBA ! " " 
 4 
 Typ nasledujúce vytvoriť objekty používané na odoslanie e - mailu : 
 
 " Set eMailObj = CreateObject ( " Outlook.Application " ) 
 
 Set eMailItem = eMailObj.CreateItem ( 0 ) " 
 
 5 
 Zadajte nasledujúce poslať e - mail : 
 
 " S eMailItem 
 
 Subject = eSuba 
 
 = ETO 
 
 ... telo = eBody 
 
 . Poslať 
 
 End With "