jueves, noviembre 25, 2010

VB.Net - Enviar correo


"Si usa algún código del siguiente tutorial, den el icono de ME GUSTA del Facebook que se encuentra en su mano derecha, para que se vuelva Seguidor del Blog y también comentenos que tal les pareció el tutorial"

Método utilizado para enviar un correo usando una cuenta de Gmail. En el arreglo StrPara en la primera posición se pone para quien se envía el correo y en las demás posiciones a las personas que se le quiere enviar el correo como dato oculto.

Public Shared Sub EnviarMail(ByVal StrPara() As String, ByVal StrAsunto As String, ByVal sAdjunto() As String, ByVal StrMensaje As String)
        Try
            Dim SMPT As New SmtpClient
            'variable tipo mensaje con parametros De: Para:
            Dim Msg As New MailMessage(New MailAddress("correo@gmail.com"), 
            New MailAddress(StrPara(0)))
            'Copia ocultas a las areas
            If StrPara.Length > 1 Then
                For i As Integer = 1 To StrPara.Length - 1
                    Msg.Bcc.Add(StrPara(i))
                Next
            End If
            'Asunto
            Msg.Subject = StrAsunto
            'Mensaje
            Msg.Body = StrMensaje
            'ADJUNTOS
            For Each FAdjunto As String In sAdjunto
                If Not FAdjunto = "" Then
                    'Objeto tipo attachment
                    Dim Adjunto As New Attachment(FAdjunto)
                    'agregar adjunto al objeto mensaje
                    Msg.Attachments.Add(Adjunto)
                End If
            Next
            'DATOS SMTP
            'Credenciales
            SMPT.Credentials = New System.Net.NetworkCredential("correo@gmail.com","clave")
            'Host, Puerto, autenticacion
            SMPT.Host = "smtp.gmail.com"
            SMPT.Port = "587"
            SMPT.EnableSsl = True
            SMPT.Timeout = 10
            'Enviar
            SMPT.Send(Msg)
        Catch ex As Exception
            
        End Try
End Sub

Ejemplo de uso del método en una aplicación:

0 comentarios: