Note: The other languages of the website are Google-translated. Back to English
English English
  • Documenti
  • Outlook
  • Come esportare le informazioni dei contatti con le foto in Outlook?

 Come esportare le informazioni dei contatti con le foto in Outlook?

Quando si esportano i contatti da Outlook in un file, è possibile esportare solo le informazioni di testo dei contatti. Ma, a volte, hai bisogno di esportare le foto e le informazioni di testo dei contatti, come potresti gestire questa attività in Outlook?

Esporta le informazioni dei contatti con le relative foto utilizzando il codice VBA


Esporta le informazioni dei contatti con le relative foto utilizzando il codice VBA

Il codice VBA seguente può aiutarti a esportare tutti i contatti in una cartella di contatti specifica per separare il file di testo con le foto. Per favore, fai come segue:

1. Selezionare una cartella di contatti in cui si desidera esportare i contatti con le foto.

2. E poi, tieni premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

3. Quindi, fare clic inserire > Modulo, copia e incolla sotto il codice nel modulo vuoto aperto, vedi screenshot:

Codice VBA: esporta le informazioni dei contatti con le foto:

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 esporta contatti con foto 1

4. Dopo aver incollato il codice nel modulo, continua a fare clic Strumenti > Referenze nel Microsoft Visual Basic, Applications Edition finestra, nel saltato fuori Riferimenti-Progetto1 finestra di dialogo, controllare Runtime di script Microsoft opzione dal Riferimenti disponibili casella di riepilogo, vedi screenshot:

doc esporta contatti con foto 2

5. Clic OK per chiudere la finestra di dialogo, quindi premere F5 chiave per eseguire questo codice, nel file saltato fuori Sfoglia per cartella finestra di dialogo, specificare una cartella in cui si desidera visualizzare i contatti esportati, vedere screenshot:

doc esporta contatti con foto 3

6. Quindi fare clic OK, tutte le informazioni con le foto dei contatti sono state esportate nella tua cartella specifica separatamente, vedi screenshot:

doc esporta contatti con foto 4


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (2)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Sai che molte (ogni ?) alternative OpenSource a Outlook sono in grado di esportare i contatti in formato vcard, con tutti i dettagli e le foto?
Basta un clic, non c'è bisogno di scrivere alcun codice...
Incredibile, vero?
Questo commento è stato fatto dal moderatore sul sito
È perché Oulook / Exchange non sono gratuiti, devi pagare per tutto! :-)
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL