Problem in Sending Mail using CDO in VB.net

[Kandan Mani]

Hi,
I have used CDO object in my vb.net code to send a mail. When i Send a mail, it sends the mail only after closing the application. Can any one help me please ?.

my code is below.

objmessage = CreateObject("CDO.Message")
objmessage.Subject = oUDS26.Value
objmessage.From = strUserEmail
objmessage.To = oUDS27.Value
objmessage.TextBody = "Please find the attachment."
objmessage.addattachment(strAttachment)
With objmessage.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strSMTPUser
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strSMTPPassWord
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CType(strSendUsing, Integer)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = CType(strSmtpAuthentication, Integer)
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CType(strSmtpPort, Integer)
.Update()

end with

objmessage.Send()


Thanks in advance.


Kandan Mani.

[kenobewan]

Try moving objmessage.Send() up a line.

[Kandan Mani]

Try moving objmessage.Send() up a line.

hi kenobewan,

Thanks for your reply. I have changed the code like this.


objmessage = CreateObject("CDO.Message") objmessage.Subject = oUDS26.Value
objmessage.From = strUserEmail
objmessage.To = oUDS27.Value
objmessage.TextBody = "Please find the attachment."
objmessage.addattachment(strAttachment)
objmessage.send() '// I have written this code here. Actually this code was after the configuration settings updation.
With objmessage.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strSMTPUser
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strSMTPPassWord
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CType(strSendUsing, Integer)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = CType(strSmtpAuthentication, Integer)
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CType(strSmtpPort, Integer)
.Update()

End With


Now , It sends the mail Immediately before closing the application.It sends the mail for the mail ids which ends with yahoo.com,gmail.com etc. But, It never sends the mail for the mail ids which ends with .yahoo.co.in. While sending mail, In my system, the Symantic Client Firewall says that my mail server rejected the mail( only for yahoo.co.in) . Why ?


Note: When I write the code objmessage.sendmail after updating the configuration settings, It sends the mail to yahoo.co.in too. But, the problem was to close the application to send the mail

Kandan mani