Macro para mandar por correo(outlook) una hoja de un libro de excel, pero hacerla .pdf
Necesito una macro para enviar por correo una hoja de excel, pero que la convierta a .pdf
1 respuesta
Sub enviar_correo_outlook()
'aneudys ¨PUSHYMAN¨
Application.DisplayAlerts = False
ruta = ActiveWorkbook.Path & "\"
mio = ActiveWorkbook.Name
cliente = Range("D5").Value
correo = "[email protected]"
nombre = ped & "_" & cliente & "##" & Day(Date) & "_" & Month(Date) & "_" & Year(Date)
Sheets("hoja1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & nombre
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.to = correo
parte2.Subject = "Envío de su factura nº " & ped
parte2.Body = "Estimados Sres.:" & Chr(13) & _
"Nos complace realizar el envío de la factura del asunto, según nuestro acuerdo." _
& Chr(13) & "Atentamente..."
parte2.attachments.Add ruta & nombre & ".pdf"
parte2.send
End Sub
No olvide valor valos si te silve
No me funciona, pero muchas gracias. Saludos
Perdon estae en lo sierto
Sub enviar_correo_outlook()
'aneudys ¨PUSHYMAN¨
Application.DisplayAlerts = False
ruta = ActiveWorkbook.Path & "\"
mio = ActiveWorkbook.Name
cliente = Range("D5").Value
fecha = Range("D6").Value
correo = "[email protected]"
nombre = cliente & fecha
Sheets("hoja1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & nombre
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.to = correo
parte2.Subject = "Envío de su factura nº " & ped
parte2.Body = "Estimados Sres.:" & Chr(13) & _
"Nos complace realizar el envío de la factura del asunto, según nuestro acuerdo." _
& Chr(13) & "Atentamente..."
parte2.attachments.Add ruta & nombre & ".pdf"
parte2.send
End Sub
Prueba ahora y no olvide finalizar la consulta valorandola
