Get MSAccess to Check for New Emails in Outlook 1

[GammelNok]

I have a need for automatically check for emails in outlook, then import Subject and Body text into Access
Does anyone have a good solution

Thanks

Hans

 

[danvlas]

Automation is the answer.

Set myOlApp = CreateObject("Outlook.Application&quot
Set myNameSpace = myOlApp.GetNamespace("MAPI&quot
Set MyFolder = myNameSpace.Folders("Personal Folders&quot("Inbox&quot
For Each myMailItem in MyFolder.Items
If myMailItem.Unread Then
mySubject = mymailItem.Subject
myBody = myMailItem.Body
'do whatever you like with them
' .......
myMailItem.Unread=False
End If
Next
Set myFolder = Nothing
Set myNameSpace = Nothing
Set myOlApp = Nothing



Run the code from the Timer event of a form and it will check the mapi folder regularly...

Good luck


Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html