Getting late so I did not test this much. Change the string values to suit. Be sure to set the Outlook object as commented.
'More Excel to Outlook Examples: http://www.rondebruin.nl/win/s1/outlook/bmail4.htm
'http://www.rondebruin.nl/win/s1/outlook/signature.htm
'Add reference: Microsoft Outlook xx.x Library, where xx.x is 14.0, 15.0, 16.0, etc.
Sub Main()
Dim olApp As Outlook.Application, olMail As Outlook.MailItem
Dim sTo$, sSubject$, fn$, ws As Worksheet, sBody$
sTo = "ken@gmail.com"
sSubject = "All worksheets from: " & ThisWorkbook.Name
sBody = "Your files are attached. If you have questions, " _
& "please contact me at (555) 555-1234."
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = sTo
.Subject = sSubject
.Body = sBody
For Each ws In Worksheets
fn = Environ("temp") & "\" & ws.Name & ".pdf"
ws.ExportAsFixedFormat xlTypePDF, fn
.Attachments.Add fn
'kill fn
Next ws
'.Display
.Send
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub