Dacă trebuie să trimiteți cuiva un număr mare de contacte prin e-mail, poate doriți să împachetați și să comprimați aceste contacte într-un zip fişier. În acest articol, vă vom prezenta o metodă rapidă.
Uneori, vi se poate cere să redirecționați mai multe contacte către cineva prin e-mail. În acest caz, dacă există sute de contacte de trimis, poate doriți să le împachetați și să le atașați ca zip fișier la un e-mail, în loc să le atașați separat la un e-mail. Deci, aici vă vom împărtăși un mijloc rapid.
Împachetați și atașați mai multe persoane de contact la un e-mail
- Pentru noitart, lansați aplicația Outlook.
- Apoi, declanșați editorul Outlook VBA conform „Cum să rulați codul VBA în Outlook".
- Apoi, introduceți următorul cod într-un modul neutilizat.
Sub PackAttachMultipleContactsToEmail() Dim objSelection As Outlook.Selection Dim objItem As Object Dim objContact As Outlook.ContactItem Dim strFullName As String Dim varTempFolder As Variant Dim varZipFișier ca variantă Dim objShell ca obiect Dim objFileSystem ca obiect Dim objMail ca Outlook.MailItem „Obțineți contactele selectate Set objSelection = Outlook.Application.ActiveExplorer.Selection Dacă nu (objSelection este nimic) Apoi „Creați un folder temporar varTempFolder = „E: \TempContacts" & Format(Acum, "YYMMDDHHMMSS") MkDir (varTempFolder) varTempFolder = varTempFolder & "\" 'Salvați fiecare contact ca fișier vCard pentru fiecare obiect objItem în objSelection Dacă TypeOf objItem este ContactItem, apoi setați objContact =F objContactName =F objullItem. objContact.SaveAs varTempFolder & strFullName & „.vcf”, olVCard End If Next „Creează un ZIP fisier varZipFișier = "E:\Contacts.zip" Deschide varZipFișier pentru ieșire ca #1 Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Închide #1 „Adăugați fișierele vcard exportate la cel ZIP set de fișiere objShell = CreateObject("Shell.Application") objShell.NameSpace(varZipFișier).CopyHere objShell.NameSpace(varTempFolder).Elemente cu eroare Reluați Următorul face până la objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count Application.Wait (Acum + TimeValue("0:00:01")) Buclă la eroare GoTo 0 Set objFileSystem = CreateObject("Scripting.FileSystemObject") objFileSystem.DeleteFolder Left(varTempFolder, Len(varTempFolder) - 1) „Atașați zip fișier la noul e-mail Set objMail = Application.CreateItem(olMailItem) objMail.Attachments.Add varZipFișier objMail.Display End If End Sub
- După aceea, adăugați această macrocomandă în Bara de instrumente Acces rapid sau în panglică.
- În cele din urmă, urmați pașii de mai jos pentru a încerca.
- În primul rând, selectați contactele dorite.
- Apoi, apăsați butonul macro din Bara de instrumente Acces rapid sau din panglică.
- Imediat, se va afișa un nou e-mail, în care puteți vedea atașat zip fișier numit „Contacte”, așa cum se arată în figura următoare.
Pregătiți un instrument puternic de remediere PST
Deoarece fișierul de date Outlook este predispus la corupție, trebuie să învățați câteva modalități reparați PST fişier. În primul rând, puteți încerca Scanpst, utilitarul de reparare a căsuței primite. Cu toate acestea, în cazul unei daune severe PST, trebuie să recurgeți la un instrument mai robust, cum ar fi DataNumen Outlook Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera Sql Server și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com
Lasă un comentariu