Como crear un botón donde enviar facturas pdf por e-mail - outlook a clientes
Estoy un poco perdido por no decir pedido del todo, pero me gustaría crear un botón en el formulario que automáticamente me genere el archivo en pdf y abra el outlook para enviarlo ha determinado cliente.
1 Respuesta
Respuesta de Dante Amor
1
H o l a : Crea un commandbutton en tu formulario.
Pon el siguiente código en tu formulario
Cuando presiones el botón, se generará un archivo con el nombre de "archivo.pdf", se abrirá el mail para que lo revises y lo puedas enviar.
Private Sub CommandButton1_Click()
'Por.Dante Amor
'Enviar un archivo como PDF por correo
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Ruta = ThisWorkbook.Path & "\"
arch = "archivo.pdf"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Ruta & arch, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = "[email protected]" 'Destinatarios¡
dam.Subject = "factura" '"Asunto"
dam.Body = "Enviar archivo"
dam.Attachments.Add Ruta & arch
dam.Display 'El correo se muestra
'dam.Send
End SubCambia en la macro "[email protected]", por el correo del cliente. Si el correo del cliente lo tienes en un textbox, entonces pon la línea así:
dam.To = textbox1.value
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
