Mail con firma

[xavi]

Palabras clave: correo, firma
Autor: acilu55
Extraído de: MV-Access

REDACCION PROVISIONAL


Objetivo
Se preguntó como enviar mail con firma. En principio era con CDO (que desconocía que se podía hacer) y acilu55 propuso, mediante Outlook, la capacidad de utilizar una plantilla de mail con la firma:

Código: [Seleccionar]

Set OUTAPP = CreateObject("Outlook.Application")
Set OUTMAIL = OUTAPP.CreateItemFromTemplate(Application.CurrentProject.Path & "\oficio.oft")
 ' oficio.oft es una plantila de mail con la firma
With OUTMAIL
.To = mail
.cc = ""
.bcc = ""
.BodyFormat = olFormatHTML
           
.Subject = "asunto del envio"
adjunto1 = Application.CurrentProject.Path & "\factura.pdf"

.Attachments.Add (adjunto1)