Visual Basic - Access: VB: Codigo para enviar un unico informe de Factura en PDF por mail

Life is soft - evento anual de software empresarial
   
Vista:

Access: VB: Codigo para enviar un unico informe de Factura en PDF por mail

Publicado por Erick (2 intervenciones) el 07/04/2017 22:10:18
Hola Colegas

He estado diseñando un pequeño proyecto de facturacion y me acaba de encontrar con un problema. Tengo un Formulario para registrar facturas, y necesito luego de terminar la factura convertir en PDF y enviarla por correo, entonces hice el siguiente codigo, pero el problema esta que me exporta todas las facturas en un solo PDF y solo necesito una, la que estoy trabajando.

Sera que me pueden indicar como tendria que ser el codigo??

este es el codigo que hice:

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
Private Sub Comando36_Click()
Dim FileName As String
Dim FliePath As String
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
 
FileName = Me.Cliente & "_Factura N°" & Me.Numero_de_Factura
FilePath = "C:\Users\Faerron\Downloads\" & FileName & ".pdf"
DoCmd.OutputTo acOutputReport, "Factura", acFormatPDF, FilePath
If oOutlook Is Nothing Then
    Set oOutlook = New Outlook.Application
End If
Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem
    .To = Me.Mail_
    .CC = ""
    .Subject = ""
    .Body = ""
 
    .Attachments.Add FilePath
    .Display
End With
 
Set oEmailItem = Nothing
Set oOutlook = Nothing
 
Kill FilePath
 
End Sub
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

Access: VB: Codigo para enviar un unico informe de Factura en PDF por mail

Publicado por jggtz (315 intervenciones) el 17/04/2017 18:12:52
Tu problema debe de estar en linea :
---
DoCmd.OutputTo acOutputReport, "Factura", acFormatPDF, FilePath
---

Checa el filtro que le pones a esa rutina o funcion... debe seleccionar solo el archivo deseado
y parece que te selecciona todas las facturas que estan en la carpeta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad