Wild Bill'

Good ideas.

I tried adding string to top of the html message and still no message in the
sent folder. I tried sending plain text (.body instead of .htmlbody), and
again the message arrives fine, but the sent folder has a blank message.

Not sure how to check the .body in the sent folder programmatically. Any
chance you can give me an example of how to? I know this should not be hard
to do, but I'm still a novice at some of this.

Thanks again,
Mark



"Wild Bill" wrote:

Wild thoughts: Debug.Print the body before and after the send.
Try Chr() on the first character.
Is the text missing just from the OL interface, or have you tried
looking at .Body (in the sent folder) programmatically?

On Wed, 1 Aug 2007 11:22:00 -0700, Markus
wrote:

"Markus" wrote in message
...
I have been able to send HTML email programmatically thru Outlook from
within
my app. The message is received by the recipient, and the email is
recorded
as sent in the Outllook sent box. But the message in the sent box is
empty.

I basically read the html email message from a .htm file, assign the
message
to a variable, and then assign the value of this variable to the HTMLbody
property. I then .send() the email thru Outlook, and the message is
received
fine. The email is registered in the Outlook sent box as being sent, but
the
message there is completely blank.

Can anyone give me some ideas on what I may be missing?

Many thanks,
Mark

Well assuming you've selected (highlighted) the message,
Dim mItem As MailItem
Set mItem = Application.ActiveExplorer.Selection.Item(1)
debug.print mitem.body

To get to the message use something like the following (untested).
I believe you might also alternatively utilize
Item.SaveSentMessageFolder.

Sub ShowSpecificSentBody(MySubject As String)
Dim Mail As Outlook.MailItem
Dim Items As Outlook.MAPIFolder
Dim obj as Object

Set Items =
Application.Session.GetDefaultFolder(olFolderSentM ail).Items
For Each obj In Items
If TypeOf obj Is Outlook.MailItem Then
Set Mail=obj
If Mail.Subject=MySubject Then
debug.print Mail.Body
Exit For
End If
End If
Next
End Sub

Not knowing what the mystery of it missing is - and if it's also missing
here - perhaps you can assign it here as a temporary workaround.

Another wild thought led to the article "INFO: MAPI Is Not Suitable for
HTML Messages"
http://support.microsoft.com/kb/268440/
that may have merit in solving your dilemma. Perhaps the real experts
here can comment on that. It might be helpful to show your send command
and context code and Outlook version.

More info and code about examining body can be adapted from msdn on
HTMLProperty
http://msdn2.microsoft.com/en-us/lib...ffice.11).aspx
and
http://msdn2.microsoft.com/en-us/lib...ffice.10).aspx

I'm an OL programming novice, so Ken and all, please try to stay close
here!