Hur du använder VBA för e-post i Access

Skapa ett program e-posthantering i din Microsoft Access-databas kan göra din Access applikation mer värdefullt och mer dynamisk . I VBA kan du använda Microsoft Outlook Object Library för att skapa e-post och tillgång till mappar e i Microsoft Outlook . I biblioteket kan du programmatiskt skapa och skicka e-post utan att behöva öppna Outlook . Använd det här biblioteket för att skicka e-post automatiskt till användare med databas information som är viktig för dem . Instruktioner
1

Klicka på " Databas Verktyg " fliken , klicka på " Visual Basic ", och klicka på " Infoga " -menyn . Klicka på " modul " för att infoga en ny VBA-kod modulen .
2

Klicka på " Verktyg " -menyn och klicka på " Referenser " . Markera rutan bredvid " Microsoft Outlook Object Library " och klicka " OK " .
3

Skapa ett nytt sub förfarande och definiera de Outlook objekt genom att lägga till följande VBA-kod :

Private Sub createEmail ( ) katalog

Set outlookApp = CreateObject ( " Outlook.Application " ) katalog

Dim myItem As Object

Set myItem = outlookApp.CreateItem ( olMailItem )
4

Skapa en ny e- post genom att lägga till följande kod :

myItem.Subject = " email ämne"

myItem.Body = " postmeddelande "

myItem.To = " myname@myemail.com "

myItem.Send
5

Redigera föregående steg och ange en giltig e-postadress itu bredvid " myItem.To " för att skicka e-post . Typ " End Sub " för att avsluta proceduren och tryck på " F5 " för att köra din och skicka e-post med Outlook .
6

Läs e-post i inkorgen och visa den i din omedelbara fönster genom att skapa följande sub förfarande :

Private sub checkEmail ( ) katalog

Set OLApp = CreateObject ( " Outlook.Application " ) katalog

Set MAPIS = OLApp.GetNamespace ( " MAPI " )

Set Outlookfolder = MAPIs.GetDefaultFolder ( olFolderInbox ) katalog

For Each mymail I outlookFolder.Items

Debug.Print myMail.Subject

Debug.Print mymail . Kropp

Nästa mymail

End Sub
7

Tryck " F5 " för att köra proceduren .