I am using the code below to create a PDF and automatically save it to a network drive when a "submit" button is pushed. How would I modify the code below to send an email notification that a PDF is waiting on the the network drive for a particular person to view it?
If ([A51] = True Or [A53] = True Or [A54] = True Or [A56] = True) And _
([A60] = True Or [A61] = True Or [A62] = True Or [A63] = True) Then
FileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"S:\Folder\" & Cells(2, 2).Value & " - " & Cells(6, 2).Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("A1:D28").Select
End If
Bookmarks