none
Insertar Firma en correo outlook RRS feed

  • Pregunta

  • Cordial saludo a tod@s.
    Espero se encuentren muy bien

    El presente tiene como fin solicitar ayuda con lo siguiente. Estoy intentando enviar correos con vba y todo funciona como debe ser, el destinatario, el asunto y esas cosas, pero tengo un problema al ingresar la firma, no he podido con ello y lo he intentado de muchas formas sin éxito alguno.

    Esta es la estructura que utilizo para enviar el correo, pero no se que es lo que debo hacer para insertar la firma por defecto.

    On Error Resume Next
            With OutMail
                .display
                .To = Range(direccion).Value 'a quien se lo envío
                .CC = "" 'si queremos  agregar alguna copia
                .BCC = "" 'si queremos agregar alguna copia oculta
                .Subject = "Correo de Prueba" 'el asunto
                .body = "Cuerpo del mensaje" '& .Signature = apoyooperaciones 'cuerpo del mensaje
                .Attachments.Add Dest.FullName
                .Send 'y envío el correo
            End With

    Espero me puedan ayudar, anexo el archivo por si quieren ver el código y por si alguno le puede servir.

    (No necesito adjuntar archivo o imágenes, es solo para enviar unas palabras.)

    De antemano muchas gracias

                                                                  
    lunes, 21 de abril de 2014 14:58

Todas las respuestas

  • Hola, aquí te dejo un articulo en el que te explican como hacerlo.

    Insert Outlook Signature in mail

    Saludos.


    Víctor del Valle - http://www.vrdelvalle.net

    lunes, 21 de abril de 2014 15:05
  • Hola Victor.
    Mil gracias por tu pronta respuesta, te cuento que por fin logre insertar la firma con tu ayuda.
    Pero tengo un problema, para lograrlo debo ejecutar el comando ".Display" lo que para un correo no es problema, pero lo que pretendo es enviar mas de 10,
    Me gustaría saber si esto es posible sin tener que mostrar el mensaje.

    muchas gracias.
    lunes, 21 de abril de 2014 15:49
  • Perdón si es un poco tarde, pero esto lo resuelves cambiando .display por .send

    Ya que como lo dice uno es para pantalla(Ver un borrador del mensaje) y otro para enviar. (Enviar automáticamente sin mostrar borrador)

    Espero esto le sirva a otra persona.

    Consulten este sitio es muy bueno para agregar la firma predeterminada y seleccionar un firma diferente.

    Si tienen dudas mi FB Diego Andres Peñaranda

    http://www.rondebruin.nl/win/s1/outlook/signature.htm

    Saludos!


    lunes, 17 de diciembre de 2018 17:54
  • Tengo el mismo problema

    Tengo una macro para enviar emails con adjuntos diferentes y aunque tengo configurado en outlook una firma por defecto, se me mandan sin firma.

    ¿Habría alguna forma de modificarla para añadirla? Y si pudiera ser con logo mejor.

    Gracias de antemano

    ' Creamos las variables para la macro como objeto, variant,rango y texto
    Dim objOutlook As Object
    Dim objItem As Object
    Dim objNamespace As Object
    Dim ADJUNTO As Variant
    Dim RangoNombre As Range
    Dim RangoCorreos As Range
    Dim Ruta As String
    Dim Extensión As String
    Dim Nombre_Archivo As String
    Dim Destinatario As String
    Dim Correos As String

    Ruta = "Z:\- VIRGINIA\- CORREOS MASIVOS"
    Extensión = "Pdf"


    'Para abrir la ventana para seleccionar el rango de nombre
    Set RangoNombre = Application.InputBox("Seleccione el rango de los nombres del archivo", "RANGO", Type:=8)

    'Para abrir la ventana para seleccionar el rango de Correos
    Set RangoCorreos = Application.InputBox("Seleccione el rango de los correos", "RANGO", Type:=8)

    'Obtener la primera y ultima fila del rango seleccionado y la columna
    FilaInicial = RangoNombre.Row
    FilaFinal = RangoNombre.Count + 1
    ColumnaNombre = RangoNombre.Column


    'Obtener la columna de los correos
    ColumnaCorreos = RangoCorreos.Column

    'Creamos un ciclo con fila igual a Filainicial hasta fila final

    For fila = FilaInicial To FilaFinal

    'Asignamos los nombres de las variables para la aplicación de outlook
    Set objOutlook = CreateObject("Outlook.Application")
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    Set objItem = objOutlook.CreateItem(olMailItem)
    objNamespace.Logon "EXCELSPACE", , True, True

    'Asignamos para la variable Nombre_Archivo la fila y la columna para obtener el nombre del archivo
    Nombre_Archivo = Cells(FilaInicial, ColumnaNombre)


    'Asignamos para la variable Correos la fila y la columna para obtener el correo asociado
    Correos = Cells(FilaInicial, ColumnaCorreos)


    ADJUNTO = Ruta & "\" & Nombre_Archivo & "." & Extensión

    'ADJUNTO = "Z:\- VIRGINIA\- CORREOS MASIVOS"

    With objItem
      .Attachments.Add (ADJUNTO)
      .Display
      '.To = ""
      .To = Correos
      .CC = ""
      .BCC = ""
      .Subject = "Documentación" & "-" & Nombre_Archivo 'Asunto
      .Body = "Estimado cliente, adjunto documentación relativa a su empresa. Un saludo" '& .Signature = apoyooperaciones 'cuerpo del mensaje
      .Send
    End With

    objNamespace.Logoff
    Set objOutlook = Nothing
    Set objItem = Nothing
    Set objNamespace = Nothing

    FilaInicial = FilaInicial + 1


    Next


    • Editado SOYTHEMILK miércoles, 24 de febrero de 2021 13:47
    miércoles, 24 de febrero de 2021 13:47