Outlook 2007′de gelen kutusundaki e-posta adreslerini alma

Outlook 2007′de gelen kutusundaki e-posta adreslerini alma

Outlook’u açınız , üst menüden Araçlar -> Makro -> Visual Basic Düzenleyicisi‘ne girin.

Resim-1

Sol taraftan yeni modüle açın.

Resim-2

VB Script kodunu yapıştırın ve sol üstten kaydedin.

Resim3

Outlook’ta Araçlar -> Kurallar ve Uyarılar menüsünü açın.

Resim-4

Yeni kural oluşturun , Boş bir kuraldan başla ve Ulaştığında iletileri denetle sekmelerini seçin.

Resim-5

Bir sonraki pencerede yanlızca bana gönderilen sekmesini işaretleyin ve ileriyi tıklayın.

Resim-6

Komut dosyası öğesini çalıştır sekmesini işaretleyin ve kaydettiğiniz  komut dosyasını seçin.

Resim-7

Son diyerek kuralı bitiriyoruz.

Resim-8

Son olarak oluşturduğumuz bu kuralı çalıştırıyoruz.

 

Hepsi bitti , şimdi adres defterinizi kontrol edin.Bütün mail adreslerinin kaydedilmiş olduğunu göreceksiniz. VB Script kodumuz şu şekildedir;

 


Sub AutoAddContact(Item As MailItem)
    Dim olkContacts As MAPIFolder, _
        olkContact As ContactItem, _
        olkReply As MailItem, _
        olkRecip As Recipient, _
        strAddress As String
    Set olkContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
    Set olkContact = olkContacts.Items.Find("[FullName] = '" & Item.SenderName & "'")
    If TypeName(olkContact) = "Nothing" Then
        Set olkContact = Outlook.Application.CreateItem(olContactItem)
        Set olkReply = Item.Reply
        Set olkRecip = olkReply.Recipients.Item(1)
        If Err = 0 Then
            strAddress = olkRecip.Address
            If strAddress = "" Then
                strAddress = olkRecip.Name
            End If
        End If
        With olkContact
            .Email1Address = strAddress
            .FullName = Item.SenderName
            'Feel free to remove the next line'
            .Body = "Record created automatically on " & Date & " at " & Time & " by BlueDevilFan's script."
            .Save
        End With
    End If
    Set olkContact = Nothing
    Set olkContacts = Nothing
    Set olkReply = Nothing
    Set olkRecip = Nothing

 End Sub

Hazırlayan : Özgür Özocak

Oca1
Yazar

Özgür Özocak

Yorumlar

(7 yorum/ping var)
  1. Meltem 10 Ocak Pazar ´10 23:05
     

    Bu faydalı ve açıklayıcı bilgi için teşekkür ederim.Outlook 2003 versiyonunda da uygulayabiliriz sanırım.

     
  2. Özgür Özocak 11 Ocak Pazartesi ´10 22:59
     

    Outlook 2003 üzerinde de çalışmaktadır.

     
  3. Hüsnü Güner 23 Temmuz Cumartesi ´11 16:11
     

    Bilgilendirme için teşkkürler. Fakat 2010 üzerinde çalıştıramadım. Yardımcı olabilirmisiniz.

     
  4. Özgür Özocak 25 Temmuz Pazartesi ´11 08:04
     

    Outlook 2010′da çalışmaktadır. Muhtemelen kodu eklerken yanlışlık yaptınız. Verdiğim kodu makro alanına eklerken satırların başındaki numaraları almayın. Kolaylık olması açısından buradan kopyalayabilirsiniz.

    Sub AutoAddContact(Item As MailItem)
    Dim olkContacts As MAPIFolder, _
    olkContact As ContactItem, _
    olkReply As MailItem, _
    olkRecip As Recipient, _
    strAddress As String
    Set olkContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
    Set olkContact = olkContacts.Items.Find(“[FullName] = ‘” & Item.SenderName & “‘”)
    If TypeName(olkContact) = “Nothing” Then
    Set olkContact = Outlook.Application.CreateItem(olContactItem)
    Set olkReply = Item.Reply
    Set olkRecip = olkReply.Recipients.Item(1)
    If Err = 0 Then
    strAddress = olkRecip.Address
    If strAddress = “” Then
    strAddress = olkRecip.Name
    End If
    End If
    With olkContact
    .Email1Address = strAddress
    .FullName = Item.SenderName
    ‘Feel free to remove the next line’
    .Body = “Record created automatically on ” & Date & ” at ” & Time & ” by BlueDevilFan’s script.”
    Save
    End With
    End If
    Set olkContact = Nothing
    Set olkContacts = Nothing
    Set olkReply = Nothing
    Set olkRecip = Nothing
    End Sub

     
  5. Ahmet Şanlıtürk 5 Aralık Pazartesi ´11 16:53
     

    Çok teşekkür ederim inanılmaz işime yaradı…

     
  6. Ahmet Şanlıtürk 5 Aralık Pazartesi ´11 17:17
     

    inanılmaz işime yarayacak demeliymişim sanırım çünkü adım adım yukarıda yazanların hepsini yaptım kuralı çalıştırdım ama adres defterine 1 adres bile eklemedi… :(

     
  7. Özgür Özocak 5 Aralık Pazartesi ´11 20:05
     

    Merhaba,
    Makalede anlatılanları doğru yaptığınıza emin olun. Kodu kopyalarken tırnak işaretlerine dikkat edin. Çalışmaması imkansız..

     

Yeni Yorum

Önce Okuyun Lütfen bu bölüme sadece yorumlarınızı yazınız.Teknik yardıma ihtiyaç duyduğunuz konuları yazabileceğiniz forum henüz aktif değildir.
Yorumlarda düzgün bir anlatım kullanmaya ve genel yazım kurallarına uymaya özen gösteriniz.Örneğin;küçük-büyük harfleri yanlış kullanmayınız,argo kelimeler ile cümle kurmayınız,politik,dini yazı yada konu ile alakası olmayan yorumlar yazmamaya dikkat ediniz..

Teknolojikadam.com'da yayınlanan yorumların sorumluluğu, yorumu yazan kişiye aittir.

Bu sitede bulunan bütün yorumlar Yönetici onayından geçtikten sonra yayınlanır.Üst satırda bahsedilen kurallara uymayan yorumlar silinir.

İletişim Bilgileri


E-Posta adresiniz gösterilmeyecektir.

Yorum   
Ad soyad, eposta ve yorum alanları
(⊗ işaretli alanlar) zorunludur.

teknolojikadam.com'da şu an 12 ziyaretçi geziniyor. Toplam 69 yazı, 130 yorum var