Merhabalar
İş takibimizi kolaylaştırmak adına yapılacak işlerden başka bir sayfaya otomatik tablo oluşturarak ilgili kişilere mail göndermeyi yaptım. Mail atma olayınıda otomatik olarak göndermeyi denemedim bulduğum formüllerden fakat başarılı olamadım. Sizden ricam ekteki dosyadaki bunu uygulamam için yardım edebilirmisiniz. Birde her mail gönderiminde outlook benden onay istiyor bunu nasıl kaldırabilirim
Sayın yildiray,
Alıntı: ...her mail gönderiminde outlook benden onay istiyor bunu nasıl kaldırabilirim...
ifadenizdeki talebinize yönelik olarak;
İster,Makro Güvenlik Ayarı seviyesini Düşük ya da Orta olarak ayarlamak sureti ile bu onay mesajının ekranda belirmesini engelleyebilirsiniz.fakat,siz de tahmin edersiniz ki,bu durum pek de sağlıklı değil,yine de bilinmesi adına bahsi yapılmıştır.isterseniz de,ilgili uygulamanızdaki kod satırları içerisinde yer alan
komutunu iptal edip (etkisizleştirip),yerine
Kod:
.Display
Application.Wait (Now + TimeValue("0:00:05"))
Application.SendKeys keys:="%S", Wait:=True
kod ifadesini de yazmak sureti ile,bu uyarıyı almaksızın geçebilirsiniz.bilginize.
İyi çalışmalar,saygılar.
Sayın Atoz112
cevabınız için teşekkür ederim. Nerede hata yapıyorum bilmiyorum ama yazdıklarını defalarca denememe rağmen başaramadım. verdiğiniz kodları yazdığımda ise excel'de outlook gibi mail gönder ekranı menü çubuğunun alt tarafında çıkıp gönder düğmesine basmam gerekiyor.
Bunu istememin bir nedeni de otomatik mail göndermede bana gerek kalmadan sistemin mail atmasıdır.
Yardımlarınız için şimdiden tesekkürler
sayın yildiray,
referanslarınızı kontrol ederek,
Microsoft Outlook XX.X Object Library
referansını işaretlemek sureti ile tekrar deneyiniz.
son olarak,
bir önceki mesajda bahsi geçen kod ifadelerini örnek teşkll etmesi adına;aşağıdaki gibi yerleştirebilirsiniz.bilginize.
Kod:
With .Item
.To = "a@a.com; b@b.com"
.CC = ""
.Subject = "İŞ TAKİBİ LİSTESİ"
.bcc = ""
' .Send
.Display
Application.Wait (Now + TimeValue("0:00:05"))
Application.SendKeys keys:="%S", Wait:=True
End With
iyi çalışmalar,saygılar.
Merhaba
Formülü uyguladım fakat çözüme ulaşamadım sanrım benim ayarlarım da sıkıntı var. internette araştırıp bulabildiğim kadarıyla KEY_CURRENT_USER\Software\Policies\Microsoft\Office\14.0\Outlook\Preferences de değişiklikler yaptım olmadı. Microsoft Outlook 14.0 Object Library nerden bulabilirim.
Otomatik gönderim içinde yardımcı olabilirmisiniz.
Teşekkürler
(02/08/2015, 20:54)yildiray yazdı: Merhaba
Formülü uyguladım fakat çözüme ulaşamadım sanrım benim ayarlarım da sıkıntı var. internette araştırıp bulabildiğim kadarıyla KEY_CURRENT_USER\Software\Policies\Microsoft\Office\14.0\Outlook\Preferences de değişiklikler yaptım olmadı. Microsoft Outlook 14.0 Object Library nerden bulabilirim.
Otomatik gönderim içinde yardımcı olabilirmisiniz.
Teşekkürler
Profil bilgilerinizde ofis 2010 kullandığınız yazıyor.
Referanslarda "Microsoft Outlook 14.0 Object Library" isimli referans yok mu?
Yok ise; "Browse..." butonuna tıklayıp "C:\Program Files\Microsoft Office\Office14" dizinindeki "MSOUTL.OLB" dosyasını referanslara ekleyin.