Macro Excel envía mail con Outlook





El tema de enviar mail con Excel en un tema muy comentado en en foros sobre macros de VBA, anteriormente se ha publicado como enviar un mail con Excel, como crear alertas y enviar mail; macro emite aviso y envía mail a varios destinatarios; pero todas estas macros hacían referencia a configurar directamente el servidor SMTP de Gmail, Yahoo o Hotmail; en este oportunidad voy a mostrar un ejemplo sobre como enviar mail con Excel mediante Outlook.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.


  

El objetivo final del ejemplo aquí presentado, es que a presionar el botón se corre una macro de Excel que envía un mail utilizando Outlook, en la misma codificación está configurado el sujeto y  texto del mensaje; el destinatario es tomado de la celda E3, no obstante se puede incorporar en la codificación directamente, se programó que el código tomara la variable de la celda para facilitar observar su funcionamiento, ya que se envía al mail que se carga en la celda E3, sin necesidad de modificar el código.

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo como copiar varias tablas vinculadas de Excel a Wordcomo ejecutar una macro dependiendo del valor de una celdapasar datos de listbox a hoja de Excelbuscar en listbox mientras escribes en textboxcrear indice a hojas del mismo libro y al menú principalconectar Excel con Access e insertar datos, envio de mail utilizando Outlook y adjuntando una sola hojaenvio de mail mediante Outlook adjuntando todo el libro y como enviar mail con Excel usando Outlook y agregando link hyperlink o hipervinculo y mucho más.






Al final hay un link del cual podrás descargar el ejemplo y adaptarlo a tus necesidades, el código se encuentra abierto y sin ningún tipo de restricción, te recomiendo descargar el ejemplo y ver su codificación y funcionamiento.


Código que se inserta en un userform




Sub SendMailbyOutlook()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim OA, OM As Object
Dim TD As String
TD = Format(Date, "ddmmyyyy")
Set OA = CreateObject("Outlook.Application")
OA.Session.logon
Set OM = OA.CREATEITEM(0)
dest = Cells(3, "E")
With OM
    .To = dest 'Agregar mail de destino, ejemplo "xxxxx,@gmail.com" (con comillas incluidas)
    .CC = ""
    .BCC = ""
    .Subject = "Resumen de cuenta"
    .Body = "Estimado, el resumen de cuenta se lo enviaremos el " & TD
    .Send
End With

If Err.Number = 0 Then
       SendMail_Gmail = True
       MsgBox "El mail fue enviado con éxito", vbInformation, "AVISO"
Else
       MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number
End If
Set OM = Nothing
Set OA = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub







Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends