Run time error 462 (The remote server machine does not exits or is unavailable)

[kaos64]

Merhabalar
Teklif dosyası için kullandığım makroda bu hatayı alıyorum. Dosya ilk açıldığında düzgün çalışıyor sonrasında yukarıdaki hatayı alıyorum.

Private Sub CommandButton2_Click()
Sheets("Teklif").Select
ChDir "C:\Teklif\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Teklif\Teklif_Dosyası.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = Range("O2")
.Subject = "Fiyat Teklifi"
.Body = "Fiyat teklifimiz ekte gönderilmiştir."
.Attachments.Add "C:\Teklif\Teklif_Dosyası.pdf"
.Save
.Display
End With
Sheets("Maliyet").Select
Set NewMail = Nothing
Set OutApp = Nothing
Kill "C:\Teklif\Teklif_Dosyası.pdf"
End Sub

 

[askm]

Kodlarıda bir sorun gözükmüyor. Ben denedim çalışıyor. Koldarın başına on error resume next ekleyip deneyin. Olmazsa dosyanızı özel bilgi içermeyecek şekilde bir örneğini eklerseniz yardımcı olalım.

 

[kaos64]

Kodlarıda bir sorun gözükmüyor. Ben denedim çalışıyor. Koldarın başına on error resume next ekleyip deneyin. Olmazsa dosyanızı özel bilgi içermeyecek şekilde bir örneğini eklerseniz yardımcı olalım.

Öncelikle teşekkür ederim ilginize dosyayı yükledim Teklif