Kaip paketu eksportuoti kelių kontaktų nuotraukas ir informaciją naudojant „Outlook VBA“.

„Outlook“ sprendimai Rugsėjis 29, 2025

Jei norite išskleisti kontaktų nuotraukas ir jų pirminę informaciją į aplanką vietiniame diske paketais, turite naudoti Outlook VBA. Šis straipsnis išsamiai išmokys, kaip tai pasiekti.

„Outlook“ leidžia eksportuoti kontaktinę informaciją naudojant funkciją „Importuoti ir eksportuoti“. Galite eiti į „Failas“ > „Spausdinti“ > „Importuoti“ > „Eksportuoti į failą“.

Tačiau ši funkcija neleidžia eksportuoti kontaktų nuotraukų. Taigi, jei norite išgauti ir kontaktinę informaciją, ir nuotraukas, turite pakartotinai naudoti „Outlook VBA“. Toliau pateikiami VBA kodai ir veiksmai, kuriais galima išsaugoti kontaktų nuotraukas į nurodytą vietinį aplanką ir išskleisti kontaktinę informaciją į tekstinį failą.

Paketas eksportuokite kelių kontaktų nuotraukas ir informaciją

Pirmiausia paleiskite „Outlook“ ir paspauskite klavišų kombinaciją „Alt + F11“.
Tada gausite prieigą prie VBA redaktoriaus. Dabar turėtumėte atidaryti nenaudojamą modulį arba sukurti naują modulį „Įterpti“ > „Modulis“.
Tada nukopijuokite ir įklijuokite šiuos VBA kodus į naująjį modulį.

Sub BatchExportContactPhotosandInformation()
    Dim objContacts As Outlook.Items
    Dim objContact As ContactItem
    Dim strContactInfo As String
    Dim objFileSystem As Object
    Dim objTextfile As Object
    Dim objAttachments As Attachments
    Dim objAttachment As Attachment
    Dim strName As String
 
    'Specify the contacts in the default contact folder
    Set objContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
 
    For Each objContact In objContacts
        If TypeOf objContact Is ContactItem Then
           'Get the contact's primary informtaion
           strContactInfo = "Name: " & objContact.FullName & vbCrLf & "Email: " & objContact.Email1Address & vbCrLf & "Company: " & objContact.Companies & vbCrLf & "Job Title: " & objContact.JobTitle & vbCrLf & "Business Address: " & objContact.BusinessAddress & vbCrLf & "Business Phone: " & objContact.BusinessTelephoneNumber
           'Create a Text file
           Set objFileSystem = CreateObject("Scripting.FileSystemObject")
           'You can change the folder path as per your needs
           Set objTextfile = objFileSystem.CreateTextFile("C:\Outlook Contacts\" & objContact.FullName & ".txt", True)
           objTextfile.WriteLine (strContactInfo)
 
           'Save the contact photos
           If objContact.Attachments.Count > 0 Then
              Set objAttachments = objContact.Attachments
              For Each objAttachment In objAttachments
                  If InStr(LCase(objAttachment.filename), "contactpicture.jpg") > 0 Then
                     strName = objContact.FullName & ".jpg"
                     objAttachment.SaveAsFile ("C:\Outlook Contacts\" & strName)
                  End If
              Next
           End If
       End If
    Next
End Sub

Pastaba: Pirmiau nurodyti kodai eksportuos kontaktų nuotraukas ir informaciją į numatytąjį kontaktų aplanką. Galite pakeisti nurodytus kontaktus.

Jei norite eksportuoti kontaktų nuotraukas ir informaciją šiuo metu atidarytame aplanke, pakeiskite „Set objContacts = ....“ į:

Set objContacts = Outlook.Application.ActiveExplorer.CurrentFolder.Items

Jei tikitės eksportuoti tik pasirinktų kontaktų nuotraukas ir informaciją, galite naudoti šias eilutes:

Dim objSelection as Selection
Set objSelection = Outlook.Application.ActiveExplorer.Selection
For each objContact in objSelection

Po to galite uždaryti VBA redaktorių ir, kaip įprasta, pridėti naują projektą prie greitosios prieigos įrankių juostos.
Galiausiai galite spustelėti makrokomandos mygtuką greitosios prieigos įrankių juostoje. Iš karto kontaktinės nuotraukos ir informacija bus eksportuota į nurodytą aplanką vietiniame diske.

Galite atidaryti vieną tekstinį failą, kuriame bus pateikta pagrindinė informacija, pvz., šią ekrano kopiją:

Susitvarkykite su netikėta „Outlook“ korupcija

Neabejotina, kad „Outlook“ yra pažeidžiama. Taigi, jei kenčiate nuo „Outlook“ korupcijos, pirmiausia turėtumėte nusiraminti. Tada galite tęsti remontą sugadintas Outlook PST el. Galite išbandyti gautųjų taisymo įrankį. Jei tai nepavyksta, tada jūs neturite kito pasirinkimo, kaip naudoti daug galingesnį įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisykite sugadintą SQL mdf duomenų bazę ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com