Shranite fotografijo enega stika v programu Outlook

Shranite vse fotografije vseh stikov v Outlooku

Če želite shraniti fotografijo določenega stika v programu Outlook, storite naslednje:

1. Odprite mapo stikov, v kateri je naveden stik, in s klikom spremenite pogled mape Poglej > Spremeni pogled > Seznam. Oglejte si posnetek zaslona:

2. Dvokliknite, da odprete določen stik, katerega fotografijo boste shranili.

3. V oknu za stik z desno miškino tipko kliknite fotografijo stika in izberite Kopiraj v meniju z desnim klikom. Oglejte si posnetek zaslona:

4. Postavite kazalko v Opombe in pritisnite Ctrl + V tipke za prilepitev fotografije v Opombe škatla.

5. Z desno miškino tipko kliknite prilepljeno fotografijo v Opombe in izberite Shrani kot sliko v meniju z desnim klikom. Oglejte si posnetek zaslona:

6. Prosimo, v pojavnem oknu File Save (Shrani datoteko) (1) odprite ciljno mapo, v katero boste shranili fotografijo, (2) vnesite ime za novo fotografijo v Ime datoteke škatla, (3) določite vrsto slike iz Shrani kot vrsto spustni seznam in končno (4) kliknite Shrani . Oglejte si posnetek zaslona:

7. Zaprite okno Stik, ne da bi shranili spremembe.

Doslej je bila fotografija določenega stika že shranjena kot posamezna slika.

Če morate fotografije vseh stikov shraniti v mapo stikov v Outlooku, poskusite spodaj VBA.

1. Odprite določeno mapo stikov, kamor boste shranili vse fotografije stikov, in pritisnite druga + F11 za odpiranje okna Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin nato pod novo kodo VBA prilepite v novo okno modula.

VBA: paketno shranite fotografije vseh stikov v Outlooku

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

Opombe: Ta VBA bo shranil vse fotografije stikov kot slike JPG. Če želite shraniti kot drugo vrsto slike, spremenite . Jpg v kodi xPath = xFileName & xName & ".jpg" na druga imena razširitev, na primer . PNG, . Gif, Itd

3. Pritisnite F5 tipko ali Run za zagon tega VBA.

4. V pojavnem pogovornem oknu Brskaj za mapo izberite ciljno mapo, v katero boste shranili fotografije, in kliknite OK . Oglejte si posnetek zaslona:

Zdaj se vse fotografije stikov v izbrani mapi stikov shranijo kot posamezne slike v obliki .jpg (ali druge vrste slike, kot ste določili).

Skrijte fotografije stikov v e-poštnih sporočilih v programu Outlook

Dodajte, spremenite ali odstranite sliko / fotografijo za stik v Outlooku