Outlook’ta kişi fotoğrafları nasıl kaydedilir?

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

Outlook'taki tüm kişilerin fotoğraflarını kaydedin

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

1. Belirtilen kişiyi içeren kişi klasörünü açın ve klasör görünümünü değiştirmek için Görünüm > Görünümü Değiştir > Liste seçeneğine tıklayın. Ekran görüntüsüne bakın:

2. Kaydetmek istediğiniz fotoğrafın bulunduğu kişiyi açmak için çift tıklayın.

3. Kişi penceresinde, kişinin fotoğrafına sağ tıklayıp açılan menüden Kopyala seçeneğini seçin. Ekran görüntüsüne bakın:

4. İmleci Notlar kutusuna getirin ve fotoğrafı yapıştırmak için Ctrl+V tuşlarına basın. Notlar kutusuna.

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

6. Açılan Dosyayı Kaydet iletişim kutusunda lütfen (1) fotoğrafı kaydetmek istediğiniz hedef klasörü açın, (2) yeni fotoğraf için bir adı Dosya adı kutusuna yazın, (3) Görüntü Türü biçimini Kaydetme Biçimini Belirt açılır listesinden seçin ve son olarak (4) Kaydet düğmesine tıklayın. Ekran görüntüsüne bakın:

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

Şu ana kadar belirtilen kişinin fotoğrafı zaten ayrı bir resim olarak kaydedildi.

Outlook’ta bir kişi klasöründeki tüm kişilerin fotoğraflarını kaydetmeniz gerekiyorsa, aşağıdaki VBA kodunu deneyin.

1. Tüm kişi fotoğraflarını kaydetmek istediğiniz 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. Şuna tıklayın: Ekle > Modül, ardından aşağıdaki VBA kodunu yeni modül penceresine yapıştırın.

VBA: Outlook'ta tüm kişi 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 kaydeder. Başka bir görüntü türü biçiminde kaydetmek istiyorsanız, kodda yer alan ".jpg" ifadesini (xPath = xFileName & xName & ".jpg") istediğiniz başka bir uzantıyla değiştirin; örneğin .png, .gif vb.

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

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

Artık seçili kişi klasöründeki tüm kişi fotoğrafları, belirttiğiniz .jpg (veya başka bir görüntü türü) biçiminde toplu olarak ayrı ayrı resimler olarak kaydedildi.

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

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