Klik op het tabblad " Database Tools" op " Visual Basic , " en klik op het menu "Insert " . Klik op " Module " om een ​​nieuwe VBA-code -module plaatsen . Kopen van 2

Klik op het menu "Extra " en klik op " References " . Vink het vakje aan naast " Microsoft Outlook Object Library " en klik op "OK " .
3

Maak een nieuwe sub- procedure en het definiëren van de Outlook- objecten met de volgende tekst VBA-code :

Private Sub createEmail ( )

Stel outlookApp = CreateObject ( " Outlook.Application " )

Dim myItem
als Voorwerp

Set myItem = outlookApp.CreateItem ( olMailItem )
4

Maak een nieuw e- punt door het toevoegen van de volgende code :

myItem.Subject = " e-mail onderwerp "

myItem.Body
= " mail "

myItem.To = " [email protected] "

myItem.Send
5

Wijzig de vorige stap en voer een geldig e- richten naast " myItem.To " om de e-mail te sturen . Type " End Sub " om de procedure te beëindigen en druk op " F5 " om uw procedure lopen en stuur de e-mail met Outlook .
6

Lees email in je map Inbox en weergeven in uw venster direct door het creëren de volgende sub procedure :

Private sub checkEmail ( )

Stel olApp = CreateObject ( " Outlook.Application " )

Set MAPIS = OLApp.GetNamespace
( " MAPI " )

Set OLfolders
= MAPIs.GetDefaultFolder ( olFolderInbox ) op

voor Elke myMail In outlookFolder.Items

Debug.Print myMail.Subject

Debug.Print
myMail . Body

Volgende myMail

End Sub

Druk op " F5 " om de procedure uit te voeren
7 .
< br >