Macro envío mail formato pdf

Si ya tienes una macro que lo hace, ¿para qué volver a solicitar una?. Sería bueno que estudiaras el código de la actual y la modifiques a tus necesidades.

Hola, como te comenté en la anterior pregunta no tengo ni idea de hacer o modificar una macro y las que tengo me lo imprimen o me lo envían por fax y no por correo electrónico como yo necesito, espero tu solución gracias.

Aquí tienes un ejemplo para que lo adaptes.
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub SendEMail()
Dim Email As String, Subj As String
Dim Msg As String, URL As String
Dim r As Integer, x As Double
For r = 2 To 4 'data in rows 2-4
' Get the email address
Email = Cells(r, 2)
' Message subject
Subj = "Your Annual Bonus"
' Compose the message
Msg = ""
Msg = Msg & "Dear " & Cells(r, 1) & "," & vbCrLf & vbCrLf
Msg = Msg & "I am pleased to inform you that your annual bonus is "
Msg = Msg & Cells(r, 3).Text & "." & vbCrLf & vbCrLf
Msg = Msg & "William Rose" & vbCrLf
Msg = Msg & "President"
' Replace spaces with %20 (hex)
Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
' Replace carriage returns with %0D%0A (hex)
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")
' Create the URL
URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
' Execute the URL (start the email client)
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
' Wait two seconds before sending keystrokes
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Next r
End Sub

Hola de nuevo, la macro que me enviaste no ajdunta automáticamente en el correo el archivo de pdf, tal y como te comenté en la primera pregunta, también desconozco donde poner la dirección de correo electrónico ni el asunto en la macro, te envío otras macro que tengo para que veas como genera el pdf y lo manda a una carpeta determinada de un servidor "z" y a unas carpetas determinadas, pues yo quiero que haga lo mismo pero a una o varias direcciones de correo determinadas, espero tu respuesta.
Tengo muy poca idea de exel y te agradecería que en la medida de lo posible me simplifiques la respuesta, lo que para ti es evidente para alguien que no sabe puede ser un gran problema, gracias .
Sub oscar()
'
' oscar Macro
'
Dim Impdf As String, ImpdfC As String
ImpdfC = Cells(2, 19)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:\ODIAZ\" & ImpdfC, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
'
End Sub
Sub Garcia()
'
' GARCIA Macro
'
Dim Impdf As String, ImpdfC As String
ImpdfC = Cells(2, 19)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:\(xxxxxx)\" & ImpdfC, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
'
End Sub
Sub DARES()
'
' DARES Macro
'
Dim Impdf As String, ImpdfC As String
ImpdfC = Cells(2, 19)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:\DARES\" & ImpdfC, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
'
End Sub
Sub PAVIMENTOS()
'
' PAVIMENTOS Macro
'
Dim Impdf As String, ImpdfC As String
ImpdfC = Cells(2, 19)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:\PAVIMENTOS\" & ImpdfC, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
'
End Sub
Sub EDUARDO()
'
' EDUARDO Macro
'
Dim Impdf As String, ImpdfC As String
ImpdfC = Cells(2, 19)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:\EDUARDO\" & ImpdfC, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
'
End Sub
Sub TALLER()
'
' TALLER Macro
'
Dim Impdf As String, ImpdfC As String
ImpdfC = Cells(2, 19)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:\SSEOANE\" & ImpdfC, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
'
End Sub
Sub almacen()
'
' almacen Macro
'
Dim Impdf As String, ImpdfC As String
ImpdfC = Cells(2, 19)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:\pedidosalmacen\" & ImpdfC, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
'
End Sub