Unable to add "X-Header" to a mail that is being sent...

G

gopi

Environment:
-Outlook 2002(XP)
-Added references to "Microsoft Outlook 10.0 Object Library" & "Microsoft
CDO 1.21 Library"

I have written a VB project using MS Visual Basic 6.0. My intention is to
add a X-Header to a mail that is being sent from

Outlook. I am capturing the ItemSend event and trying to add the header in
that event handler.

Please find the complete source code below. Please note that the Sub
ChangeHeader() is working fine if I call it for

an existing mail in my Outlook Inbox. But I have a problem in calling this
ChangeHeader() from my ItemSend event handler, as

ChangeHeader() takes MAPI.Message as an argument, but MyOLApp_ItemSend() is
giving me Outlook.MailItem.

How do I convert Outlook.MailItem to MAPI.Message?
Or
Is there any other way to add the X-header without needing to have a
MAPI.Message object?


Thanks,
Gopi

************************************************************************


Public WithEvents MyOLApp As Outlook.Application

Sub Intialize_Event_Handlers()

Set MyOLApp = Application
MsgBox "Initialize Event Handlers successful"

End Sub



Private Sub Command1_Click()

Intialize_Event_Handlers

End Sub



Private Sub MyOLApp_ItemSend(ByVal Item As Object, Cancel As Boolean)

MsgBox "I am in ItemSend handler"

Dim myMailItem As Outlook.MailItem
Set myMailItem = Item

MsgBox myMailItem.Subject

'How do I now call ChangeHeader(), which takes MAPI.Message, as an
argument!!!
'Add the custom header now
'ChangeHeader oMessage


End Sub



Sub ChangeHeader(oMessage As MAPI.Message)

' Initalize error handling
On Error Resume Next

MsgBox "ChangeHeader - BEGIN", vbInformation

Dim oFields As MAPI.Fields
Set oFields = oMessage.Fields

Dim strheader As String

' Get SMTP header
Err.Clear
strheader = oFields.Item(CdoPR_TRANSPORT_MESSAGE_HEADERS).Value

If Err.Number = 0 Then
MsgBox strheader 'Display the original Internet headers

'Append the custom X-Header now!
oMessage.Fields(CdoPR_TRANSPORT_MESSAGE_HEADERS) =
oMessage.Fields(CdoPR_TRANSPORT_MESSAGE_HEADERS) & vbCrLf &

"X-MY-HEADER9: Hello"

ElseIf Err.Number = &H8004010F Then
Err.Clear
MsgBox "No SMTP message header information on this message",
vbInformation

'Add the custom X-Header now
oFields.Add CdoPR_TRANSPORT_MESSAGE_HEADERS, "X-MY-NEWHEADER: Hello"

Else
MsgBox "some vague scenario", vbInformation

End If


oMessage.Update

MsgBox "ChangeHeader - END", vbInformation

End Sub


************************************************************************
 
D

Dmitry Streblechenko

Modifying the PR_TRANSPORT_MESSAGE_HEADERS property has no effect on the
outgoing messages.
To add an X-header, you need to create a named string MAPI property with a
particular GUID.
See http://www.dimastr.com/redemption/faq.htm#14 for a Redemption example.
It shows howw to change the "From" header, but it is equally applicable to
any MME header.

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

gopi

Thanks for your response.
But unfortunately the program is crashing when the following statement is
encountered.
Tag = sItem.GetIDsFromNames("{00020386-0000-0000-C000-000000000046}",
"From")

How can I fix this problem?

Please find the complete code below.

Thanks,
gopi

------------------------------------------------------------------
Public WithEvents MyOLApp As Outlook.Application
Public WithEvents MyOLItems As Outlook.Items


Sub Intialize_Event_Handlers()

Set MyOLApp = Application
Set MyOLItems = Application.Session.GetDefaultFolder(olFolderInbox).Items

MsgBox "Initialize Event Handlers successful"

End Sub

Private Sub Command1_Click()
Intialize_Event_Handlers
End Sub

Private Sub MyOLApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
MsgBox "I am in ItemSend handler"

Dim myMailItem As Outlook.MailItem
Set myMailItem = Item

MsgBox myMailItem.Subject

