Avviare Microsoft Access 2007 , fare clic su " Strumenti di database " e selezionare " Visual Basic ". Selezionare il menu " Strumenti " e clicca su "Riferimenti ". Seleziona la casella accanto a " 12.0 Libreria oggetti di Microsoft Outlook" e fare clic su
2
Digitare quanto segue per creare un nuovo sottoprogramma "OK ". :
GetOutlookMail Private Sub ( )
Quindi premere "Invio".
3
digitare quanto segue per impostare le variabili :
outlookApp = CreateObject ( " Outlook.Application " ) < br
Set> MAPISpace = outlookApp.GetNamespace ( " MAPI " ) per
outlookFolder = MAPISpace.GetDefaultFolder ( olFolderInbox ) economici 4
Digitare quanto segue per visualizzare Outlook :
outlookFolder.Display
5
digitare quanto segue per un ciclo tra tutti gli elementi di posta elettronica e visualizzare l' oggetto in una finestra di messaggio :
Ogni MyMail in outlookFolder.Items
MsgBox myMail.Subject
Avanti MyMail
Premere " F5 " per eseguire la subroutine .
Programmazione © www.354353.com