Adjuntar archivos

Hola Pedro, prueba este codigo:
Dim s As Web.Mail.SmtpMail

Dim at As New Web.Mail.MailAttachment("c:utaArchivo\Archivo.doc")

Try

s.SmtpServer = "tuServidorSmtp"

Dim fro As New Web.Mail.MailMessage

fro.From = from.Text

fro.Subject = titulo.Text

Dim i As Integer = fro.Attachments.Add(at)

fro.To = A.Text

fro.Body = msge.Text

s.Send(fro)

Catch ex As Exception

MsgBox(ex.Message)

End Try




Sta Cruz, Bolivia

"Pedro" wrote in message
news:03a601c53392$a4ffb370$
¿Cómo se pueden adjuntar archivos y enviarlos con
system.web.mail en una aplicación para windows?

Gracias Bernando Campos por la solución

Hola Pedro, prueba este codigo:
Dim s As Web.Mail.SmtpMail

Dim at As New Web.Mail.MailAttachment

("c:utaArchivo\Archivo.doc")

Try

s.SmtpServer = "tuServidorSmtp"

Dim fro As New Web.Mail.MailMessage

fro.From = from.Text

fro.Subject = titulo.Text

Dim i As Integer = fro.Attachments.Add(at)

fro.To = A.Text

fro.Body = msge.Text

s.Send(fro)

Catch ex As Exception

MsgBox(ex.Message)

End Try




Sta Cruz, Bolivia

"Pedro" wrote in

message

news:03a601c53392$a4ffb370$
¿Cómo se pueden adjuntar archivos y enviarlos con
system.web.mail en una aplicación para windows?


.