** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Abrir una plantilla de Outlook
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAbrir una plantilla de Outlook
 Responder Responder
Autor
Mensaje
  Tema Buscar Tema Buscar  Opciones del Tema Opciones del Tema
Aljira Ver desplegable
Colaborador
Colaborador


Unido: 18/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 983 		Enlace directo a este mensaje Tema: Abrir una plantilla de Outlook
    Enviado: 09/Abril/2019 a las 21:04
Buenas noches, estoy tan desengrasado que les pido ayuda.
Quiero poder enviar un email, desde el registro activo, seleccionando una plantilla de Outlook (2010), pero no encuentro ningún ejemplo por el que guiarme. Pongo el código de Taribo, que estoy utilizando, pero me quedo en cambiar .body por la plantilla. Gracias.

Sub Mail_workbook_Outlook()
'Es necesario añadir la refeerncia Microsoft Outlook Library (herramientas/referencias)
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "ejemplo@dominio.com"
.CC = ""
.BCC = ""
.Subject = "Asunto del mensaje"
.Body = "Este es el texto del mensaje"
'Se pueden adjuntar ficheros
.Attachments.Add ("C:\Mi_Fichero.pdf")
.Display 'tambien se puede usar .Send y lo situa en la bandeja de salida
End With
Set OutMail = Nothing
Set OutApp = Nothing

End Sub



Editado por Aljira - 10/Abril/2019 a las 07:45
Todo un año por delante
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 13819 		Enlace directo a este mensaje Enviado: 10/Abril/2019 a las 10:06
Hola,

Algo así:

Function Aljira(strRutaPlantilla As String)
    ' Ejemplo de strRutaPlantilla: "C:\aesoft\52.Varios\PlantillasOutlook\PlantillaFactura.oft"

    Dim olkApp      As Outlook.Application
    Dim olkMail     As Outlook.MailItem
    
    Set olkApp = CreateObject("Outlook.Application")
    Set olkMail = olkApp.CreateItemFromTemplate(strRutaPlantilla)
    olkMail.Display
    Set olkApp = Nothing

End Function

Un saludo


Editado por xavi - 10/Abril/2019 a las 10:07
Xavi, un minyó de Terrassa

Mi web
Arriba
Aljira Ver desplegable
Colaborador
Colaborador


Unido: 18/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 983 		Enlace directo a este mensaje Enviado: 10/Abril/2019 a las 18:37
Muchas gracias Xavi, sencillo y directo. Más adelante buscaré como añadir campos del registro activo a esa plantilla, pero de momento tengo suficiente. Añado un poco más del texto que me funcionó por si ayuda a otros. (Para rellenar el correo directamente)

.Body = Me.Tratamiento & " " & Me.Nombre + vbCrLf _
& vbCrLf _
& "Badajoz,  10 de Abril de 2019 " + vbCrLf _
& vbCrLf _
& "Le informo que ..."

Se puede cerrar el hilo. 
Todo un año por delante
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable