Ver Mensaje Individual
  #4 (permalink)  
Antiguo 11/07/2009, 10:27
Avatar de Dradi7
Dradi7
 
Fecha de Ingreso: junio-2008
Ubicación: Peru - Lima
Mensajes: 1.518
Antigüedad: 16 años, 8 meses
Puntos: 220
Respuesta: envio de mail desde winforms

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
  1. ' Procedimiento para Envio de Mensajes
  2.     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)
  3.  
  4.         Dim Msg As New MailMessage ' Instancia para Manejar el Envio de Archivos
  5.         Dim SMTP As New SmtpClient ' Uso de SMTP para el envio y codificacion de Archivos
  6.         System.Windows.Forms.Cursor.Current = Cursors.WaitCursor
  7.         Try
  8.  
  9.             Msg.From = New System.Net.Mail.MailAddress(De, "", System.Text.Encoding.UTF8) ' De quien se envia el Correo
  10.  
  11.             For Each From As String In Para
  12.                 If From <> "" Then Msg.To.Add(From) ' Para quien se Envia
  13.  
  14.             Next
  15.  
  16.  
  17.             If CC IsNot Nothing Then
  18.                 For Each C As String In CC
  19.                     If C <> "" Then Msg.CC.Add(C)
  20.                 Next
  21.             End If
  22.  
  23.             If CCO IsNot Nothing Then
  24.                 For Each C As String In CCO
  25.                     If C <> "" Then Msg.Bcc.Add(C)
  26.                 Next
  27.             End If
  28.  
  29.             Msg.Subject = Asunto ' Asunto sobre el Envio del Mensaje
  30.             Msg.SubjectEncoding = System.Text.Encoding.UTF8 ' Encriptando el Asunto del Mensaje
  31.  
  32.             Msg.Body = Cuerpo ' Cuerpo del Mensaje
  33.             Msg.BodyEncoding = System.Text.Encoding.UTF8 ' Codificando el Cuerpo del Mensaje
  34.             Msg.IsBodyHtml = False ' El Cuerpo del Mensaje no es HTML
  35.  
  36.             SMTP.UseDefaultCredentials = False ' Si requiere Credenciales por Defecto
  37.             SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "xxxxxx") ' las Credenciales para poder enviar el Mensaje
  38.             SMTP.Port = 587 ' El puerto que utiliza para el envio de Mensajes
  39.             SMTP.Host = "smtp.gmail.com" ' el Servidor para el envio de Mensajes
  40.             SMTP.EnableSsl = True ' Esto es para que vaya a través de SSL(Uso de Certificado Digital) por si usamos GMail por ejm.
  41.             SMTP.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network ' Enviando Atravez de la red
  42.  
  43.             SMTP.Send(Msg)
  44.             MsgBox("Mensaje Enviado con Exito", 32, "Aviso")
  45.  
  46.         Catch ex As Exception
  47.             MsgBox(ex.Message, 48, "Aviso")
  48.         Finally
  49.             System.Windows.Forms.Cursor.Current = Cursors.Default
  50.         End Try
  51.  
  52.     End Sub
  53.  
  54.    ' Ejemplo de como utilizarlos
  55.  
  56. Dim CC() As String = {"correo1", "correo2", "correo3"}
  57. Dim CCO() As String = {"correo3", "correo4", "correo5"}
  58. EnviarMail("xxx", "xxx", "xxx", "xxxx", CC, CCO)
__________________
La clave de todo triunfador es eliminar todas sus excusas y sus limitaciones