VBA Help - Saving PDFs with Month/Year then into Outlook

[AntonioM00]

Hello All - Greetings from Las Vegas, NV, I am new on this message board and am desperately in need of some VBA/Macro Help.

Over the last few months, I have been manually saving 30+ PDFs and then emailing them 30 different times through outlook with a different distribution list for each PDF.

I am trying to automate this process; and I attempted to use the Macro Recorder to no avail.

This is a monthly process and I need a macro that will save the PDF into a folder for the current month; then create an email to its assigned distro list.

Below is what I was able to do with the Macro Recorder; which shows an example of me saving 2 PDFs - however I cannot find a way for me to add the month and year to it without it being a manual process; for instance if I was to run this macro for the month of April it would still say March 2019. This recorded macro also does not involve me sending it to outlook either.

Any help would be appreciated. Thanks!

Sub Distribute()
'
' Distribute Macro
' Distribute functions
'
' Keyboard Shortcut: Ctrl+Shift+O
'
Range("A16").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Location").PivotItems( _
"Atlantic City").ShowDetail = True
ActiveWindow.SmallScroll Down:=6
ChDir _
"\\reglvfile2\#lvfile2\HQLRSK\Risk Control\Allocation\2019 Reports\3 March Mid Month\PR"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\reglvfile2\#lvfile2\HQLRSK\Risk Control\Allocation\2019 Reports\3 March Mid Month\PR\BLV March 2019 Mid-Month Allocation -.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("A16").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Location").PivotItems( _
"Atlantic City").ShowDetail = False
Range("A17").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Location").PivotItems( _
"Las Vegas").ShowDetail = True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\reglvfile2\#lvfile2\HQLRSK\Risk Control\Allocation\2019 Reports\3 March Mid Month\PR\BAC March 2019 Mid-Month Allocation -.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub

 

[Logit]

.
Research this resource. When you get stuck ... ask again ?

https://www.rondebruin.nl/win/s1/outlook/mail.htm