In that case
Sub PhoneList(item As Outlook.MailItem)
Dim ObjFso As Object
Dim strPath As String
Dim strFileName As String
strFileName = "C:\Users\T105739\Desktop\Office Phone Directory List.doc"
strPath = "\\controller.alleghenycounty.us\DavWWWRoot\Employee Phone List\Office Phone Directory List.doc"
Set ObjFso = CreateObject("Scripting.FileSystemObject")
If ObjFso.FileExists(strPath) = True Then
MsgBox ("The file exists")
ObjFso.CopyFile strPath, strFileName, True
Else
MsgBox "The file does not exist"
End If
lbl_Exit:
Exit Sub
End Sub