outlook 2007 ye gelen maillerdeki hesapların adres defterine eklenmesi

Araçlar menüsünden Kurallar ve Uyarılar sekmesini kullanabilirsiniz.

Kullanmayı dendeim ancak herhangi bir şey anlıyamadım daha detaylı yardımcı olabilir misniz ?

Merhaba,

 

Normalde bunu otomatik olarak yapamazsınız.Ancak gelen gönderici kimse from  kısmındaki ismini seçip oradan adres defterine ekleyebilirsiniz.Ama bunun için  VB Script kullanabilirsiniz.Bunun için yapmanız gerekenler ;

1-  Outlook içinden Tools -Macro -Visual  Basic Editor gelin.

Sonra açılan pencereden  sol taraftan  " Microsoft Outlook  Object  " olacaktır.Ona sağ tıklyarak  "New  "  ile  Module oluşturunuz.

Sonrasında orta alandaki  kod alanına aşağıdaki kodu yapıştırınız.

 

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

bunu yapıştırdıktan sonra  sağ üstteki butondan  kaydediniz.Outlook geri dönün.Şimdi  Tools-  Rules  gelin.   Sonraki  işlemde

Start from blank"  işaretleyin.Sonra check messages  when they  arrive "işaretleyip işleme devam edin.Sonrasında condition ( koşul) olarak gelen

 tüm mesajlar için

diye kural oluşturunuz.Örn:     sent only to me    işaretleyebilirsiniz.

Sonraki işlemde "run a  script "  seçip  mavi yazıya tıklayıp  önce oluşturduğun listeden script seçiniz.Sonra geri kalanları olduğu gibi bırakıp işlemi

bitirip kuralı uygulayınız.

 

Saygılarımla,

 

 

Kullanmayı dendeim ancak herhangi bir şey anlıyamadım daha detaylı yardımcı olabilir misniz ?

Genellikle sahsın adına söyliyeyim bu tarz bir işlemi manuel yapıyorum neden mi ? - Kişiye ait ek bilgiler giriyorum hatırlama tarafında iyi oluyor .