+- AccessTr.neT (https://accesstr.net)
+-- Forum: Genel Konular (https://accesstr.net/forum-genel-konular.html)
+--- Forum: Farklı Konular Hakkında Sorular (https://accesstr.net/forum-farkli-konular-hakkinda-sorular.html)
+--- Konu Başlığı: Kurum Ağında Outlook Kullanırken Oluşan Sorunlar (/konu-kurum-aginda-outlook-kullanirken-olusan-sorunlar.html)
Kurum Ağında Outlook Kullanırken Oluşan Sorunlar - tarkanaykın - 02/06/2022
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 SubRE: Kurum Ağında Outlook Kullanırken Oluşan Sorunlar - atoykan - 02/06/2022
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.
RE: Kurum Ağında Outlook Kullanırken Oluşan Sorunlar - tarkanaykın - 03/06/2022
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,
RE: Kurum Ağında Outlook Kullanırken Oluşan Sorunlar - tarkanaykın - 03/06/2022
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.