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:
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)