AccessTr.neT

Tam Versiyon: Kurum Ağında Outlook Kullanırken Oluşan Sorunlar
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.