Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako používať VBA pre e - mail v programe Access

Vytvorenie programu správy e - mailu v databáze programu Microsoft Access môžete vytvoriť aplikácie Access cennejšie a dynamickejšie . Vo VBA môžete použiť objektovej knižnice Microsoft Outlook vytvoriť e - mailu a prístup k e - mailovej zložky v aplikácii Microsoft Outlook . Knižnica umožňuje programovo vytvárať a poslať e - mail , bez toho aby ste museli otvárať aplikáciu Outlook . Použite túto knižnicu posielať e - maily automaticky užívateľom s databázou informácií , ktorá je pre nich dôležité . Pokyny dovolená 1

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 Object Library " a kliknite na " OK " .
3

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 )
4

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
5

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 .
6

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
7

Stlačte " F5 " spustí procedúru .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené