değerli hocalarım ve arkadaşlar, hazırladığım küçük bir uyarı sistemi sayesinde tarihi yaklaşan evrakların outlook üzerinden uyarısı verilecek ama bi sorunum var, kişisel bilgisayarımda çalışıyor sıkıntı yok , kurumdaki ağda sorun çıkarıyor, açıklayayım;

aşağıdaki kod, ilgili hücredeki tüm outlook adreslerini okuyup onlara ilgili eki gönderiyor ama kırmızı yazan kısımda yani objeyi set etme kısmında hata verip "sunucuya bağlantı başarısız" uyarısını oluşturuyor. aynı sürüm outlook ile evimdeki pc'de sıkıntı yok. acaba buna sebep ne olabilir ve çözüme nasıl kavuşturabilirim? 

Sub Email_CurrentWorkBook()

For i = 2 To Cells(Rows.Count, "z").End(3).Row



Dim Makro As Object

Dim Mail As Object



Set Makro = CreateObject("Outlook.Application")

Set Mail = Makro.CreateItem(0)



On Error Resume Next

With Mail

.To = Range("z" & i).Value

.CC = ""

.BCC = ""

.Subject = "Bitiş Tarihi Yaklaşan Kayıtlar"

.Body = "Açık ihalelere ait teminat ve sözleşme bitiş tarihi yaklaşan kayıtlar ektedir, saygılarımla."

.Attachments.Add ("D:\tarihiYaklaşanlar.xlsx")

.Send

End With

On Error GoTo 0

Set Mail = Nothing

Set Makro = Nothing

Next



End Sub