Run time error 462 the remote server machine does not exist or is unavailable

hi guys i have the following code:

Sub Kenneth_Li() 
    Dim objOL As Object 
    Dim Msg As Object 
     
     
    Set objOL = CreateObject("Outlook.Application") 
    inPath = "C:\Users\SiliconPlus\Desktop\Si+ Contact Lists\Contact_Si+" 
     
     
    thisFile = Dir(inPath & "\*.msg") 
    Do While thisFile <> "" 
         
         
        Set Msg = objOL.CreateItemFromTemplate(inPath & "\" & thisFile) 
        Msg.Display 
        Msg.Close olSave 
        thisFile = Dir 
    Loop 
     
     
     
     
    Set objOL = Nothing 
    Set Msg = Nothing 
End Sub

what happens is that it proceeds to open the first .msg file and then close and save it, subsequently giving a run time error 462 the remote server does not exist. Please help me!