Excel Forum


Geri Git   Excel Forum > Diğer Yazılımlar > Windows-Word-PowerPoint....
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ

Windows-Word-PowerPoint.... Excel haricindeki Ofis programları ile ilgili konular.
Dosya ekleyebilirsiniz

Özel Arama



Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 29-12-2006, 12:04   #1
Haluk
 
Haluk kullanıcısının avatarı
 
Giriş: 07/07/2004
Şehir: Turkiye
Mesaj: 4,770
Excel Vers. ve Dili:
Office 2000 - Ingilizce
Varsayılan MS Outlook'a eklenti

Merhaba;

Eğer bilgisayarınızda e-posta programı olarak MS Outlook kullanıyorsanız ve bilgisayarınızda siz çalışırken ikide bir gelen mailleri iş icabı veya meraktan açıp da ".... acaba ne geldi ?" diye bakmak için işinizi bırakıp, gelen iletileri açmakla uğraşıp da artık benim gibi siz de bundan bıktıysanız, belki işinizi biraz kolaylaştırabilirim ....

Bu iş için MS Outlook altında VBA ile ufak bir kod hazırladım.

Yaptığı iş kısaca şu;

- MS Outlook açık iken ve siz herhangibir dosya üzerinde çalışırken veya internette birşeyler araştırken yeni bir e-posta geldiğinde, ekranın sağ alt köşesindeki görev çubuğunun hemen üzerinde (.... hani, saat - hoparlör vb ıvır-zıvır ikonların olduğu yer) otomatik olarak ufak bir UserForm ortaya çıkacak ve size o anda gelen e-postanın kimden geldiğini, konusunu ve mesaj içeriğinin belli bir kısmını görebileceksiniz.

- Böylece siz, içeriğine şöyle bir göz atıp UserForm'u kapatıp kaldığınız yerden işinize devam edebilecek veya önemli bir mail ise, gidip MS Outlook'dan sözkonusu e-postanızı açacaksınız.

- Eğer bu işi yapmak isteseniz

1) Ekli zip dosyasını indirip, içindekileri (UserForm1.frm ve UserForm1.frx dosyaları) örneğin masaüstüne açın.

2) MS Outlook programını açın ve Alt + F11 tuşlarına birlikte basarak Visual Basic Editör'ü açın.

3) Editörde menülerden, File >> Import File menüsünü çalıştırın ve gelen ekrandan UserForm1.frm dosyasını seçin ve açın.

4) Böylece, UserForm1 sizin MS Outlook uygulamanıza dahil olmuş oldu. Şimdi, editörde sol tarafta ThisOutlookSession yazan yeri çift tıklayın. Bu, MS Excel'deki ThisWorkbook modülü'nün MS Outlokk' daki karşılığıdır. Siz, çift tıkladıktan sonra, sağ taraftaki kod penceresine aşağıdaki kodları buradan kopyalayarak, yapıştırın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Application_NewMail()
    Dim MyOutlook As Object
    Dim NS As Object
    Dim NewMail As Object
    Dim MyInbox As Object
    Set MyOutlook = CreateObject("Outlook.Application")
    Set NS = MyOutlook.GetNamespace("MAPI")
    Set MyInbox = NS.GetDefaultFolder(olFolderInbox)
    Set NewMail = MyInbox.Items(MyInbox.Items.Count)
    
    With UserForm1
        .Label3.Caption = NewMail.SenderName
        .Label4.Caption = NewMail.Subject
        .Label5.Caption = NewMail.Body
        .Show
    End With
    
    Set NewMail = Nothing
    Set MyInbox = Nothing
    Set NS = Nothing
    Set MyOutlook = Nothing
End Sub
5) Evet..... her şey yolunda gittiyse, editörün menü çubuğundan yaptığınız bu çalışmayı kaydedin ve editör penceresini kapatın.

6) Şimdi, bir deneme yapmak için MS Outlook ile kendi kendinize bir e-posta yollayın. Bakalım, oldu mu ?

Söz konusu zip dosyası da ektedir ...
Eklenmiş Dosyalar
Dosya Türü: zip UserForm.zip (1.9 KB, 33 Görüntülenme)
__________________
Kod anlatılmaz,yazılır !
Burası Excel vadisi ....
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2006, 12:23   #2
Levent Menteşoğlu
Administrator
 
Levent Menteşoğlu kullanıcısının avatarı
 
Giriş: 13/10/2004
Şehir: Çorlu
Mesaj: 15,824
Excel Vers. ve Dili:
Excel 2010-Türkçe
Varsayılan

Değerli dostum

Az önce denedim. Eline sağlık çok güzel çalışıyor.
__________________
FORUM KURALLARI



"Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz. " Kaylan
Levent Menteşoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2006, 12:53   #3
Haluk
 
