Outlook 2007 pull info from email and send to another program

[FNBIT]

Hey Everybody, I am very new to VBScript but I was wondering of it is possible to pull some info from an Outlook email containing a certain subject (specifically a URL contained in the body of a HTML email) then send this to another program? If you can point me in a direction or even if there is a commercial product that does this I would be gratefull.

Thanks!

 

[mrmovie]

here is something to get you started? i would advise running up the outlook vba gui thing, and then viewing the object model, it will give you the available properties of the Mail object

Set objApp = GetObject(, "Outlook.Application") '#### Find existing instance of Outlook
If Err Then
WScript.Quit() '#### If Outlook isn't running, quit the script
'Set objApp = CreateObject("Outlook.Application") '#### uncomment this & comment out above line to get data even if Outlook isnt running
End If
Set objOutlook = objApp.GetNameSpace("MAPI") '#### Get MAPI namespace

Set objInbox = objOutlook.GetDefaultFolder(6).Items
intA = 0
For Each aMail In objInbox
If LCase(CStr(aMail.Subject)) = "unsubscribe" Then
intA = intA + 1
'Wscript.Echo aMail.Subject & aMail.SenderEmailAddress
Wscript.Echo aMail.SenderEmailAddress
End If
Next

wscript.echo intA

 

[mrmovie]

something looping through mails with attachments...


Set objApp = GetObject(, "Outlook.Application") '#### Find existing instance of Outlook
If Err Then
WScript.Quit() '#### If Outlook isn't running, quit the script
'Set objApp = CreateObject("Outlook.Application") '#### uncomment this & comment out above line to get data even if Outlook isnt running
End If
Set objOutlook = objApp.GetNameSpace("MAPI") '#### Get MAPI namespace

Set objInbox = objOutlook.GetDefaultFolder(6).Items
intA = 0
For Each aMail In objInbox
Set myattachments = aMail.Attachments
If myattachments.Count > 0 Then
For Each aAttachment In myattachments
Wscript.Echo aMail.Subject & " " & aAttachment.DisplayName
aAttachment.SaveAsFile "G:\" & aAttachment.DisplayName
Next
End If
Next

 

[FNBIT]

Thanks guys! I will look into this.