Sam,
Really. This is not a free macro writing service. The internet is full of examples of saving and sending files as a PDF e-mail attachment.
Here is one example:
Private Sub SaveAsPDFAndEmail()
Dim oOLApp As Object
Dim oMailItem As Object
Dim oDoc As Document
Dim strFileName As String
Application.ScreenUpdating = False
Set oOLApp = CreateObject("Outlook.Application")
Set oMailItem = oOLApp.CreateItem(0)
Set oDoc = ActiveDocument
If Not oDoc.Saved Then
MsgBox "You must first save the activeo document before submitting"
Exit Sub
End If
strFileName = Replace(oDoc.FullName, ".docm", ".pdf")
oDoc.ExportAsFixedFormat OutputFileName:=strFileName, _
ExportFormat:=wdExportFormatPDF
With oMailItem
.Subject = "***subject***"
.Body = "Here is your attachment"
.To = ActiveDocument.SelectCOntentControlByTitle("Manager Email").Item(1).Range.Text
.Importance = 1 ' olImportanceNormal
.Attachments.Add strFileName
.Send
End With
Application.ScreenUpdating = True
Set oDoc = Nothing
Set oMailItem = Nothing
Set oOLApp = Nothing
MsgBox "Email has been sent"
ActiveDocument.Close SaveChanges:=wdSaveChanges
End Sub