Dim sItem As Redemption.SafeMailItem
Set sItem = CreateObject("Redemption.SafeMailItem")
sItem.Item = myMailItem


Tag = sItem.GetIDsFromNames("{00020386-0000-0000-C000-000000000046}",
"From") 'It is crashing here
Tag = Tag Or &H1E 'the type is PT_STRING8
sItem.Fields(Tag) = "Someone <[email protected]>"
sItem.Subject = sItem.Subject 'to trick Outlook into thinking that
something has changed
sItem.Save


End Sub
 
D

Dmitry Streblechenko

Crashing as in producing an access violation or as in "returning a COM
error"? In the latter case, what is the error?

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

gopi

Here is the exact error message I am getting:

[
Microsoft Visual Basic
--------------------------

Run-time error '-2147418113 (8000ffff)':
Error in _HrGetIDsFromNames - IMAPIProp == NULL
]

Thanks.
 
D

Dmitry Streblechenko

What is your version of Outlook? Do you by by chance have both Outlook and
Exchange Server installed on the same machine?

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

gopi said:
Here is the exact error message I am getting:

[
Microsoft Visual Basic
--------------------------

Run-time error '-2147418113 (8000ffff)':
Error in _HrGetIDsFromNames - IMAPIProp == NULL
]

Thanks.

Dmitry Streblechenko said:
Crashing as in producing an access violation or as in "returning a COM
error"? In the latter case, what is the error?

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

gopi

I am using Outlook 2002 (10.2627.2625).
Yes, I have Exchange 2003 and Outlook 2002 installed on the same machine.

Thanks.

Dmitry Streblechenko said:
What is your version of Outlook? Do you by by chance have both Outlook and
Exchange Server installed on the same machine?

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

gopi said:
Here is the exact error message I am getting:

[
Microsoft Visual Basic
--------------------------

Run-time error '-2147418113 (8000ffff)':
Error in _HrGetIDsFromNames - IMAPIProp == NULL
]

Thanks.

Dmitry Streblechenko said:
Crashing as in producing an access violation or as in "returning a COM
error"? In the latter case, what is the error?

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

Thanks for your response.
But unfortunately the program is crashing when the following statement
is
encountered.
Tag =
sItem.GetIDsFromNames("{00020386-0000-0000-C000-000000000046}",
"From")

How can I fix this problem?

Please find the complete code below.

Thanks,
gopi

------------------------------------------------------------------
Public WithEvents MyOLApp As Outlook.Application
Public WithEvents MyOLItems As Outlook.Items


Sub Intialize_Event_Handlers()

Set MyOLApp = Application
Set MyOLItems =
Application.Session.GetDefaultFolder(olFolderInbox).Items

MsgBox "Initialize Event Handlers successful"

End Sub

Private Sub Command1_Click()
Intialize_Event_Handlers
End Sub

Private Sub MyOLApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
MsgBox "I am in ItemSend handler"

Dim myMailItem As Outlook.MailItem
Set myMailItem = Item

MsgBox myMailItem.Subject

Dim sItem As Redemption.SafeMailItem
Set sItem = CreateObject("Redemption.SafeMailItem")
sItem.Item = myMailItem


Tag =
sItem.GetIDsFromNames("{00020386-0000-0000-C000-000000000046}",
"From") 'It is crashing here
Tag = Tag Or &H1E 'the type is PT_STRING8
sItem.Fields(Tag) = "Someone <[email protected]>"
sItem.Subject = sItem.Subject 'to trick Outlook into thinking that
something has changed
sItem.Save


End Sub
-------------------------------------------------------------------



:

Modifying the PR_TRANSPORT_MESSAGE_HEADERS property has no effect on
the
outgoing messages.
To add an X-header, you need to create a named string MAPI property
with
a
particular GUID.
See http://www.dimastr.com/redemption/faq.htm#14 for a Redemption
example.
It shows howw to change the "From" header, but it is equally
applicable
to
any MME header.

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

Environment:
-Outlook 2002(XP)
-Added references to "Microsoft Outlook 10.0 Object Library" &
"Microsoft
CDO 1.21 Library"

I have written a VB project using MS Visual Basic 6.0. My intention
is
to
add a X-Header to a mail that is being sent from

