Macro para enviar por correo
Hola me encantaría que alguien me pudiera ayudar a elaborar una macro que genere un pdf y lo mande por correo a un destinatario en especial. Les comento que la macro que me elabora el archivo pdf con el nombre exacto de folio que tengo en mi hoja de Excel y que lo guarda en una carpeta en especial ya la tengo. Pero me encantaría ya que en la misma hoja tengo la direccion de correo electrónica de mi cliente, también automaticamente lo adjunte por outloook y se lo mande, será que se puede??? Y también será que puede ponerle una firma que se llama facturas para que no la mande con la común??
anexo la macro con la cual genero el archivo en pdf.
Sub Genera_pdf()
'
' Genera_pdf Macro
' guardar en pdf
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Roberto Alabat Acer\Desktop\Exacta Asesores 2011\05 Consecutivo\Factura " & Range("H2").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
si les sirve de algo la direccion de correo electronico se encuentra en la misma hoja donde genero ese pdf y la celda es la K2. Asi como tambien el outlook que tengo es el 2010.
anexo la macro con la cual genero el archivo en pdf.
Sub Genera_pdf()
'
' Genera_pdf Macro
' guardar en pdf
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Roberto Alabat Acer\Desktop\Exacta Asesores 2011\05 Consecutivo\Factura " & Range("H2").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
si les sirve de algo la direccion de correo electronico se encuentra en la misma hoja donde genero ese pdf y la celda es la K2. Asi como tambien el outlook que tengo es el 2010.
