CUANDO CREO EL EMAIL NO ME DEJA INSERTAR UNA IMAGEN
Publicado por FERNANDO RAMOS DEVESA (3 intervenciones) el 15/09/2016 13:16:38
HE MODIFICADO UN PROGRAMA DE LA WEB DEL PROGRAMADOR PARA PODER ENVIAR EMAILS DE FORMA AUTOMOATIZADA DE UNA BASE DE DATOS PERO AL CREAR EL EMAIL NO ME DEJA INSERTAR UNA IMAGEN EL CODIGO QUE UTILIZO ES EL SIGUIENTE:
GRACIAS POR VUESTRA AYUDA.
SALUDOS
1
2
3
4
5
6
7
8
Private Sub Comando4_Click()
On Error Resume Next
If IsNull(titulo) Or IsNull(mensaje) Or IsNull(contenedor) Then MsgBox "introduzca titulo y mensaje": Exit Sub
SendKeys "%{i 1}{d 1}" 'control, pulsar i una vez y d una vez para abrir adjuntar
DoCmd.SendObject acSendNoObject, , , , , Me.contenedor, Me.titulo, Me.mensaje
Me.contenedor = Null
End Sub
GRACIAS POR VUESTRA AYUDA.
SALUDOS
Valora esta pregunta
0