Funcion para enviar un email desde Visual Basic .NET

0 comentarios


Os dejo una función que permite enviar un correo desde Visual Basic .NET. Puede incluso enviar archivos adjuntos pasando las rutas de dichos archivos.



Public Function enviarEMael(ByVal Remitente As String, _
                                            ByVal Destinatario As String, _
                                            ByVal Asunto As String, _
                                            ByVal Cuerpo As String, _
                                            ByVal RutaArchivos As List(Of String), _
                                            ByVal ServidorSmtp As String, _
                                            Optional ByVal MostrarMensajeOK As Boolean = False) As Boolean
        Try
            Dim smtpMail As New SmtpClient
            Dim oMsg As New MailMessage(Remitente, _
                                        Destinatario, _
                                        Asunto, _
                                        Cuerpo)
            Dim i As Integer = 0

            Dim ruta As List(Of String) = New List(Of String)

            If RutaArchivo.Count > 0 Then
                While (i < RutaArchivo.Count)
                    Dim sFile As String = RutaArchivo(i)
                    Dim oAttch As Net.Mail.Attachment = New Net.Mail.Attachment(sFile, "")
                    oMsg.Attachments.Add(oAttch)
                    i = i + 1
                End While
            End If

            smtpMail.Host = ServidorSmtp
            smtpMail.Send(oMsg)

            If MostrarMensajeOK Then
                        MsgBox("MENSAJE ENVIADO CORRECTAMENTE",
                                        MsgBoxStyle.Information,"CENTRO MONTAJE")
            End If
        Catch ex As Exception
            If MostrarMensajeOK Then
                MsgBox("ERROR: " & ex.Message & "  - MENSAJE NO ENVIADO")
            End If
        End Try
    End Function

La variable RutaArchivos es una lista de string, donde va la ruta de los archivos que se quieren adjuntar en el envio.
El servidor smtp, por ejemplo de Gmail es "smtp.gmail.com".


¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

0 comentarios:

Publicar un comentario

Related Posts Plugin for WordPress, Blogger...
Copyright 2011 INFORMATICUCHO.
Blogger Template by Noct.