Sending email from Windows application Not working.

[xin.yadong]

Hi:
I have a shared function for sending Email using SMTP.
It works fine in a ASP.NET web application. But when I use it in a
VB.Net Windows application, it always gave me an error: "Could not
access 'CDO.Message' object."
I am runing both Web and Windows App on same test PC, and SMTP server
is hosted on another machine.

The function for sending Email is:

Public Shared Function SendEmail(ByVal email_From As String, _
ByVal email_To As String, _
ByVal email_Subject As String, _
ByVal email_Body As String, _
Optional ByVal email_CC As String = "", _
Optional ByVal email_BCC As String = "", _
Optional ByRef email_Attachmen tList As
System.Collecti ons.IList = Nothing)

Dim email As New System.Web.Mail .MailMessage

email.From = email_From
email.To = email_To
email.Subject = email_Subject
email.Body = email_Body

email.Cc = email_CC
email.Bcc = email_BCC
email.BodyForma t = Web.Mail.MailFo rmat.Text

If Not email_Attachmen tList Is Nothing Then
email.Attachmen ts.Add(email_At tachmentList)
End If

Try
System.Web.Mail .SmtpMail.SmtpS erver = "SMTP_XXX"
System.Web.Mail .SmtpMail.Send( email)
Catch ex As Exception

Microsoft.Appli cationBlocks.Ex ceptionManageme nt.ExceptionMan ager.Publish(ex )
End Try
End Function


---------------
Does anybody have any idea?

Thanks

[xin.yadong]

When I use the following function to test the SMTP server, it return
true in web app but return false in Win app.
My Test PC is XP pro.

Public Shared Function DetectSMTPServe r( _
Optional ByVal host As String = "XXX") _
As Boolean
Dim tcp As New System.Net.Sock ets.TcpClient
Dim ServerExists As Boolean = False
Try
tcp.Connect(hos t, 25)
ServerExists = True
Catch ex As Exception
ServerExists = False
Finally
tcp.Close()
End Try
Return ServerExists
End Function