Access - Quiero exportar la vista de formulario con sus registros

   
Vista:

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:

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.OPENMAIL
  End 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 Then
  ccRecipient = 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 = Nothing
 
End Sub

Ajunto imágenes del formulario y del correo que envía.

Agradeceré sobre manera la cooperación que puedan darme.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder