Imprimir página | Cerrar ventana

Crear email añadiendo la firma

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86762
Fecha de impresión: 26/Marzo/2026 a las 17:41


Tema: Crear email añadiendo la firma
Publicado por: Nomada
Asunto: Crear email añadiendo la firma
Fecha de publicación: 03/Septiembre/2023 a las 17:35
Buenas.
Tengo un código que me crea un email en outlook. Hasta aquí bien, pero al crear el correo no me aparece la firma que tengo en Outlook. Sin embargo cuando creo un correo desde Outlook si me aparece la firma. Existe alguna forma a través de código vb de decirle que me añada la firma que tengo preestablecida en Outlook?

Un saludo y gracias.


Respuestas:
Publicado por: xavi
Fecha de publicación: 04/Septiembre/2023 a las 08:38
Hola,

Te cuento como lo gestiono yo.

- Necesitas una variable olkInspector (As Outlool.Inspector si tienes la librería referenciada, As Object si no es así)
- Después de la creación del MailItem llamas al Inspector
- A continuación almacenas el cuerpo HTML del MailItem en una variable porque, en principio, es el que contiene la firma.
- Al final de la creación del cuerpo del mail le concatenas el cuerpo original


En resumen:

Dim olkMailItem As Outlook.MailItem ' As Variant
Dim olkInspector As Outlook.Inspector ' As Object
Dim strFirma As String
Dim strCuerpo As String
Set olkMailItem = olkApp.CreateItem(olMailItem)
Set olkInspector = olkMailItem.GetInspector
strFirma = olkMailItem.HTMLBody
strCuerpo = "bla, bla, bla"
olkMailItem.HTMBLody = strtCuerpo & strFirma
..... etc, etc, etc... hasta enviar mail y cerrar objetos
 
Un saludo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web

Publicado por: Nomada
Fecha de publicación: 12/Octubre/2024 a las 12:22
Muchas gracias.
Este hilo se puede cerrar satisfactoriamente.
Un saludo.


Imprimir página | Cerrar ventana