Ինչպե՞ս արտահանել կոնտակտների տեղեկատվությունը լուսանկարների հետ Outlook- ում:
Երբ Outlook- ից կոնտակտներ եք արտահանում ֆայլ, միայն կոնտակտների տեքստային տեղեկատվությունը կարող է արտահանվել: Բայց երբեմն անհրաժեշտ է, որ արտահանվեն ինչպես լուսանկարները, այնպես էլ կոնտակտների տեքստային տեղեկատվությունը, ինչպե՞ս կարող եք գործ ունենալ Outlook- ի այս խնդրի հետ:
Արտահանեք կոնտակտների տեղեկատվությունը հարաբերական լուսանկարներով `օգտագործելով VBA կոդ
Արտահանեք կոնտակտների տեղեկատվությունը հարաբերական լուսանկարներով `օգտագործելով VBA կոդ
Ստորև ներկայացված VBA կոդը կարող է օգնել ձեզ արտահանել բոլոր կոնտակտները որոշակի կոնտակտային թղթապանակում ՝ տեքստային ֆայլը լուսանկարներով առանձնացնելու համար: Խնդրում եմ, արեք այսպես.
1. Ընտրեք կոնտակտների պանակ, որը ցանկանում եք արտահանել կոնտակտները լուսանկարներով:
2, Եվ հետո, պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
3, Դրանից հետո կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ, տես նկարի նկարը.
VBA կոդ. Արտահանել կոնտակտների տեղեկատվությունը լուսանկարներով.
Sub BatchExportContactPhotosandInformation()
Dim xContactItems As Outlook.Items
Dim xItem As Object
Dim xContactItem As ContactItem
Dim xContactInfo As String
Dim xShell As Object
Dim xFSO As Scripting.FileSystemObject
Dim xTextFile As Scripting.TextStream
Dim xAttachments As Attachments
Dim xAttachment As Attachment
Dim xSavePath, xEmailAddress As String
Dim xFolder As Outlook.Folder
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xShell = CreateObject("Shell.application").BrowseforFolder(0, "Select a Folder", 0, 16)
If xShell Is Nothing Then Exit Sub
xSavePath = xShell.Items.Item.Path & "\"
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
Set xFolder = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
Else
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
End If
Set xContactItems = xFolder.Items
For i = xContactItems.Count To 1 Step -1
Set xItem = xContactItems.Item(i)
If xItem.Class = olContact Then
Set xContactItem = xItem
With xContactItem
xEmailAddress = .Email1Address
If Len(Trim(.Email2Address)) <> 0 Then
xEmailAddress = xEmailAddress & ";" & .Email2Address
End If
If Len(Trim(.Email3Address)) <> 0 Then
xEmailAddress = xEmailAddress & ";" & .Email3Address
End If
xContactInfo = "Name: " & .FullName & vbCrLf & "Email: " & _
xEmailAddress & vbCrLf & "Company: " & .CompanyName & _
vbCrLf & "Department: " & .Department & _
vbCrLf & "Job Title: " & .JobTitle & _
vbCrLf & "IM: " & .IMAddress & _
vbCrLf & "Business Phone: " & .BusinessTelephoneNumber & _
vbCrLf & "Home Phone: " & .HomeTelephoneNumber & _
vbCrLf & "BusinessFax Phone: " & .BusinessFaxNumber & _
vbCrLf & "Mobile Phone: " & .MobileTelephoneNumber & _
vbCrLf & "Business Address: " & .BusinessAddress
Set xTextFile = xFSO.CreateTextFile(xSavePath & .FullName & ".txt", True)
xTextFile.WriteLine xContactInfo
If .Attachments.Count > 0 Then
Set xAttachments = .Attachments
For Each xAttachment In xAttachments
If InStr(LCase(xAttachment.FileName), "contactpicture.jpg") > 0 Then
xAttachment.SaveAsFile (xSavePath & .FullName & ".jpg")
End If
Next
End If
End With
End If
Next i
End Sub
4, Կոդը մոդուլի մեջ մտցնելուց հետո անցեք կտտացնելով Գործիքներ > Սայլակ է Microsoft Visual Basic հավելվածների համար պատուհանը դուրս եկավ Հղումներ-նախագիծ 1 երկխոսության տուփ, ստուգեք Microsoft Scripting Runtime տարբերակը Հասանելի հղումներ ցուցակի տուփ, տես նկարի նկարը.
5: Սեղմեք OK փակել երկխոսությունը, ապա սեղմել F5 Այս կոդն աշխատեցնելու բանալին դուրս է եկել դուրս Թերթիր պանակի համար երկխոսության տուփ, նշեք այն թղթապանակը, որտեղ ցանկանում եք արտահանել արտահանվող կոնտակտները, տես նկարի նկարը.
6. Այնուհետեւ կտտացրեք OK, բոլոր կոնտակտների լուսանկարների հետ կապված ամբողջ տեղեկատվությունն արտահանվել է ձեր հատուկ թղթապանակ առանձին, տես նկարի նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: