Hi All

I'm having difficulty sending a message via CDO that contains a hyperlink.
The messages send without any problems - but do not always reach their
destination.

Can anyone see anything wrong with my code below? Or can anyone suggest a
way of debuging where the mail is going?

Thanks
Matt


The following works well
SendMail Now, "email@server.com", " href='httpwwwgooglecom'>httpwwwgooglecom"
The following does not error but does not arrive either
SendMail Now, "email@server.com", " href='http://www.google.com'>http://www.google.com"



'\\ SendMail
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Public Sub SendMail(Subject As String, Recipient As String, BodyText As
String)
Dim iMsg As CDO.Message 'Object
Dim iConf As CDO.Configuration 'Object
Dim Flds
Dim strHTML As String
Dim strSMTPserver As String
Const cdoSendUsingPort = 2
On Error GoTo ErrorHandler

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
strSMTPserver = sGetParameter("SMTP Server")

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
cdoSendUsingPort
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
strSMTPserver
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 10
Flds.Update

strHTML = ""
strHTML = strHTML & Replace(BodyText, Chr(13), "")
strHTML = strHTML & ""

With iMsg
Set .Configuration = iConf
.To = Recipient
.From = NetGetUser & sGetParameter("Email Suffix")
.Subject = Subject
.HTMLBody = strHTML
.send
End With

finish:

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

Exit Sub
ErrorHandler:
Select Case Err.Number
Case -2147220973
MsgBox "Unable to send email via " & strSMTPserver, vbCritical,
MSG_TITLE
Case Else
MsgBox Err.Description, vbCritical, MSG_TITLE
End Select
GoTo finish
End Sub

Archived from group: microsoft>public>exchange2000>applications