Outlook- ում պահեք մեկ կոնտակտի լուսանկարը

Outlook- ում պահեք բոլոր կոնտակտների բոլոր լուսանկարները

Outlook- ում որոշակի կոնտակտային լուսանկար պահելու համար կատարեք հետևյալը.

1, Բացեք նշված կոնտակտը պարունակող կոնտակտների պանակը և սեղմելով ՝ փոխեք պանակի տեսքը Դիտել > Փոխել տեսքը > Ցուցակ, Տեսեք,

2, Կրկնակի կտտացրեք ՝ բացելու համար նշված կոնտակտը, որի լուսանկարը կփրկեք:

3, Կոնտակտային պատուհանում խնդրում ենք աջ սեղմել կոնտակտային լուսանկարը և ընտրել պատճեն աջ կտտացնելու ցանկից: Տեսեք,

4, Կուրսորը դրեք մեջը Notes տուփը և սեղմել Ctrl + V լուսանկարը տեղադրելու ստեղները Notes տուփ:

5, Մկնիկի աջ մասում կտտացրեք տեղադրված լուսանկարին Notes տուփը և ընտրեք Պահել որպես նկար աջ կտտացնելու ցանկից: Տեսեք,

6, Խնդրում ենք, դուրս գալով File Save երկխոսության դաշտում (1) բացեք նպատակակետի պանակը, որում կփրկեք լուսանկարը, (2) մուտքագրեք անուն նոր լուսանկարում Ֆայլի անուն վանդակում, (3) նշեք պատկերի տեսակը Պահել որպես տիպ բացվող ցուցակ և, վերջապես, (4) սեղմեք Փրկել կոճակ Տեսեք,

7, Փակեք Կոնտակտային պատուհանը ՝ առանց փոփոխությունները պահպանելու:

Մինչ այժմ նշված կոնտակտային լուսանկարը արդեն պահվել է որպես անհատական ​​պատկեր:

Եթե ​​Ձեզ անհրաժեշտ է պահպանել բոլոր կոնտակտների լուսանկարները Outlook- ի կոնտակտային թղթապանակում, փորձեք ստորև VBA:

1, Բացեք նշված կոնտակտների պանակը, որտեղ կփրկեք բոլոր կոնտակտային լուսանկարները և սեղմեք ալտ + F11 Microsoft Visual Basic հավելվածների համար պատուհանը բացելու ստեղները:

2: Սեղմեք Տեղադրել > Մոդուլներ, ապա տեղադրեք VBA կոդի ներքո նոր մոդուլի պատուհանում:

VBA. Outlook- ում բոլոր կոնտակտների լուսանկարները պահում են

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

ՆշումԱյս VBA- ն կփրկի բոլոր կոնտակտային լուսանկարները որպես JPG պատկերներ: Որպես պատկեր պահպանելու այլ պատկեր, խնդրում ենք փոխել , Jpg ծածկագրում xPath = xFileName & xName & ".jpg" այլ ընդլայնման անվանումներին, ինչպիսիք են .png, .gifԵւ այլն:

3. Սեղմեք F5 բանալին կամ Վազում այս VBA- ն գործարկելու կոճակը:

4, Բացահայտելով «Թերթիր թղթապանակի համար» երկխոսության պատուհանում, ընտրեք նպատակակետի պանակը, որի մեջ կփրկեք լուսանկարները և կտտացրեք OK կոճակ Տեսեք,

Այժմ ընտրված կոնտակտային թղթապանակում գտնվող բոլոր կոնտակտային լուսանկարները պահվում են որպես անհատական ​​.jpg (կամ ձեր կողմից նշված մեկ այլ պատկերի տեսակ) մեծ քանակությամբ պատկերներ:

Թաքցնել կոնտակտային լուսանկարները էլփոստերում Outlook- ում

Outlook- ում կոնտակտների համար ավելացնել, փոխել կամ հեռացնել նկար / լուսանկար