Inserting a Hyperlink and Rich Text in Groupwise Email

cksm4 · #1 03-07-2011, 06:33 PM

Hello all,

Yes we still use GroupWise. I have found and modified a macro that creates and sends an email as needed. It works great, except that I need to insert a hyperlink to a file on the network. In order to hyperlink, the inserted text must be rich text. My problem is that the code creates an e-mail where the text is distorted and some of the characters disappear. Here is the code:

Code:

 
Private Sub CmdSubmit_Click()
 
Dim gwMessage As GroupwareTypeLibrary.Message2
Dim gwaccount As GroupwareTypeLibrary.Account2
Dim gwapp As GroupwareTypeLibrary.Application
Dim gwattach As GroupwareTypeLibrary.Attachment
Dim Manager As String
    
Manager = InputBox(Prompt:="Enter manager user ID:", _
        Title:="SUBMIT DOCUMENT FOR REVIEW")
If Manager = "" Then
    Manager = InputBox(Prompt:="You have not entered a user ID! Enter manager user ID:", _
          Title:="SUBMIT DOCUMENT FOR REVIEW")
End If
'Open a groupware session.
Set gwapp = CreateObject("NovellGroupWareSession")

'Login using the open acount
Set gwaccount = gwapp.Login()
'Create a new message in the mailbox.
Set gwMessage = gwaccount.MailBox.Messages.Add("GW.MESSAGE.MAIL", egwDraft)
gwMessage.BodyText.RTF = "File://" & ActiveDocument.Path & "\" & ActiveDocument.Name
gwMessage.Subject = "Pending Review"
gwMessage.Recipients.Add Manager
'Send the message
gwMessage.Send

I believe I need the "File://" included in the 'gwMessage.BodyText.RTF' command to create the hyperlink, although my value may be wrongly formatted for a string. Although, I did a msgbox with the value and it appears right. (Note the RTF is needed in the 'gwMessage.BodyText.RTF' command for rich text).

It appears the "-" character in my file path could be causing an issue as this is where the distortion starts. What am I doing wrong??

Thanks!

Brock

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
problem reading rich text messages	Rkaskas	Outlook	3	03-14-2011 09:40 AM
Rich Text Box Font	jslist@sbcglobal.net	Word	0	03-25-2010 08:29 AM
Rich text in protected word document	jmarin	Word	0	12-01-2008 04:54 AM
Templates: automatic text generation from Rich Text content control	Chickenmunga	Word	0	10-01-2008 11:16 AM
Cannot hyperlink from an email	karen1430	Outlook	0	11-25-2007 03:54 PM