Saving PDF to Network Drive

[zoetwodot]

I am having trouble saving the PDF to a network drive.
My goal is to create a PDF with name pulled from the XL, save the PDF on our P: drive, attach that PDF to an email, display before it is sent, then click send.
Any help would be most appreciated.
This is the code I am using, and it does everything but save to our network drive (I cannot figure out where to tell it to save to a network drive) cobbled together from this thread:

Sub AttachActiveSheetPDF()
Dim IsCreated As Boolean
Dim i As Long
Dim PdfFile As String, Title As String
Dim OutlApp As Object

'Title = Range("B8") & " " & Date & Time

' Set pdf filename and path to folder where excel doc is currently saved
With ThisWorkbook
PdfFile = .Path & Application.PathSeparator & ActiveSheet.Name & ".pdf"
End With

' Export activesheet as PDF to the current folder
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With

' Export activesheet as PDF
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With

' Use already open Outlook if possible
On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then
Set OutlApp = CreateObject("Outlook.Application")
IsCreated = True
End If
OutlApp.Visible = True
On Error GoTo 0

' Prepare e-mail with PDF attachment
With OutlApp.CreateItem(0)

' Prepare e-mail
.Subject = "TRADE " & Range("G3").Value
.To = "closers@REDACTED.com" ' <-- Put email of the recipient here
.CC = "" ' <-- Put email of 'copy to' recipient here
.Body = "Hi," & vbLf & vbLf _
& "Trade ticket attached. Let me know if you have any questions." & vbLf & vbLf _
& "Regards," & vbLf _
& Application.UserName & vbLf & vbLf
.Attachments.Add PdfFile

' Try to send
On Error Resume Next
.Display
Application.Visible = True
If Err Then
MsgBox "E-mail was not sent", vbExclamation
Else
MsgBox "E-mail successfully generated", vbInformation
End If
On Error GoTo 0

End With

' Delete PDF file
Kill PdfFile

' Quit Outlook if it was created by this code
If IsCreated Then OutlApp.Quit

' Release the memory of object variable
Set OutlApp = Nothing

End Sub

 

[zoetwodot]

I figured it out by adding this; not sure if it needs to be it's own instruction.
In my case the PDF needs to be saved in a different location than the Excel.

'Export to network folder as PDF
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:="P:\Finance\Trade Tickets Scanned\" & Range("B8").Value & Format(Date, " yyyy.mm.dd") & Format(Time, " hh.mm.ss")
End With