Quiero exportar la vista de formulario con sus registros
Publicado por Rolando (1 intervención) el 11/09/2015 15:50:48
Saludos al Foro:
Solicito su ayuda para crear un código que me permita exportar la vista de formulario con sus datos a como anexo en PDF o Imagen al cuerpo de Lotus Notes, que es el programa de correo que utilizo.
He logrado a través de código que envíe el correo a la persona, pero pese a muchos intentos no logro que me convierta el formulario a PDF o Imagen y me inserte en el cuerpo del mensaje del correo. Otra opción también es que copie la imagen solo del formulario en el cuerpo del correo.
Adjunto el código que tengo hasta este momento:
Ajunto imágenes del formulario y del correo que envía.
Agradeceré sobre manera la cooperación que puedan darme.
Solicito su ayuda para crear un código que me permita exportar la vista de formulario con sus datos a como anexo en PDF o Imagen al cuerpo de Lotus Notes, que es el programa de correo que utilizo.
He logrado a través de código que envíe el correo a la persona, pero pese a muchos intentos no logro que me convierta el formulario a PDF o Imagen y me inserte en el cuerpo del mensaje del correo. Otra opción también es que copie la imagen solo del formulario en el cuerpo del correo.
Adjunto el código que tengo hasta este momento:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Private Sub EnviarEmail_Click()
Dim UserName As String
Dim MailDbName As String
Dim Recipient As String
Dim ccRecipient As String
Dim ans As String
Dim Attachment1 As String
Dim Maildb As Object
Dim MensajeMail As Object
Dim AttachME As Object
Dim Session As Object
Dim EmbedObj1 As Object
Dim NombreInforme As String
Dim Name As String
'Abre la Base de Datos de Correos de Notes
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
Else
Maildb.OPENMAILEnd If
'Crea nuevo mail y dirección y titulo del mail
Set MensajeMail = Maildb.CreateDocument
MensajeMail.Form = "Memo"
'Selecciona el rango donde obtener el correo en el formulario
Recipient = [LLAVE].Value
MensajeMail.SendTo = Recipient
ans = MsgBox("¿Te gustaría enviar copia a otra persona?" _
, vbQuestion & vbYesNo, "Enviar Copia")
If ans = vbYes ThenccRecipient = InputBox("Ingrese el correo electrónico de la persona" _
, "Ingrese Dirección e-mail ")
MensajeMail.CopyTo = ccRecipient
End If
Set MensajeMail = Maildb.CreateDocument
Call MensajeMail.ReplaceItemValue("Form", "Memo")
'Establecer el Destinatario
Call MensajeMail.ReplaceItemValue("SendTo", Recipient)
'Establece el Tema
Call MensajeMail.ReplaceItemValue("Subject", "Resultados Monitoreo Biológico Hg")
'Crea y Configura el Contenido del Cuerpo del Correo
Name = [APELLIDOSYNOMBRES].Value
Set Cuerpo = MensajeMail.CREATERICHTEXTITEM("Body")
Call Cuerpo.APPENDTEXT("Saludo", "Estimado(a) ")
Call Cuerpo.APPENDTEXT("Nombre", Name)
'Crea el Archivo Adjunto al Correo
Call Cuerpo.ADDNEWLINE(2)
Call Cuerpo.EMBEDOBJECT(1454, "", "", "Attachment")
'Envía el Correo
'Obtiene la Dirección de correo de la carpeta Enviados
Call MensajeMail.ReplaceItemValue("PostedDate", Now())
Call MensajeMail.SEND(False)
errorhandler1: Set Maildb = Nothing Set MensajeMail = Nothing Set Cuerpo = Nothing Set Session = NothingEnd Sub
Ajunto imágenes del formulario y del correo que envía.
Agradeceré sobre manera la cooperación que puedan darme.
- Imagenes.zip(172,7 KB)
Valora esta pregunta
0