Useing Redemption Object to Read an Inbox

[Damian]

Hi,

I am looking for some help here. I am trying to read email from an
inbox. The emails are bouncebacks. I want to be able to parse the
message body to get email addesses etc.
Problem is it hangs on the first line --> oMsg = CType(oItems.Item(i),
Outlook.MailItem)
after it goes through one loop

Below is the code I am using.

Option Strict On
Imports System.ServiceProcess
Imports MAPI
Imports Outlook = Microsoft.Office.Interop.Outlook
Imports System.Runtime.InteropServices.Marshal
Imports System.Reflection
Imports Redemption

Dim BodyStr As String
Dim oApp As Outlook.Application = New Outlook.Application
Dim i As Integer

' Get Mapi NameSpace.
Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
oNS.Logon("outlook_profile", "password", False)

' Get Messages collection of Inbox.
Dim oInbox As Outlook.MAPIFolder =
oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
Dim oItems As Outlook.Items = oInbox.Items

' Loop each unread message.
Dim oMsg As Outlook.MailItem
Dim oSafeMsg As Redemption.SafeMailItem

For i = 1 To oItems.Count
oMsg = CType(oItems.Item(i), Outlook.MailItem) ' hangs on
this line after the first loop
oSafeMsg = New Redemption.SafeMailItem
oSafeMsg.Item = oMsg
BodyStr = oSafeMsg.Body

' parse code goes here

ReleaseComObject(oMsg)
oMsg = Nothing
Next

' Log off.
oNS.Logoff()

' Clean up.
ReleaseComObject(oApp)
oApp = Nothing
ReleaseComObject(oNS)
oNS = Nothing
ReleaseComObject(oItems)
oItems = Nothing
GC.Collect()
GC.WaitForPendingFinalizers()


End Sub

Any ideas ? Any help would be appreciated

Thanks
Damian

 

[Ken Slovak - [MVP - Outlook]]

Are you sure the item or items in question are MailItem objects?

Using Redemption I'd probably use RDOMail objects and RDOFolder to get the
Inbox from the RDOSession object, that way I'd avoid problems like that.
Then I could check the Class or MessageClass of the RDOMail object before
working with it.

 

[Damian]

Hi Ken,

Thanks for your response. I am sure they are MailItem objects as the
first time it loops through I could see the body of the email.
I need to be able to read the body of the email when it comes back from
a bounce back. Apparently there is a difference in reading the body of
an email from when someone sends an email to another person, compared
to when the server returns an automated message from a bounceback. I
dont have any experience in dealing with MAPI and messaging and I cant
find a full example of what I need to do on the Redemption website. It
seems to gives you bits and pieces but no full examples or am I missing
something?

Regards
Damian

 

[Dmitry Streblechenko]

NDRs are represented by the ReportItem object in OOM, not MailItem. That's
the reason you get the error.
To loop through the items in the Inbox folder, try something likee the
following (VB)

set Session = CreateObject("Redemption.RDOSession")
Session.Logon
set Inbox = Session.GetDefaultFolder(olFolderInbox)
set Items = Inbox.Items
for each Msg in Items
Debug.Print Msg.Subject
next

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Damian]

Hi Dmitry,

Thanks for your reply. What are NDR's?
I need to be able to read the body an email bounceback. I am able to
read the body of a standard email, but I cant read the body of an email
bounce back. It returns empty.

Regards
Damian

 

[Ken Slovak - [MVP - Outlook]]

NDR's are non-delivery reports. As Dmitry said and I indicated those items
are not MailItems, they are ReportItems and that's why your code is failing.
Use RDOMail instead of SafeMailItem, which is only for MailItem or use the
Redemption.MessageItem object.

 

[Dmitry Streblechenko]

Also note that NDRs in most cases do not have a message body in tehe regular
sense (PR_BODY etc). What Outlook displays is created dynamically from
various properties in the recipient table - look at an NDR with OutlookSpy
(click IMessage, GetRecipientTable taab is what you need).
If you need to read the ND properties, use Recipient.Fields(); if you just
need all the data in a single blob a-la Outlook, use SafeReportItem in
Redemption and read the Body property.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Damian]

Hi Dmitry and Ken,

Thanks for your help. What I still dont understand is what do I link
the Redemption SafeReportItem to ?

This is what I thought needed to be done

Dim Session As MAPI.Session
Dim Application, Namespace1
Dim Session2, BodyStr
Dim Inbox, Msg

Session = CreateObject("MAPI.Session")
Session.Logon(ProfileName:="profile_name",
ProfilePassword:="password")
Application = CreateObject("Outlook.Application")
Namespace1 = Application.GetNamespace("MAPI")
Namespace1.Logon()
Session2 = CreateObject("Redemption.RDOSession")
Session2.MAPIOBJECT = Application.Session.MAPIOBJECT
sRItem = CreateObject("Redemption.SafeReportItem")
Inbox = Session2.GetDefaultFolder(6)
For Each Msg In Inbox
sRItem.Item = Msg
BodyStr = sRItem.Body
Next

If anyone can point out where I am wrong it would be appreciated

Regards
Damian

 

[Damian]

Hi Dmitry and Ken,

Another problem is I want to be able to read an inbox which is set up
for bounce backs.
Some will have an automated response from the server in the body of the
email and some will have an out of office response or some other
response.

When you loop through an inbox how do you know whether to set the item
in the inbox to a SafeMailItem or SafeReportItem? Is there some sort of
test you can use?
The reason I asked is I just tried setting up a loop to read an inbox
and I set the SafeReportItem to the item in the inbox. It crashed as a
i got "a cast invalid" error.
The first item in the inbox was an out of office response not a an
automated server response. When i changed it and set the item to
SafeMailItem it was Ok until i came across an email with an automated
reponse from the server and got the same error, as this should have
been set to a SafeReportItem.

Am going nuts here! Any help would be appreciated...
Damian

 

[Damian]

Hi Dmitry and Ken,

I have worked it out. Thanks for putting me on the right track
Much appreciated.


Regards
Damian