Script to monitor emails and send info to access database

Place this script in "ThisOutlookSession" in the VB editor in Outlook (make
sure that you have macros enabled in macro security)

'##################################################
Option Explicit
' the next line sets incoming emails as an event to start
TargetFolderItems_ItemAdd
Dim WithEvents TargetFolderItems As Items

Const MBOX_NAME As String = "xxxx" ' change xxxx to match your mailbox name

'##################################################
' this routine will run each time Outllook first starts
Private Sub Application_Startup()
Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace("MAPI")
Set TargetFolderItems =
ns.Folders.Item(MBOX_NAME).Folders.Item("Inbox").Items
End Sub

'##################################################
' this is the event driven routine
Sub TargetFolderItems_ItemAdd(ByVal Item As Object)
Dim olAtt As Attachment
Dim BODY_NAME As String
Dim i As Integer

If InStr(1, Item, "Handovers") Then
Item.Display ' displays subject title in a msgbox when a mail
arrives with "Handovers" in the subject title
Put_Yes_In_Access
End If
Set olAtt = Nothing
End Sub

'##################################################
Sub Put_Yes_In_Access()
' now you need code here to put Yes in a table in an MDB
End Sub
'##################################################
' this is the Application_Quit event code in ThisOutlookSession module
Private Sub Application_Quit()
Dim ns As Outlook.NameSpace
Set TargetFolderItems = Nothing
Set ns = Nothing
End Sub




"melmac" wrote:

> Hi everyone,
>
> I hope someone can help me with my problem. I was wondering if it's possible
> to write a macro script that will monitor incoming emails and send info to an
> Access database? To make it more clearer, here's the scenario: I need to
> monitor emails which have the word "Handovers" on the subject line and i'd
> like the macro script to put a "Yes" on one of the fields in a table within
> an Access
> database. Is this even possible or do i have to ask someone who's more an
> expert on Access? Please, i hope someone out there can help me.
>
> Thanks,
>
> --
> "excel newbie"

note that some of the comment lines have over-spilled into two lines !!!!

e.g.
' the next line sets incoming emails as an event to start
TargetFolderItems_ItemAdd

make sure this is on one line !!!!!