Send Mail from Web Service

[mmassari]

Hi,
I need to send a mail message from a web service.
If i execute the code from a Windows Form Application the message is
sended correctly but if i execute the same code from a web service an
exception is throwed "Could not access 'CDO.Message' object".

That's the code:

Public Sub Send()
Try
Dim i As String
Dim m As New MailMessage
m.BodyEncoding = System.Text.Encoding.UTF8
m.BodyFormat = MailFormat.Html
m.Priority = MailPriority.Normal

m.Subject = "Hello"
m.To = "us***@company.com"
m.From = "us***@company.com"
m.Body = "Hello world"
Dim ss As SmtpMail
ss.SmtpServer = "mail.company.com"
ss.Send(m)
Catch ex As Exception
Debug.Write("Error: " & ex.Message)
End Try
End Sub

Why?
I need special permission?
I miss something?

Thanks

Michele

[Kenneth Windish]

Hi,

Check out the following link.
http://www.systemwebmail.com/faq/4.2.3.aspx#4.2.3

HTH
Ken

<mm******@omniway.sm> wrote in message
news:11**********************@o13g2000cwo.googlegr oups.com...

Hi,
I need to send a mail message from a web service.
If i execute the code from a Windows Form Application the message is
sended correctly but if i execute the same code from a web service an
exception is throwed "Could not access 'CDO.Message' object".

That's the code:

Public Sub Send()
Try
Dim i As String
Dim m As New MailMessage
m.BodyEncoding = System.Text.Encoding.UTF8
m.BodyFormat = MailFormat.Html
m.Priority = MailPriority.Normal

m.Subject = "Hello"
m.To = "us***@company.com"
m.From = "us***@company.com"
m.Body = "Hello world"
Dim ss As SmtpMail
ss.SmtpServer = "mail.company.com"
ss.Send(m)
Catch ex As Exception
Debug.Write("Error: " & ex.Message)
End Try
End Sub

Why?
I need special permission?
I miss something?

Thanks

Michele