Outlook nu oferă o funcție directă care să vă sprijine să exportați imaginea cărții de vizită a unui contact, ca să nu mai vorbim de exportul în lot a mai multor imagini de cărți de vizită. Dar, în acest articol, vom descoperi o bucată de cod VBA, care o poate realiza cu ușurință.
Este ușor să exportați contactele din Outlook într-un folder local ca fișiere text sau fișiere vCard. Cu toate acestea, uneori, poate doriți să salvați imaginile cărților de vizită ale persoanelor de contact în folderul local. Cu toate acestea, nu există o astfel de caracteristică nativă pentru aceasta. Prin urmare, dacă doriți să exportați în serie imaginile cărților de vizită ale multor contacte, trebuie să căutați alte mijloace, cum ar fi următorul, folosind codul VBA.
Export în lot imaginile cărții de vizită ale mai multor contacte
- Pentru noitart, lansați editorul Outlook VBA conform „Cum să rulați codul VBA în Outlook".
- Apoi, introduceți următorul cod într-un modul neutilizat.
Sub ExportContactBusinessCardImages() Dim objSelection As Outlook.Selection Dim objShell As Object Dim objWindowsFolder As Object Dim strWindowsFolder As String Dim objItem As Object Dim objContact As Outlook.ContactItem Dim strBusinessCard As String 'Obțineți selecția. Not (objSelection Is Nothing) Apoi „Selectați un folder Windows Set objShell = CreateObject("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "") If Not objWindowsFolder Is Nothing Apoi, pentru fiecare objItem din objSelection Dacă TypeOf objItem este ContactItem Apoi Setați objContact = objItem 'Salvați imaginile cărții de vizită de contact strWindowsFolder = objWindowsFolder.self.Path & "\" strBusinessCard = strWindowsFolder & objContact.FullName ".jpg"SavejBusiness strBusinessCard) End If Next 'Deschide folderul Windows Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus End If End If End Sub
- Ulterior, ieșiți din editorul VBA.
- Mai târziu, adăugați această macrocomandă în Bara de instrumente Acces rapid sau în panglică.
- În cele din urmă, parcurgeți următorii pași pentru a încerca această macrocomandă.
- Mai întâi, selectați contactele dorite.
- Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid.
- Apoi, în noua casetă de dialog, selectați a tarobțineți folderul Windows și apăsați „OK”.
- Deodată, va fi afișat folderul, în care puteți găsi imaginile cărților de vizită exportate, așa cum se arată în figura următoare.
Salvați datele Outlook după corupție
Ca și alte programe, Outlook se poate bloca din când în când. În cele mai bune cazuri, veți găsi că Outlook nu se întâmplă nimic rău. Cu toate acestea, în cel mai rău caz, fișierul Outlook PST poate deveni corupt direct. În acel moment, nu aveți altă alternativă decât să folosiți un instrument de reparare Outlook competent, cum ar fi DataNumen Outlook Repair la remediați Outlook fișier.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparație sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com
Lasă un comentariu