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

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

Outlook'ta belirli bir kişinin fotoğrafını kaydetmek için lütfen aşağıdaki işlemleri gerçekleştirin:

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

2. Fotoğrafını kaydedeceğiniz belirtilen kişiyi açmak için çift tıklayın.

3. İletişim penceresinde, lütfen kişi fotoğrafına sağ tıklayın ve seçin kopya sağ tıklama menüsünden. Ekran görüntüsüne bakın:

4. İmleci notlar kutu ve basın Ctrl + V fotoğrafı yapıştırma tuşları notlar kutu.

5. Yapıştırılan fotoğrafı sağ tıklayın notlar kutu ve seçin Resim Olarak Kaydet sağ tıklama menüsünden. Ekran görüntüsüne bakın:

6. Dosya Kaydetme iletişim kutusunu açarken lütfen (1) fotoğrafı kaydedeceğiniz hedef klasörü açın, (2) yeni fotoğraf için bir ad yazın dosya adı kutu, (3) bir görüntü türü belirtin Kayıt türü açılır liste ve son olarak (4) tıklayın İndirim buton. 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 kaydedildi.

Tüm kişilerin fotoğraflarını Outlook'ta bir kişi klasörüne 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 Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.

2. tıklayın Ekle > modülve ardından yeni modül penceresine VBA kodunun altına yapıştırın.

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

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. Diğer görüntü türü olarak kaydetmek için lütfen . Jpg kodda xPath = xFileName & xName & ".jpg" gibi diğer uzantı adlarına . Png, . Gif, vb.

3. basın F5 tuşu veya koşmak Bu VBA'yı çalıştırmak için düğmesine basın.

4. Klasöre Göz At iletişim kutusunu açarken, lütfen fotoğrafları kaydedeceğiniz hedef klasörü seçin ve OK buton. Ekran görüntüsüne bakın:

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

Outlook'ta e-postalarda kişi fotoğraflarını gizle

Outlook'ta kişi için resim / fotoğraf ekleyin, değiştirin veya kaldırın