Aprire Microsoft Access 2007. Fare clic su "Strumenti database" e selezionare " Visual Basic ". Selezionare il menu " Strumenti " e clicca su "Riferimenti ". Seleziona la casella accanto a "Microsoft Outlook ( numero di versione) Object Library ". Fare clic su "OK".
2
Copia e incolla il codice sottostante nel tuo nuovo modulo . Il codice leggerà la cartella "Posta in arrivo " in posta elettronica Microsoft Outlook e visualizzare l' oggetto e il corpo attraverso una finestra di messaggio .
ReadOutlookMail Private Sub ( ) per
otlkApp = CreateObject ( " Outlook.Application " ) per
MAPISpace = otlkApp.GetNamespace ( " MAPI " ) per
otlkFolder = MAPISpace.GetDefaultFolder ( olFolderInbox ) per
Ogni MailItem In
otlkFolder.Items
MsgBox " Oggetto: " & MailItem.Subject e "Body : " & MailItem.body
Avanti MailItem
End Sub
3
premere il tasto " F5 " per eseguire il sottoprogramma " ReadOutlookMail " .
Programmazione © www.354353.com