Yo utilizo esta rutina para enviar e_mails. No depende de Outlook, y te permite cambiar el correo de emisor, aunque yo lo en este caso lo utilizo fijo; y ES OBLIGATORIO DARLE LA CLAVE DEL USUARIO DE ENVIO.
Le paso 2 destinos, ya que no permite como direccion de correo destino1; destino2, y lo que hece es añadirlos a una coleccion. Lo mismo pasa con las Copia (CC si es visible y Bcc si es oculta)
Imports System.Net.Mail
Public Sub Enviar_Mail(ByVal origen As String, _
ByVal destino1 As String, _
ByVal destino2 As String, _
ByVal copia1 As String, _
ByVal copia2 As String, _
ByVal asunto As String, _
ByVal texto As String, _
Optional ByVal adjunto1 As String = Nothing, _
Optional ByVal adjunto2 As String = Nothing, _
Optional ByVal adjunto3 As String = Nothing, _
Optional ByVal adjunto4 As String = Nothing, _
Optional ByVal adjunto5 As String = Nothing)
Dim Mensaje As New System.Net.Mail.MailMessage()
Dim Servidor As New System.Net.Mail.SmtpClient
Dim Archivo As String
Servidor.Credentials = New System.Net.NetworkCredential("
[email protected]
", "password")
Servidor.Host = "pepito.es" ' Servidor
'Servidor.Port = 25
'Servidor.EnableSsl = True ' Si necesita SSL
Mensaje.From = New System.Net.Mail.MailAddress("
[email protected]
", "password"), System.Text.Encoding.UTF8)
Mensaje.[To].Add(destino1)
If destino2 <> String.Empty Then
Mensaje.[To].Add(destino2)
End If
If copia1 <> String.Empty Then
Mensaje.Bcc.Add(copia1)
End If
If copia2 <> String.Empty Then
Mensaje.Bcc.Add(copia2)
End If
Mensaje.Subject = asunto
Mensaje.Body = texto
If Not IsNothing(adjunto1) And _
adjunto1 <> String.Empty Then
Archivo = adjunto1
Dim Attach1 As New System.Net.Mail.Attachment(adjunto1, System.Net.Mime.MediaTypeNames.Application.Octet)
Mensaje.Attachments.Add(Attach1)
End If
If Not IsNothing(adjunto2) And _
adjunto2 <> String.Empty Then
Archivo = adjunto2
Dim Attach2 As New System.Net.Mail.Attachment(Archivo, System.Net.Mime.MediaTypeNames.Application.Octet)
Mensaje.Attachments.Add(Attach2)
End If
If Not IsNothing(adjunto3) And _
adjunto3 <> String.Empty Then
Archivo = adjunto3
Dim Attach3 As New System.Net.Mail.Attachment(Archivo, System.Net.Mime.MediaTypeNames.Application.Octet)
Mensaje.Attachments.Add(Attach3)
End If
If Not IsNothing(adjunto4) And _
adjunto4 <> String.Empty Then
Archivo = adjunto4
Dim Attach4 As New System.Net.Mail.Attachment(Archivo, System.Net.Mime.MediaTypeNames.Application.Octet)
Mensaje.Attachments.Add(Attach4)
End If
If Not IsNothing(adjunto5) And _
adjunto5 <> String.Empty Then
Archivo = adjunto5
Dim Attach5 As New System.Net.Mail.Attachment(Archivo, System.Net.Mime.MediaTypeNames.Application.Octet)
Mensaje.Attachments.Add(Attach5)
End If
Try
Servidor.Send(Mensaje)
Catch ex As Exception
'MostrarError("Modulo E_Mail", "Envio_1", Err.Number, _
' "ERROR AL ENVIAR EL E_MAIL", _
' vbCritical + vbOKOnly, _
' "MODULO DE ENVÍO DE E_MAIL'S")
Throw New Exception("ERROR AL ENVIAR EL E_MAIL")
Finally
Mensaje = Nothing
Servidor = Nothing
End Try
End Sub
