envio de mail desde winforms

[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:

' 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)