Prev: POS
Next: msRdpClient: send data to starting application?
From: Sipho on 14 Feb 2005 10:28
Hi,

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
mail.Send
Set mail = Nothing
If (Err.Number = 0) Then
blnSendMail77 = True
Exit Function
Else
End If

End Function

Help please!!!!
 | 
Pages: 1
Prev: POS
Next: msRdpClient: send data to starting application?