Sending emails

[VK]

Hello,

I am trying to send one simple email. However each time
I try this I get the following error:

The message could not be sent to the SMTP server. The
transport error code was 0x80040217. The server response
was not available.

Here is my code:

Function SendEmail()
Dim mail As New MailMessage
mail.Fields.Add
("http://schemas.microso ft.com/cdo/configuration/smtpauthen
ticate", 1)
mail.Fields.Add
("http://schemas.microso ft.com/cdo/configuration/senduserna
me", "user")
mail.Fields.Add
("http://schemas.microso ft.com/cdo/configuration/sendpasswo
rd", "***")

mail.From = "us**@user. com"
mail.To = "my*****@myemai l.com"
mail.Subject = "test" 'Server.GetLast Error.Message
mail.Body = "body" 'Server.GetLast Error.StackTrac e

SmtpMail.SmtpSe rver = "mail.myemail.n et"
SmtpMail.Send(m ail)

End Function

I have replaced the from, to, smtp server in this email
with some fake data, however in my application I am using
the real data.

Any idea?

[Brad]

Here is good resource that might be helpful:
http://www.systemwebmail.com/faq.aspx
http://www.systemwebmail.net/faq/3.8.aspx
"VK" <an*******@disc ussions.microso ft.com> wrote in message
news:14******** *************** *****@phx.gbl.. .

Hello,

I am trying to send one simple email. However each time
I try this I get the following error:

The message could not be sent to the SMTP server. The
transport error code was 0x80040217. The server response
was not available.

Here is my code:

Function SendEmail()
Dim mail As New MailMessage
mail.Fields.Add
("http://schemas.microso ft.com/cdo/configuration/smtpauthen
ticate", 1)
mail.Fields.Add
("http://schemas.microso ft.com/cdo/configuration/senduserna
me", "user")
mail.Fields.Add
("http://schemas.microso ft.com/cdo/configuration/sendpasswo
rd", "***")

mail.From = "us**@user. com"
mail.To = "my*****@myemai l.com"
mail.Subject = "test" 'Server.GetLast Error.Message
mail.Body = "body" 'Server.GetLast Error.StackTrac e

SmtpMail.SmtpSe rver = "mail.myemail.n et"
SmtpMail.Send(m ail)

End Function

I have replaced the from, to, smtp server in this email
with some fake data, however in my application I am using
the real data.

Any idea?

[Brad]

Here is good resource that might be helpful:
http://www.systemwebmail.com/faq.aspx
http://www.systemwebmail.net/faq/3.8.aspx
"VK" <an*******@disc ussions.microso ft.com> wrote in message
news:14******** *************** *****@phx.gbl.. .

Hello,

I am trying to send one simple email. However each time
I try this I get the following error:

The message could not be sent to the SMTP server. The
transport error code was 0x80040217. The server response
was not available.

Here is my code:

Function SendEmail()
Dim mail As New MailMessage
mail.Fields.Add
("http://schemas.microso ft.com/cdo/configuration/smtpauthen
ticate", 1)
mail.Fields.Add
("http://schemas.microso ft.com/cdo/configuration/senduserna
me", "user")
mail.Fields.Add
("http://schemas.microso ft.com/cdo/configuration/sendpasswo
rd", "***")

mail.From = "us**@user. com"
mail.To = "my*****@myemai l.com"
mail.Subject = "test" 'Server.GetLast Error.Message
mail.Body = "body" 'Server.GetLast Error.StackTrac e

SmtpMail.SmtpSe rver = "mail.myemail.n et"
SmtpMail.Send(m ail)

End Function

I have replaced the from, to, smtp server in this email
with some fake data, however in my application I am using
the real data.

Any idea?