Hi this macro works perfectly to save and email the pdf copy - I canot however get to send the current sheet in an excel macro enabled workbook not as pdf
Sub send()
Dim wPath As String, wFile As String
wPath = "https://our SHAREPOINT ADRESS/"
wFile = Range("d3").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=wPath & wFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Set dam = CreateObject("Outlook.Application").CreateItem(0)
'
dam.To = Range("b39")
dam.Cc = Range("b40")
dam.Subject = Range("d3")
dam.Body = wPath & wFile
dam.Attachments.Add wPath & wFile
dam.send
MsgBox "Email sent"
Sub send()
Dim wPath As String, wFile As String
wPath = "https://our SHAREPOINT ADRESS/"
wFile = Range("d3").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=wPath & wFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Set dam = CreateObject("Outlook.Application").CreateItem(0)
'
dam.To = Range("b39")
dam.Cc = Range("b40")
dam.Subject = Range("d3")
dam.Body = wPath & wFile
dam.Attachments.Add wPath & wFile
dam.send
MsgBox "Email sent"
