View Full Version : Excel - Email Groupwise HTML

07-14-2008, 06:22 PM
I am using the excellent code floating around (copy below) to send an email from excel 2000 through Groupwise v7.

My issue is that the email is created as a "text" email and not HTML. I wish to incude a HTML link so the user can open the file. I do not attach the file as the workbook is too large to send throught the email system.

Any ideas will be appreciated?

Option Explicit
Private ogwApp As GroupwareTypeLibrary.Application
Private ogwRootAcct As GroupwareTypeLibrary.account
Public EmailText As String

Sub EmailReport()
' A reference must be set to the Groupware Type Library

Dim ogwNewMessage As GroupwareTypeLibrary.Mail
Dim i As Integer
Dim Ans As String
Set ogwApp = CreateObject("NovellGroupWareSession")
Set ogwRootAcct = ogwApp.Login
Set ogwNewMessage = ogwRootAcct.WorkFolder.Messages.Add("GW.MESSAGE.MAIL")

' From
ogwNewMessage.FromText = "Retail Information Management Team"
' Distribution list
ogwNewMessage.Recipients.Add "Leslie Simpson", , egwTo
' Subject
ogwNewMessage.Subject = "REPORT AVAILABLE: " & ActiveWorkbook.Name
' BodyText
EmailText = "Dear XXXX," & vbNewLine & vbNewLine & _
"REPORT: " & ActiveWorkbook.Name & vbNewLine & vbNewLine & _
"This report has been updated with the latest data." & _
vbNewLine & vbNewLine & _
"Click on this link once to open the workbook." & _
vbNewLine & vbNewLine & _
"I:\PMAN\Consumer Lending Reporting Folder\CC\" & ActiveWorkbook.Name & _
vbNewLine & vbNewLine & _
"Regards," & vbNewLine & vbNewLine & _

ogwNewMessage.BodyText = EmailText
' Send
End Sub

07-14-2008, 07:46 PM
I have prgess a bit further and come up with this code that replaces the spaces in the URL with %20 :

!!!! I can't paste the code as i can't paster url's !!!

How do i get rid of the %20's appearing in the URL of the email?