David Asurmendi

Elegir con que cuenta de Outlook se manda un email desde una Macro de Excel.

Compártelo en:

Sigo con material dedicado al envío de emails desde macros de Excel, completándolo con más detalles. En esta ocasión me voy a centrar en explicar algo que me habéis planteado varias personas, se trata de cómo elegir la cuenta de Outlook que se utiliza para el envío del email. Es bastante habitual tener varias cuentas de correo configuradas en Outlook y en muchas ocasiones no dará igual con cual se realiza el envío. En esta publicación os voy a explicar cómo hacerlo.

Como me gusta crear ejemplos más completos he decidido que en lugar de simplemente explicar cómo se hace eso os voy a plantear lo siguiente. Partiendo del ejemplo de la publicación anterior en la que explicaba cómo realizar el envío de una hoja guardada en PDF, añadiremos un cuadro combinado en el que se cargarán todas los nombres de las cuentas que tenemos configuradas en Outlook. Y modificaremos el ejemplo para que use como cuenta de envío del email la que se seleccione en el cuadro combinado. Por lo que además de explicar cómo se usa una cuenta concreta para el envío, también os explicaré cómo sacar los nombres de las cuentas que tenemos configuradas en nuestro Outlook.
 

 

00003-Elegir con que cuenta de Outlook se manda un email desde Excel con VBA-Inicial.zip

00003-Elegir con que cuenta de Outlook se manda un email desde Excel con VBA-Finalizado.zip

 

Seguiremos con más material relacionado con envío de emails desde Excel, estad atentos a las publicaciones del Blog.

1 comentario en «Elegir con que cuenta de Outlook se manda un email desde una Macro de Excel.»

  1. Hola, quiero adaptar esto a un codigo que estoy usando y me funciona bien, que es el siguiente:

    Sub Paso6_EnviaCorreo()
    ‘Envia mail con adjunto y cuerpo HTML
    ‘Modificado por Luis Chavez
    Dim a As Worksheet, b As Worksheet
    Dim OApp As Object, OMail As Object, sbdy As String
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error Resume Next
    ChDir (ActiveWorkbook.Path)
    myfile = Application.GetOpenFilename(«Archivos Excel (*.jp*;*.bmp;*.pdf), *.jp*;*.bmp;*.pdf»)
    If VarType(myfile) = vbBoolean Then
    MsgBox («Operación cancelada»), vbCritical, «AVISO»
    Exit Sub
    End If

    Set OApp = CreateObject(«Outlook.Application»)
    Set OMail = OApp.CreateItem(0)

    Pero al intentar usar lo tuyo me da error de compilación, me podes ayudar? Gracias.

    Responder

Deja un comentario