Outlook. I am capturing the ItemSend event and trying to add the
header
in
that event handler.

Please find the complete source code below. Please note that the Sub
ChangeHeader() is working fine if I call it for

an existing mail in my Outlook Inbox. But I have a problem in
calling
this
ChangeHeader() from my ItemSend event handler, as

ChangeHeader() takes MAPI.Message as an argument, but
MyOLApp_ItemSend()
is
giving me Outlook.MailItem.

How do I convert Outlook.MailItem to MAPI.Message?
Or
Is there any other way to add the X-header without needing to have a
MAPI.Message object?


Thanks,
Gopi

************************************************************************


Public WithEvents MyOLApp As Outlook.Application

Sub Intialize_Event_Handlers()

Set MyOLApp = Application
MsgBox "Initialize Event Handlers successful"

End Sub



Private Sub Command1_Click()

Intialize_Event_Handlers

End Sub



Private Sub MyOLApp_ItemSend(ByVal Item As Object, Cancel As
Boolean)

MsgBox "I am in ItemSend handler"

Dim myMailItem As Outlook.MailItem
Set myMailItem = Item

MsgBox myMailItem.Subject

'How do I now call ChangeHeader(), which takes MAPI.Message, as
an
argument!!!
'Add the custom header now
'ChangeHeader oMessage


End Sub



Sub ChangeHeader(oMessage As MAPI.Message)

' Initalize error handling
On Error Resume Next

MsgBox "ChangeHeader - BEGIN", vbInformation

Dim oFields As MAPI.Fields
Set oFields = oMessage.Fields

Dim strheader As String

' Get SMTP header
Err.Clear
strheader = oFields.Item(CdoPR_TRANSPORT_MESSAGE_HEADERS).Value

If Err.Number = 0 Then
MsgBox strheader 'Display the original Internet headers

'Append the custom X-Header now!
oMessage.Fields(CdoPR_TRANSPORT_MESSAGE_HEADERS) =
oMessage.Fields(CdoPR_TRANSPORT_MESSAGE_HEADERS) & vbCrLf &

"X-MY-HEADER9: Hello"

ElseIf Err.Number = &H8004010F Then
Err.Clear
MsgBox "No SMTP message header information on this message",
vbInformation

'Add the custom X-Header now
oFields.Add CdoPR_TRANSPORT_MESSAGE_HEADERS, "X-MY-NEWHEADER:
Hello"

Else
MsgBox "some vague scenario", vbInformation

End If


oMessage.Update

MsgBox "ChangeHeader - END", vbInformation

End Sub


************************************************************************
Click to expand...
Click to expand...
Click to expand...
 
D

Dmitry Streblechenko

Such a configuration is not supported by MS: both Outlook and Exchange
install their own incompativle versions of MAPI. In this particular case,
Redemption ends up using the Exchange version of MAPI, so the marshalling of
MAPI objects does not work correctly.

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

gopi said:
I am using Outlook 2002 (10.2627.2625).
Yes, I have Exchange 2003 and Outlook 2002 installed on the same machine.

Thanks.

Dmitry Streblechenko said:
What is your version of Outlook? Do you by by chance have both Outlook
and
Exchange Server installed on the same machine?

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

gopi said:
Here is the exact error message I am getting:

[
Microsoft Visual Basic
--------------------------

Run-time error '-2147418113 (8000ffff)':
Error in _HrGetIDsFromNames - IMAPIProp == NULL
]

Thanks.

:

Crashing as in producing an access violation or as in "returning a COM
error"? In the latter case, what is the error?

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

Thanks for your response.
But unfortunately the program is crashing when the following
statement
is
encountered.
Tag =
sItem.GetIDsFromNames("{00020386-0000-0000-C000-000000000046}",
"From")

How can I fix this problem?

Please find the complete code below.

Thanks,
gopi

------------------------------------------------------------------
Public WithEvents MyOLApp As Outlook.Application
Public WithEvents MyOLItems As Outlook.Items


Sub Intialize_Event_Handlers()

Set MyOLApp = Application
Set MyOLItems =
Application.Session.GetDefaultFolder(olFolderInbox).Items

MsgBox "Initialize Event Handlers successful"

