Codigo para enviar un unico informe de Factura en PDF por mail
Publicado por Erick (2 intervenciones) el 06/04/2017 22:11:21
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:
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.ApplicationDim 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
.DisplayEnd With
Set oEmailItem = NothingSet oOutlook = NothingKill FilePath
End Sub
Valora esta pregunta
0