Solved

Read Through Email Subject Line?

Posted on 2008-10-03
2
538 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
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

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
With User Account Control (UAC) enabled in Windows 7, one needs to open an elevated Command Prompt in order to run scripts under administrative privileges. Although the elevated Command Prompt accomplishes the task, the question How to run as script…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

739 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