End Sub

Private Sub Command1_Click()
Intialize_Event_Handlers
End Sub

Private Sub MyOLApp_ItemSend(ByVal Item As Object, Cancel As
Boolean)
MsgBox "I am in ItemSend handler"

Dim myMailItem As Outlook.MailItem
Set myMailItem = Item

MsgBox myMailItem.Subject

Dim sItem As Redemption.SafeMailItem
Set sItem = CreateObject("Redemption.SafeMailItem")
sItem.Item = myMailItem


Tag =
sItem.GetIDsFromNames("{00020386-0000-0000-C000-000000000046}",
"From") 'It is crashing here
Tag = Tag Or &H1E 'the type is PT_STRING8
sItem.Fields(Tag) = "Someone <[email protected]>"
sItem.Subject = sItem.Subject 'to trick Outlook into thinking
that
something has changed
sItem.Save


End Sub
-------------------------------------------------------------------



:

Modifying the PR_TRANSPORT_MESSAGE_HEADERS property has no effect
on
the
outgoing messages.
To add an X-header, you need to create a named string MAPI property
with
a
particular GUID.
See http://www.dimastr.com/redemption/faq.htm#14 for a Redemption
example.
It shows howw to change the "From" header, but it is equally
applicable
to
any MME header.

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

Environment:
-Outlook 2002(XP)
-Added references to "Microsoft Outlook 10.0 Object Library" &
"Microsoft
CDO 1.21 Library"

I have written a VB project using MS Visual Basic 6.0. My
intention
is
to
add a X-Header to a mail that is being sent from

Outlook. I am capturing the ItemSend event and trying to add the
header
in
that event handler.

Please find the complete source code below. Please note that the
Sub
ChangeHeader() is working fine if I call it for

an existing mail in my Outlook Inbox. But I have a problem in
calling
this
ChangeHeader() from my ItemSend event handler, as

ChangeHeader() takes MAPI.Message as an argument, but
MyOLApp_ItemSend()
is
giving me Outlook.MailItem.

How do I convert Outlook.MailItem to MAPI.Message?
Or
Is there any other way to add the X-header without needing to
have a
MAPI.Message object?


Thanks,
Gopi

************************************************************************


Public WithEvents MyOLApp As Outlook.Application

Sub Intialize_Event_Handlers()

Set MyOLApp = Application
MsgBox "Initialize Event Handlers successful"

End Sub



Private Sub Command1_Click()

Intialize_Event_Handlers

End Sub



Private Sub MyOLApp_ItemSend(ByVal Item As Object, Cancel As
Boolean)

MsgBox "I am in ItemSend handler"

Dim myMailItem As Outlook.MailItem
Set myMailItem = Item

MsgBox myMailItem.Subject

'How do I now call ChangeHeader(), which takes MAPI.Message,
as
an
argument!!!
'Add the custom header now
'ChangeHeader oMessage


End Sub



Sub ChangeHeader(oMessage As MAPI.Message)

' Initalize error handling
On Error Resume Next

MsgBox "ChangeHeader - BEGIN", vbInformation

Dim oFields As MAPI.Fields
Set oFields = oMessage.Fields

Dim strheader As String

' Get SMTP header
Err.Clear
strheader =
oFields.Item(CdoPR_TRANSPORT_MESSAGE_HEADERS).Value

If Err.Number = 0 Then
MsgBox strheader 'Display the original Internet headers

'Append the custom X-Header now!
oMessage.Fields(CdoPR_TRANSPORT_MESSAGE_HEADERS) =
oMessage.Fields(CdoPR_TRANSPORT_MESSAGE_HEADERS) & vbCrLf &

"X-MY-HEADER9: Hello"

ElseIf Err.Number = &H8004010F Then
Err.Clear
MsgBox "No SMTP message header information on this
message",
vbInformation

'Add the custom X-Header now
oFields.Add CdoPR_TRANSPORT_MESSAGE_HEADERS,
"X-MY-NEWHEADER:
Hello"

Else
MsgBox "some vague scenario", vbInformation

End If


oMessage.Update

MsgBox "ChangeHeader - END", vbInformation

End Sub


************************************************************************
Click to expand...
Click to expand...
Click to expand...
 
