vbSendMail

[lewmur]

I'm trying vbSendMail for the first time and have the follow code written
[CODE
Private Sub Send_Click()
Set poSendMail = New clsSendMail
poSendMail.UseAuthentication = True
poSendMail.UsePopAuthentication = True
poSendMail.POP3Host = "pop.earthlink.net"
poSendMail.UserName = "lmyname"
poSendMail.Password = "password"
poSendMail.SMTPHost = cnp!ehost
poSendMail.SMTPPort = 587
poSendMail.From = "lmyname4@earthlink.net"
poSendMail.FromDisplayName = cnp!Name
poSendMail.Recipient = sendto
poSendMail.RecipientDisplayName = "RCompany, LLC"
poSendMail.ReplyToAddress = cnp!email
poSendMail.Subject = "Research Request"
poSendMail.Message = "This is a test"
poSendMail.send
End Sub
Private Sub poSendMail_SendSuccesful()
Stop
MsgBox ("Mail Sent OK!")

End Sub
Private Sub poSendMail_SendFailed(Explanation As String)
Stop
' vbSendMail 'SendFailed Event
MsgBox ("Your attempt to send mail failed for the following reason(s): " & vbCrLf & Explanation)
lblProgress = ""
Screen.MousePointer = vbDefault
cmdSend.Enabled = True

End Sub
[/CODE]

But when I click the "Send" button, the click code executes but neither the SendFailed nor the SendSuccessful event is triggered. And the email doesn't reach the recipient.

[Steve Grant]

Firstly, I assume you have dimensioned poSendMail like this;

Private WithEvents poSendMail as vbSendMail.clsSendMail

So, if the events trigger, you have cancelled what will happen by inserting the 'Stop' command;

Private Sub poSendMail_SendSuccesful()
    Stop
    MsgBox ("Mail Sent OK!")
End Sub

'Stop' stops programme execution at the current line.
As to why you cannot send, I can only assume you have made a mistake with some of your data. Try the demo programme that came with VBSendMail and if it works, you know you did something wrong.

I just downloaded and tried it, works fine for me so good luck. You will notice that there are no 'Stop' commands in the demo poSendMail events.

Steve.

[lewmur]

Firstly, I assume you have dimensioned poSendMail like this;

Private WithEvents poSendMail as vbSendMail.clsSendMail

So, if the events trigger, you have cancelled what will happen by inserting the 'Stop' command;

Private Sub poSendMail_SendSuccesful()
    Stop
    MsgBox ("Mail Sent OK!")
End Sub

'Stop' stops programme execution at the current line.
As to why you cannot send, I can only assume you have made a mistake with some of your data. Try the demo programme that came with VBSendMail and if it works, you know you did something wrong.

I just downloaded and tried it, works fine for me so good luck. You will notice that there are no 'Stop' commands in the demo poSendMail events.

Steve.

I use the "stop" as a debugging tool. The program isn't stopping so it is never reaching the "stop." It doesn't work without the "stop" anyway.

[sky135]

My question is: vesendmail can't sent mail to USA, but it can send mial to CHINA. why?