VB6 CDO forwarded emails now HTML after moving Public Folder to 2003

  • Thread starter Thread starter karlman
  • Start date Start date
K

karlman

I have an old app that receives email faxes and then forwards them on.
There is some routing information I save in the body of the message.
This has always worked fine. I recently moved the public folder onto
our Exchange 2003 (from 5.5) and now the code behaves differently.

This is the original code:
====================================================
Set oForward = oMsg.Forward
Set oRecip = oForward.Recipients.Add("FaxRouterInbox")
oRecip.Resolve
oForward.Subject = strParsed(1)

strtext = strParsed(1) & vbCrLf
For iCount = 21 To UBound(strParsed)
strtext = strtext & strParsed(iCount) & vbCrLf
Next

oForward.Text = strtext
oForward.Send
====================================================

What happens now is the part where I update the body (oForward.Text =
strtext) does not in fact do so. As soon as it sends the body reverts
back to the original body of the forwarded email. It also is sending as
HTML format rather than plain text.

If I add this code it works fine but still in HTML format.
====================================================
oForward.Text = strtext
oForward.Update
oForward.Text = strtext
oForward.Send
====================================================

The after the update the body reverts back to the original. When I set
it a second time it takes the new value.

Any clues on this?

VB6, Exchange 2003, CDO 1.21

Thank you!
Karl
 
Back
Top