M
Microsoft
The following code used to work fine in Outlook 2000, now with Outlook 2002
it doesn't. Now it leaves a BLANK body.
Can anyone tell me why this no longer works? Also, we try the same thing
with an RTF type file as the body (.body property), and it just puts junk in
the body and does not interpret it as a RTF file.
Thanks.
Bob
*****************************************************
oOutlook = CREATEOBJECT("outlook.application")
oMail = oOutLook.CreateItem(0)
WITH oMail
oRecipient = .Recipients.Add("(e-mail address removed)")
oRecipient.type = 1
.Subject = "THIS IS A TEST"
.bodyformat = 2 && This new property doesn't seem to have any effect on
a send.
.HTMLBody = "<HTML><H2>My HTML page.</H2><BODY>My body.</BODY></HTML>"
.send
ENDWITH
it doesn't. Now it leaves a BLANK body.
Can anyone tell me why this no longer works? Also, we try the same thing
with an RTF type file as the body (.body property), and it just puts junk in
the body and does not interpret it as a RTF file.
Thanks.
Bob
*****************************************************
oOutlook = CREATEOBJECT("outlook.application")
oMail = oOutLook.CreateItem(0)
WITH oMail
oRecipient = .Recipients.Add("(e-mail address removed)")
oRecipient.type = 1
.Subject = "THIS IS A TEST"
.bodyformat = 2 && This new property doesn't seem to have any effect on
a send.
.HTMLBody = "<HTML><H2>My HTML page.</H2><BODY>My body.</BODY></HTML>"
.send
ENDWITH