Outlook Shortcut

[Ross]

I am using a custom form to post to a public folder. In the forms script I want to send a message that contains an outlook shortcut to that post using the items .EntryID. This works fine in Outlook 2000 but in Outlook 2003 when the message format is set to HTML the shortcut displays only as text. I have tried setting the .BodyFormat = 1 (plain text) or .BodyFormat = 3 (rich text) when Outlook 2003 is being used but it seems to ignore that setting.
Here is the code:

Set MyItem = Application.CreateItem(olMailItem)
on error resume next
MyItem.BodyFormat = 3 'olFormatRichText = 3
'Outlook 2000 causes error 438 Object doesn't support this property or method
On Error GoTo 0
MyItem.Subject = "Time Off Requested"
MyItem.Body = "See Time Off Request Form " & "<Outlook:" & Item.EntryID & ">"
MyItem.Send

How should I be doing this? Also is there a way to make the text displayed be different than the .EntryID?

 

[Sue Mosher [MVP-Outlook]]

If you're creating an HTML message and want a link, you need to put it in an
<a> tag, just like a link on a web page:
--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

I am using a custom form to post to a public folder. In the forms script I

want to send a message that contains an outlook shortcut to that post using
the items .EntryID. This works fine in Outlook 2000 but in Outlook 2003 when
the message format is set to HTML the shortcut displays only as text. I have
tried setting the .BodyFormat = 1 (plain text) or .BodyFormat = 3 (rich
text) when Outlook 2003 is being used but it seems to ignore that setting.

Here is the code:

Set MyItem = Application.CreateItem(olMailItem)
on error resume next
MyItem.BodyFormat = 3 'olFormatRichText = 3
'Outlook 2000 causes error 438 Object doesn't support this property or method
On Error GoTo 0
MyItem.Subject = "Time Off Requested"
MyItem.Body = "See Time Off Request Form " & "<Outlook:" & Item.EntryID & ">"
MyItem.Send

How should I be doing this? Also is there a way to make the text displayed

be different than the .EntryID?