PDA

View Full Version : Excel - Email Groupwise HTML



lsimps
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?

Code:
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 & _
Application.UserName

ogwNewMessage.BodyText = EmailText
' Send
ogwNewMessage.Send
End Sub

lsimps
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?