AccessTr.neT

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

Referanslarınızda Microsoft Office xx.x Object Library ve Microsoft Outlook xx.x Object Library'yi kontrol edin. Hatalı versiyon uygulaması hataya sebep olur.

ben Excel dosyamı 2007 sürümünde hazırladım. iş yerindeki outlook ise 2013, ve ben Excel referans menüsünü açtığımda 12 li referanslar mevcut, yani uyumsuzluk mu var? ayrıca referanslar menüsündeki bir outlook kitaplığı , outlook tan mı geliyor bilmğdiğimden bir çözüm yolu bulamıyorum,

bu işi hallettim çok şükür, dim macro as object dedikten sonra set macro =creatObject("outlook.Application") değil de set macro =outlook.application yazdım ve çalıştı, teşekkürler.