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 = " destinationEmail@yahoo.com "
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 "