Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Kliknite na záložku " Database Tools " , kliknite na " Visual Basic " a kliknite na " Vložiť " menu . Kliknite na " modul " pre vloženie nového modulu kódu VBA . 
 2 
 Kliknite na menu " Nástroje " a kliknite na " Odkazy " . Zaškrtnite políčko vedľa " Microsoft Outlook   Vytvoriť nový čiastkové postup do a definovať objekty Outlook pridaním nasledujúce VBA kód :   Private Sub createEmail ( )   Set outlookApp = CreateObject ( " Outlook.Application " )   Dim myItem As Object   Set myItem = outlookApp.CreateItem ( olMailItem )   Vytvorenie novej e - mailovej položky pridaním nasledujúci kód :   myItem.Subject = " predmet e - mailu "   myItem.Body = " mailové správy "   myItem.To = " [email protected] "   myItem.Send   Upravte predchádzajúci krok a zadajte platný email riešiť vedľa " myItem.To " poslať e - mail . Zadajte " End Sub " ukončiť postup a stlačte " F5 " , ktorý spustí váš postup a odoslať e - mail pomocou aplikácie Outlook .   Prečítajte si e - mail v priečinku Doručená pošta a zobraziť ho v okne Immediate vytvorením nasledujúce čiastkové postup :   Private Sub checkEmail ( )   Set OLApp = CreateObject ( " Outlook.Application " )   Set MAPIs = OLApp.GetNamespace ( " MAPI " )   Set outlookFolder = MAPIs.GetDefaultFolder ( olFolderInbox )   každý myMail V outlookFolder.Items   Debug.Print myMail.Subject   Debug.Print myMail . telová   Next myMail   End Sub   Stlačte " F5 " spustí procedúru . 
 3 
 
 
 
 
 4 
 
 
 
 
 5 
 6 
 
 
 
 
 
 
 
 
 
 7