Windows Services

Has probado con system.web.Mail y utilizar el objeto mail?

Private Function sendMail(ByVal strDestinatario As String, ByVal
aSubject As String, ByVal nombreDocumentoGenerado As String, ByVal strFrom As
String) As String
Dim MyMail As MailMessage = New MailMessage
Dim myAttachment As New MailAttachment(nombreDocumentoGenerado)
Dim envMail As SmtpMail

MyMail.To = strDestinatario
MyMail.From = strFrom
MyMail.Attachments.Add(myAttachment)
MyMail.Subject = aSubject
MyMail.Body = aSubject
MyMail.Cc = ""
MyMail.Bcc = ""
MyMail.BodyFormat = MailFormat.Text
MyMail.BodyEncoding = System.Text.Encoding.Default
MyMail.Priority = MailPriority.High
MyMail.UrlContentBase = "http://www.blabla.es"
MyMail.UrlContentLocation = "http://www.blabla.es"
Try
envMail.SmtpServer = MailServer
envMail.Send(MyMail)
Catch ex As Exception
Throw ex
Finally
myAttachment = Nothing
MyMail = Nothing
End Try
End Function

End Class

"Wichury" escribió:

Necesito hacer que un Servicio de windows envie un email en cierto evento
(OnStop), intente usando CDO.Message, pero cuando activo este evento el
servicio se traba... alguien tiene alguna idea