Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com exportar la informació dels contactes amb fotografies a Outlook?

Quan exporteu contactes d'Outlook a un fitxer, només es pot exportar la informació de text dels contactes. Però, de vegades, necessiteu les fotografies que s'exportin, així com la informació del text dels contactes, com podeu fer front a aquesta tasca a Outlook?

Exporta la informació dels contactes amb fotografies relatives mitjançant l'ús del codi VBA


Exporta la informació dels contactes amb fotografies relatives mitjançant l'ús del codi VBA

El codi VBA de sota pot ajudar-vos a exportar tots els contactes en una carpeta de contacte específica per separar fitxers de text amb fotos. Feu el següent:

1. Seleccioneu una carpeta de contacte que voleu exportar als contactes amb fotos.

2. I després, manteniu premut el botó ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

3. A continuació, feu clic a Insereix > Mòduls, copieu i enganxeu el codi de sota del mòdul en blanc obert, vegeu la captura de pantalla:

Codi VBA: informació de contactes d'exportació amb fotos:

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 contactes d&#39;exportació amb fotos 1

4. Després de enganxar el codi al mòdul, continueu fent clic instruments > referències al Microsoft Visual Basic per a aplicacions finestra, al sortir Referències: Project1 quadre de diàleg, marqueu Microsoft Scripting Runtime opció de la Referències disponibles quadre de llista, veure captura de pantalla:

doc contactes d&#39;exportació amb fotos 2

5. Clic OK per tancar el diàleg i, a continuació, premeu F5 clau per executar aquest codi, en sortir Cerca la carpeta quadre de diàleg, especifiqueu una carpeta on voleu enviar els contactes exportats, vegeu la captura de pantalla:

doc contactes d&#39;exportació amb fotos 3

6. A continuació, feu clic a OK, tota la informació amb les fotos dels contactes s'ha exportat a la vostra carpeta específica per separat, vegeu la captura de pantalla:

doc contactes d&#39;exportació amb fotos 4



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l&#39;anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    John Doe · 2 months ago
    Do you know that many (every ?) OpenSource alternative to Outlook are able to export contacts in vcard format, with all details and photos ?
    Just with one click, no need to write any code...
    Incredible, isn't it ?
    • To post as a guest, your comment is unpublished.
      some · 2 months ago
      It's because Oulook / Exchange are not free, you need to pay for everything ! :-)