From: Sipho on

I need help on this:

I have a class that should send mail using CDONTS in vb6 and it looks
like my mail is never send to the recipient.
I copied this code from the net and it's still does not work: -
Note: I added a reference to MS CDO for NTS 1.2 Library

Public Function blnSendMail(strTo As String, strFrom As String,
strSubject As String, _
strBody As String, pName As String) As Boolean
'The CDO object is located on NT server, usually with the resource
kit installed.
On Error Resume Next
Dim mail As CDONTS.NewMail ' Object
Set mail = New CDONTS.NewMail '("CDONTS.NewMail.1")
mail.To = strTo
mail.From = strFrom
mail.Subject = strSubject
mail.Body = strBody
Set mail = Nothing
If (Err.Number = 0) Then
blnSendMail77 = True
Exit Function
End If

End Function

Help please!!!!