D

D Fabian

I do not have both Outlook and Exchange on the same machine and I too am getting this same error. I am running outlook 2003.
Environment:
-Outlook 2002(XP)
-Added references to "Microsoft Outlook 10.0 Object Library" & "Microsoft
CDO 1.21 Library"

I have written a VB project using MS Visual Basic 6.0. My intention is to
add a X-Header to a mail that is being sent from

Outlook. I am capturing the ItemSend event and trying to add the header in
that event handler.

Please find the complete source code below. Please note that the Sub
ChangeHeader() is working fine if I call it for

an existing mail in my Outlook Inbox. But I have a problem in calling this
ChangeHeader() from my ItemSend event handler, as

ChangeHeader() takes MAPI.Message as an argument, but MyOLApp_ItemSend() is
giving me Outlook.MailItem.

How do I convert Outlook.MailItem to MAPI.Message?
Or
Is there any other way to add the X-header without needing to have a
MAPI.Message object?


Thanks,
Gopi

************************************************************************


Public WithEvents MyOLApp As Outlook.Application

Sub Intialize_Event_Handlers()

Set MyOLApp = Application
MsgBox "Initialize Event Handlers successful"

End Sub



Private Sub Command1_Click()

Intialize_Event_Handlers

End Sub



Private Sub MyOLApp_ItemSend(ByVal Item As Object, Cancel As Boolean)

MsgBox "I am in ItemSend handler"

Dim myMailItem As Outlook.MailItem
Set myMailItem = Item

MsgBox myMailItem.Subject

'How do I now call ChangeHeader(), which takes MAPI.Message, as an
argument!!!
'Add the custom header now
'ChangeHeader oMessage


End Sub



Sub ChangeHeader(oMessage As MAPI.Message)

' Initalize error handling
On Error Resume Next

MsgBox "ChangeHeader - BEGIN", vbInformation

Dim oFields As MAPI.Fields
Set oFields = oMessage.Fields

Dim strheader As String

' Get SMTP header
Err.Clear
strheader = oFields.Item(CdoPR_TRANSPORT_MESSAGE_HEADERS).Value

If Err.Number = 0 Then
MsgBox strheader 'Display the original Internet headers

'Append the custom X-Header now!
oMessage.Fields(CdoPR_TRANSPORT_MESSAGE_HEADERS) =
oMessage.Fields(CdoPR_TRANSPORT_MESSAGE_HEADERS) & vbCrLf &

"X-MY-HEADER9: Hello"

ElseIf Err.Number = &H8004010F Then
Err.Clear
MsgBox "No SMTP message header information on this message",
vbInformation

'Add the custom X-Header now
oFields.Add CdoPR_TRANSPORT_MESSAGE_HEADERS, "X-MY-NEWHEADER: Hello"

Else
MsgBox "some vague scenario", vbInformation

End If


oMessage.Update

MsgBox "ChangeHeader - END", vbInformation

End Sub


************************************************************************
On Friday, May 11, 2007 2:22 PM Dmitry Streblechenko wrote:
Modifying the PR_TRANSPORT_MESSAGE_HEADERS property has no effect on the
outgoing messages.
To add an X-header, you need to create a named string MAPI property with a
particular GUID.
See http://www.dimastr.com/redemption/faq.htm#14 for a Redemption example.
It shows howw to change the "From" header, but it is equally applicable to
any MME header.

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

news:[email protected]...
Click to expand...
[
Microsoft Visual Basic
--------------------------

Run-time error '-2147418113 (8000ffff)':
Error in _HrGetIDsFromNames - IMAPIProp == NULL
]

Thanks.

"Dmitry Streblechenko" wrote:
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Unable to add "X-Header" to a mail that is being sent... 4
how to create a event in VB.NET for outlook 2003 1
The operation failed due to a registry or installation problem. Restart Outlook and try again. 0
Message Box to Display a count of Records 3
Confirm Each Recipient in a New Outlook Mail Before it is Sent 4
Confirm Each Recipient in a New Outlook Mail Before it is Sent 1
Adding a filter to a command button that has a security password 14
OnAction and WithEvents - Connecting a Custom CommandBarButton to an action. 5

Top