Solved

Read Through Email Subject Line?

Posted on 2008-10-03
2
533 Views
Last Modified: 2012-05-07
I have this script that I received from an Expert here at EE.  It worked as I asked, but user needs some additional information.  In the snippet below, "Missing Transactions" is a folder that contains emails.  Would it be possible for me to diplay the Subject Line of the emails within that folder? (Missing Transactions)

Also, does anyone know of a good reference book for scripting in general?

Thanks
SnowLapa
Const olFolderInbox = 6
 
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox):Set objFolder= objFolder.Parent
Set flds = objFolder.folders
Set mpfSubFolder = flds.GetFirst
 
 
Do While Not mpfSubFolder Is Nothing
	If mpfSubFolder.Name = "IS Department" Then
		Set colItems = mpfSubFolder.folders
		For Each objItem in colItems
    		if objItem.name = "Missing Transactions" then
    			'DO WHATEVER
    		End If
		Next
    End If
    Set mpfSubFolder = flds.GetNext
Loop

Open in new window

0
Comment
Question by:SnowLapa
2 Comments
 
LVL 5

Accepted Solution

by:
lodar123 earned 125 total points
ID: 22638293
hey.. me again :)
try to modify that part of the script with this....
 

Set colItems = mpfSubFolder.folders
For Each objItem in colItems
	if objItem.name = "Missing Transactions" then
    		Set colItems2 = objItem.items
		For Each objItem2 in colItems2
    			if objItem2.Subject = "SUBJECT" then
    				'DO WHATEVER
			End If
		Next
	'DO WHATEVER
	end If
Next

Open in new window

0
 

Author Closing Comment

by:SnowLapa
ID: 31623588
Worked great.

Thanks
SnowLapa
0

Featured Post

ScreenConnect 6.0 Free Trial

At ScreenConnect, partner feedback doesn't fall on deaf ears. We collected partner suggestions off of their virtual wish list and transformed them into one game-changing release: ScreenConnect 6.0. Explore all of the extras and enhancements for yourself!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I met Paul Devereux (@pdevereux) today when I responded to his tweet asking “Anybody know how to automate adding files from disk to a folder in #outlook  ?”.  I replied back and told Paul that using automation, in this case scripting, to add files t…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question