Microsoft Outlook email - Sender address!!

Outlook Banter (http://www.outlookbanter.com/)

- Outlook and VBA (http://www.outlookbanter.com/outlook-vba/)

- - Sender address!! (http://www.outlookbanter.com/outlook-vba/62211-sender-address.html)

November 29th 07 11:17 PM

Sender address!!

Hi

Here is a very simple function, that works not on WinXP Off2K System.
When i call the function approx. 5 times, VB crashs! When i deactivate
the Debug Line all is fine. So the problem is th access to the Sender
Object.
Have anybody ideas about the reason? I am using CD0 1.21

Function GetSenderData()
Dim session As MAPI.session
Dim messages As MAPI.messages
Dim inbox As MAPI.folder

Set session = CreateObject("MAPI.Session")
session.Logon NewSession:=False

Set inbox =
session.GetDefaultFolder(CdoDefaultFolderTypes.Cdo DefaultFolderInbox)

Debug.Print inbox.messages(1).Sender.Type ' Crash Line!

' session.Logoff
' Set session = Nothing
' Set messages = Nothing

End Function

Dan Mitchell

November 30th 07 05:28 PM

Sender address!!

wrote in news:c2063db6-5f4c-478a-beca-4358ad1cad94
@o42g2000hsc.googlegroups.com:
Debug.Print inbox.messages(1).Sender.Type ' Crash Line!

Which bit of this line crashes? If you do this, which one has the
problem?

mapi.messages messages = inbox.messages
mapi.message message = messages.getfirst
mapi.addressentry snd = message.sender
debug.print snd.type

Also, what happens if you uncomment the logout code at the end? What
happens if you log in once per run and use the same logged in session all
the time, rather than logging in once per getsenderdata call?

-- dan

[email protected]

December 1st 07 10:00 PM

Sender address!!

On 30 Nov., 17:28, Dan Mitchell wrote:
wrote in news:c2063db6-5f4c-478a-beca-4358ad1cad94
@o42g2000hsc.googlegroups.com:

Debug.Print inbox.messages(1).Sender.Type ' Crash Line!

Which bit of this line crashes? If you do this, which one has the
problem?

mapi.messages messages = inbox.messages
mapi.message message = messages.getfirst
mapi.addressentry snd = message.sender
debug.print snd.type

Also, what happens if you uncomment the logout code at the end? What
happens if you log in once per run and use the same logged in session all
the time, rather than logging in once per getsenderdata call?

-- dan

Hi Dan!

The diasbled logout code does not happen to the problem. Enablend/
Disabled makes no difference.
It seems that the problem occours when i access (in any case) the
"Sender" Object up to 4-8 times.
klwemu

Dan Mitchell

December 6th 07 12:19 AM

Sender address!!

wrote in
:
The diasbled logout code does not happen to the problem. Enablend/
Disabled makes no difference.
It seems that the problem occours when i access (in any case) the
"Sender" Object up to 4-8 times.

What if you change the logout code to this?

session.Logoff
Set messages = Nothing ' so this is before changing session
Set session = Nothing

(otherwise, the messages object is pointing at a session that's been
cleared out, which might be causing problems).

What makes the difference between the times when it fails after 4 goes
and the times when it fails after 8 goes? How are you calling
GetSenderData?

If I start a new project, add a reference to CDO1.21, and put in this,
it works just fine for me (no logoff, and 100 tries).

Private Sub Form_Load()
For i = 1 To 100
GetSenderData
Next
End Sub

Function GetSenderData()
Dim session As MAPI.session
Dim messages As MAPI.messages
Dim inbox As MAPI.folder

Set session = CreateObject("MAPI.Session")
session.Logon NewSession:=False

Set inbox = session.GetDefaultFolder
(CdoDefaultFolderTypes.CdoDefaultFolderInbox)

Debug.Print inbox.messages(1).Sender.Type ' Crash Line!
End Function

-- dan

All times are GMT +1. The time now is 07:05 AM.