Note: The other languages of the website are Google-translated. Back to English

 Kako izvoziti podatke o stikih s fotografijami v Outlooku?

Ko izvozite stike iz Outlooka v datoteko, je mogoče izvoziti samo besedilne podatke stikov. Toda včasih potrebujete fotografije, ki jih želite izvoziti, in besedilne podatke o stikih. Kako bi se lahko v Outlooku spoprijeli s to nalogo?

Izvozite podatke o stikih z ustreznimi fotografijami s pomočjo kode VBA


Izvozite podatke o stikih z ustreznimi fotografijami s pomočjo kode VBA

Spodnja koda VBA vam lahko pomaga izvoziti vse stike v določeno mapo stikov, da ločite besedilno datoteko s fotografijami. Naredite to:

1. Izberite mapo stikov, v katero želite izvoziti stike s fotografijami.

2. In nato držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. Nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul, glejte posnetek zaslona:

Koda VBA: izvoz podatkov o stikih s fotografijami:

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

doc izvoz stikov s fotografijami 1

4. Po lepljenju kode v modul nadaljujte s klikom Orodja > Reference v Microsoft Visual Basic za aplikacije okno, v izpuščenem Reference-Projekt1 pogovorno okno, preverite Izvajanje Microsoftovih skriptov možnost iz Razpoložljive reference seznam, glej posnetek zaslona:

doc izvoz stikov s fotografijami 2

5. Kliknite OK , da zaprete pogovorno okno in pritisnite F5 tipko za zagon te kode v izpuščenem Brskaj po mapi v pogovornem oknu določite mapo, kamor želite izvoziti izvožene stike, glejte posnetek zaslona:

doc izvoz stikov s fotografijami 3

6. Nato kliknite OK, vse informacije s fotografijami stikov so bile izvožene v vašo mapo posebej, glejte posnetek zaslona:

doc izvoz stikov s fotografijami 4


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (2)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Ali veste, da lahko veliko (vsaka?) OpenSource alternativa Outlooku izvozi stike v formatu vcard z vsemi podrobnostmi in fotografijami?
Samo z enim klikom, ni treba pisati nobene kode ...
Neverjetno, kajne?
Ta komentar je moderator na spletnem mestu minimiziral
Ker Oulook/Exchange niso brezplačni, morate plačati za vse! :-)
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije