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
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:
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:
6. Nato kliknite OK, vse informacije s fotografijami stikov so bile izvožene v vašo mapo posebej, glejte posnetek zaslona:
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP) / Načrtujte pošiljanje e-pošte / Samodejna CC/BCC po pravilih pri pošiljanju e-pošte / Samodejno naprej (napredna pravila) / Samodejno dodaj pozdrav / E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...
📨 Email upravljanje: Enostaven priklic e-pošte / Blokiraj prevarantska e-poštna sporočila glede na teme in druge / Izbriši podvojena e-poštna sporočila / napredno iskanje / Združite mape ...
📁 Priloge Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / Minimizirajte Outlook, namesto da bi ga zaprli ...
???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami / E-poštna sporočila proti lažnemu predstavljanju / 🕘Pokaži pošiljateljev časovni pas ...
👩🏼🤝👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil / Razdelite skupino stikov na posamezne skupine / Odstranite opomnike za rojstni dan ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.