
11/07/2009, 13:21
|
| | Fecha de Ingreso: diciembre-2007
Mensajes: 107
Antigüedad: 17 años, 1 mes Puntos: 4 | |
Respuesta: envio de mail desde winforms Cita:
Iniciado por Dradi7 no solo necesitar¡as importar esta clase Imports System.Net.Mail
Imports System.Net.Mail.MailMessage
este el codigo que yo utilizo
Código vb.net:
Ver original' Procedimiento para Envio de Mensajes Public Sub EnviarMail(ByVal De As String, ByVal Para As String(), ByVal Asunto As String, ByVal Cuerpo As String, Optional ByVal CC As String() = Nothing, Optional ByVal CCO As String() = Nothing) Dim Msg As New MailMessage ' Instancia para Manejar el Envio de Archivos Dim SMTP As New SmtpClient ' Uso de SMTP para el envio y codificacion de Archivos System.Windows.Forms.Cursor.Current = Cursors.WaitCursor Try Msg.From = New System.Net.Mail.MailAddress(De, "", System.Text.Encoding.UTF8) ' De quien se envia el Correo For Each From As String In Para If From <> "" Then Msg.To.Add(From) ' Para quien se Envia Next If CC IsNot Nothing Then For Each C As String In CC If C <> "" Then Msg.CC.Add(C) Next End If If CCO IsNot Nothing Then For Each C As String In CCO If C <> "" Then Msg.Bcc.Add(C) Next End If Msg.Subject = Asunto ' Asunto sobre el Envio del Mensaje Msg.SubjectEncoding = System.Text.Encoding.UTF8 ' Encriptando el Asunto del Mensaje Msg.Body = Cuerpo ' Cuerpo del Mensaje Msg.BodyEncoding = System.Text.Encoding.UTF8 ' Codificando el Cuerpo del Mensaje Msg.IsBodyHtml = False ' El Cuerpo del Mensaje no es HTML SMTP.UseDefaultCredentials = False ' Si requiere Credenciales por Defecto SMTP .Credentials = New System .Net.NetworkCredential("[email protected]", "xxxxxx") ' las Credenciales para poder enviar el Mensaje SMTP.Port = 587 ' El puerto que utiliza para el envio de Mensajes SMTP.Host = "smtp.gmail.com" ' el Servidor para el envio de Mensajes SMTP.EnableSsl = True ' Esto es para que vaya a través de SSL(Uso de Certificado Digital) por si usamos GMail por ejm. SMTP.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network ' Enviando Atravez de la red SMTP.Send(Msg) MsgBox("Mensaje Enviado con Exito", 32, "Aviso") Catch ex As Exception MsgBox(ex .Message, 48, "Aviso") Finally System.Windows.Forms.Cursor.Current = Cursors.Default End Try End Sub ' Ejemplo de como utilizarlos Dim CC() As String = {"correo1", "correo2", "correo3"} Dim CCO() As String = {"correo3", "correo4", "correo5"} EnviarMail("xxx", "xxx", "xxx", "xxxx", CC, CCO)
pero eso seria para vb |