Outlook'ta kişi fotoğraflarını nasıl kaydedersiniz?

Outlook'ta bir kişinin fotoğrafını kaydetme

Outlook'ta tüm kişilerin tüm fotoğraflarını kaydetme

Outlook'ta belirli bir kişinin fotoğrafını kaydetmek için lütfen şu adımları izleyin:

1. Belirtilen kişiyi içeren kişi klasörünü açın ve Görünüm > Görünümü Değiştir > Liste'ye tıklayarak klasör görünümünü değiştirin. Ekran görüntüsüne bakın:

2. Kaydedeceğiniz belirli kişinin fotoğrafını çift tıklayarak açın.

3. Kişi penceresinde lütfen kişi fotoğrafına sağ tıklayın ve sağ tıklama menüsünden Kopyala'yı seçin. Ekran görüntüsüne bakın:

4. İmleci Notlar kutusuna yerleştirin ve Ctrl + V tuşlarına basarak fotoğrafı Notlar kutusuna yapıştırın.

5. Notlar kutusunda yapıştırılan fotoğrafa sağ tıklayın ve sağ tıklama menüsünden Resim Olarak Kaydet'i seçin. Ekran görüntüsüne bakın:

6. Açılan Dosya Kaydet iletişim kutusunda lütfen (1) fotoğrafı kaydedeceğiniz hedef klasörü açın, (2) Yeni dosya adı kutusuna yeni fotoğraf için bir isim yazın, (3) Farklı kaydet türünden bir resim türü belirtin ve son olarak (4) Kaydet düğmesine tıklayın. Ekran görüntüsüne bakın:

7. Değişiklikleri kaydetmeden Kişi penceresini kapatın.

Şimdiye kadar, belirtilen kişinin fotoğrafı zaten tek bir resim olarak kaydedilmiştir.

Eğer Outlook'taki bir kişi klasöründeki tüm kişilerin fotoğraflarını kaydetmeniz gerekiyorsa, lütfen aşağıdaki VBA'yı deneyin.

1. Tüm kişi fotoğraflarını kaydedeceğiniz belirtilen kişi klasörünü açın ve Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Ekle Insert > Module'e tıklayın ve ardından aşağıdaki VBA kodunu yeni modül penceresine yapıştırın.

VBA: Outlook'taki tüm kişilerin fotoğraflarını toplu olarak kaydetme

Sub SaveAllContactsPhotos()
Dim xNameSpace As NameSpace
Dim xFdrContacts As MAPIFolder
Dim xItemContact As ContactItem
Dim xAttachments As Outlook.Attachments
Dim xAttach As Attachment
Dim xItems As Outlook.Items
Dim xName As String
Dim xPath, xFileName As String
Set xFdrContacts = Application.ActiveExplorer.CurrentFolder
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xFileName = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For I = 1 To xFdrContacts.Items.Count
Set xItemContact = xFdrContacts.Items(I)
Set xAttachments = xItemContact.Attachments
For Each xAttach In xAttachments
If xAttach.FileName = "ContactPicture.jpg" Then
xName = xItemContact.FirstName & xItemContact.LastName
xPath = xFileName & xName & ".jpg"
xAttach.SaveAsFile (xPath)
End If
Next
Next
Set xShell = Nothing
End Sub

Not: Bu VBA tüm kişi fotoğraflarını JPG resimleri olarak kaydedecektir. Başka bir resim türü olarak kaydetmek için koddaki xPath = xFileName & xName & ".jpg" kısmındaki .jpg'yi başka uzantı adlarıyla değiştirin, örneğin .png, .gif vb.

3. Bu VBA'yı çalıştırmak için F5 tuşuna veya Çalıştır düğmesine basın.

4. Açılan Klasör Seçimi iletişim kutusunda lütfen fotoğrafları kaydedeceğiniz hedef klasörü seçin ve Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Şimdi seçilen kişi klasöründeki tüm kişi fotoğrafları, belirttiğiniz gibi toplu halde tek tek .jpg (veya başka bir resim türü) olarak kaydedilmiştir.

Outlook'ta e-postalardaki kişi fotoğraflarını gizleme

Outlook'ta kişi için resim/fotoğraf ekleme, değiştirme veya kaldırma