Haluk kullanıcısının avatarı
 
Giriş: 07/07/2004
Şehir: Turkiye
Mesaj: 4,770
Excel Vers. ve Dili:
Office 2000 - Ingilizce
Varsayılan

Sağol dostum,

İcatlar, ihtiyaçtan doğar ...
__________________
Kod anlatılmaz,yazılır !
Burası Excel vadisi ....
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2006, 13:01   #4
Levent Menteşoğlu
Administrator
 
Levent Menteşoğlu kullanıcısının avatarı
 
Giriş: 13/10/2004
Şehir: Çorlu
Mesaj: 15,824
Excel Vers. ve Dili:
Excel 2010-Türkçe
Varsayılan

Hocam bir kaç düzeltme yapılırsa çok daha güzel olur,

birincisi, kod çalışmadan önce her seferinde erişim izni isteyen bir uyarı mesajı çıkıyor, bunu onaylamak gerekiyor. Bu uyarı mesajını engelleyecek bir kod ilavesi yada manuel bir ayar gerekiyor. (manuel bir ayarı varmı bilmiyorum.)

ikincisi peşpeşe birden fazla e-mail geldiğinde sadece ilkini gösteriyor.
__________________
FORUM KURALLARI



"Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz. " Kaylan
Levent Menteşoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2006, 13:12   #5
Haluk
 
Haluk kullanıcısının avatarı
 
Giriş: 07/07/2004
Şehir: Turkiye
Mesaj: 4,770
Excel Vers. ve Dili:
Office 2000 - Ingilizce
Varsayılan

Erişim izni problemiyle ben Office2000' de karşılaşmadım, bilmiyorum ....

Belki senin kullandığın Outlook versiyonunun bir yerinde ya da VBA kısmında bir güvenlik ayarı vardır. Belki de kullandığın antivirüs buna neden olabilir.

Bahsettiğin diğer konu da şu;

Yeni bir e-mail geldiğinde, UserForm üzerinde o sırada en son mesaj hangisi ise o belirir. Yani, UserForm kapanana kadar ...

Yine de bir bakarım ...
__________________
Kod anlatılmaz,yazılır !
Burası Excel vadisi ....
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2006, 13:33   #6
Levent Menteşoğlu
Administrator
 
Levent Menteşoğlu kullanıcısının avatarı
 
Giriş: 13/10/2004
Şehir: Çorlu
Mesaj: 15,824
Excel Vers. ve Dili:
Excel 2010-Türkçe
Varsayılan

Uyarı mesajı aşağıdaki gibidir.
Eklenmiş Resimler
Dosya Türü: jpg uyari.JPG (17.0 KB, 23 Görüntülenme)
__________________
FORUM KURALLARI



"Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz. " Kaylan
Levent Menteşoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2006, 13:37   #7
Haluk
 
Haluk kullanıcısının avatarı
 
Giriş: 07/07/2004
Şehir: Turkiye
Mesaj: 4,770
Excel Vers. ve Dili:
Office 2000 - Ingilizce
Varsayılan

Evet dostum ....

Daha önceden dediğim gibi, sorun senin kullandığın versiyonun daha güvenlikli olarak hazırlanmasından kaynaklanıyor. Yani, kullandığın MS Outlook'un bir güvenlik uygulaması.

Bu arada, belki PC'e kurduğun bir ServicePack ile de bu güvenlik yaması gelmiş olabilir.

Office2000'i seviyorum ....
__________________
Kod anlatılmaz,yazılır !
Burası Excel vadisi ....
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2006, 13:42   #8
Haluk
 
Haluk kullanıcısının avatarı
 
Giriş: 07/07/2004
Şehir: Turkiye
Mesaj: 4,770
Excel Vers. ve Dili:
Office 2000 - Ingilizce
Varsayılan

Outlook2003 için güvenlik ayarları ...

http://office.microsoft.com/en-us/or...402931033.aspx
__________________
Kod anlatılmaz,yazılır !
Burası Excel vadisi ....
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2006, 21:46   #9
Haluk
 
Haluk kullanıcısının avatarı
 
Giriş: 07/07/2004
Şehir: Turkiye
Mesaj: 4,770
Excel Vers. ve Dili:
Office 2000 - Ingilizce
Varsayılan

Aşağıdaki linkte ücretsiz bir eklenti var.

Sanırım, MS Outlook için bu tip can sıkıcı güvenlik uyarılarını kullanıcı kendi isteklerine göre engelleyebiliyor.

http://www.mapilab.com/outlook/security/
__________________
Kod anlatılmaz,yazılır !
Burası Excel vadisi ....
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 05:09


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.


Bahis Forum - Define - Çorlu Kamera - Çorlu Petek Temizleme - Site Yönetimi - TYPO3 Türkiye
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden