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 = " myname@myemail.com " 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