Envio:
Código:
Dim mensaje As MailMessage Dim envio As System.Web.Mail.SmtpMail mensaje = New System.Web.Mail.MailMessage mensaje.Fields("http://schemas.microsoft.com/cdo/configuration/smtsperver") = "server" mensaje.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 mensaje.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 mensaje.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 mensaje.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "cuenta" mensaje.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" envio.SmtpServer = "server" mensaje.From = "cuenta" mensaje.BodyFormat = MailFormat.Text mensaje.Body = "Prueba" mensaje.Subject = "Prueba" mensaje.To = "[email protected]" Dim adjunto As New System.Web.Mail.MailAttachment(Application.StartupPath + "\imagen.JPG") mensaje.Attachments.Add(adjunto) envio.Send(mensaje)