Below should start to help you out.
This saves the PDFs in a folder in the same location as the workbook itself (you will need to create this folder) & then creates emails and attaches them. You'll need to add some things in and you can amend the details of the email itself if you wish.
Sub SavetoPDFandEmail()
Dim ws As Worksheet
Dim PdfFile As String
Dim OutlookObj As Object
Dim EmailObj As Object
Dim PdfPath
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Application.DisplayAlerts = False
'ws not to be included
For Each ws In ActiveWorkbook.Worksheets
Select Case UCase(ws.Name)
Case **worksheet names not to be included**
Case Else
ws.Activate
'Define PDF filename
PdfFile = **pdf file name required**
'Check file location
Set thisWb = ActiveWorkbook
'Export activesheet as PDF
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=thisWb.Path & **insert folder name in same location as the file saved** & PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
'Create Outlook email
Set OutlookObj = CreateObject("Outlook.Application")
Set EmailObj = OutlookObj.CreateItem(0)
With EmailObj
.Display
.To = ""
.CC = ""
.Subject = ""
.Body = ""
.Attachments.Add Filename
End With
End Select
Next
End Sub
