VB Code:
Private Sub cmdsend_Click()
Set Mailer = CreateObject("Geocel.Mailer")
Mailer.AddServer "mail", 25
Mailer.FromAddress = txtemail.Text
Mailer.FromName = txtname.Text
Mailer.Subject = "The JukeBox 2 Bug Report"
Mailer.Body = "Bug Name: " & txtbugname.Text & "" & vbCrLf & _
"Bug Description: " & txtbug.Text & "" & vbCrLf
bSuccess = Mailer.Send()
If bSuccess = False Then
If Mailer.Queued = False Then
MsgBox ("Could not send message. failed to queue!")
Else
MsgBox ("Could not send message. the server is queued!")
End If
Else
MsgBox ("Bug Report Sent Successfully!")
End If
End Sub