CDO message with hyperlink

CDO message with hyperlink
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", "<a 
href='httpwwwgooglecom'>httpwwwgooglecom</a>"
The following does not error but does not arrive either
    SendMail Now, "email@server.com", "<a 
href='http://www.google.com'>http://www.google.com</a>"



'\\ 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 = "<HTML><HEAD></HEAD><BODY>"
  strHTML = strHTML & Replace(BodyText, Chr(13), "<BR>")
  strHTML = strHTML & "</BODY></HTML>"

  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
date: Wed, 10 Aug 2005 10:58:43 +1000 author: Matt Fitzmaurice