Ako rýchlo zabaliť a pripojiť viac kontaktov k e-mailu programu Outlook

Ak potrebujete niekomu poslať veľký počet kontaktov e-mailom, môžete tieto kontakty zbaliť a skomprimovať do zip spis. V tomto článku vám predstavíme rýchlu metódu.

Možno budete niekedy požiadaní, aby ste niekomu preposlali viac kontaktov e-mailom. V takom prípade, ak chcete odoslať stovky kontaktov, môžete ich zbaliť a priložiť ako zip namiesto toho, aby ste ich k e-mailu pripájali osobitne. Takže tu s vami zdieľame rýchle prostriedky.

Zbaľte a pripojte viac kontaktov k e-mailu

1. Pre akotart, spustiť aplikáciu Outlook.
2. Potom spustite editor Outlook VBA podľa “Ako spustiť kód VBA v programe Outlook".
3. Ďalej vložte nasledujúci kód do nepoužívaného modulu.

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 varZipFile as Variant Dim objShell As Object Dim objFileSystem As Object Dim objMail As Outlook.MailItem 'Get the selected contacts Set objSelection = Outlook.Application.ActiveExplorer.Selection If Not (objSelection Is Nothing) Then' Create a temp folder varTempFolder = "E: \ TempContacts "& Format (Teraz," YYMMDDHHMMSS ") MkDir (varTempFolder) varTempFolder = varTempFolder &" \ "'Uložiť každý kontakt ako súbor vCard pre každý objItem In objSelection Ak TypeOf objItem je ContactItem Potom nastaviť objContact = objItemC strFont = objItem objContact.SaveAs varTempFolder & strFullName & ".vcf", olVCard Koniec ak bude ďalej 'Vytvoriť ZIP spis varZipFile = "E: \ Kontakty.zip„Otvorené varZipSúbor na výstup ako # 1 Print # 1, Chr $ (80) & Chr $ (75) & Chr $ (5) & Chr $ (6) & String (18, 0) Zavrieť # 1 'Pridať exportované súbory vcard do the ZIP súbor Set objShell = CreateObject ("Shell.Application") objShell.NameSpace (varZipFile) .CopyHere objShell.NameSpace (varTempFolder). Položky pri chybe Pokračovať Ďalej Do Kým objShell.NameSpace (varZipFile) .Items.Count = objShell.NameSpace (varTempFolder) .Items.Count Application.Wait (Now + TimeValue ("0:00:01")) Loop On Error GoTo 0 Set objFileSystem = CreateObject ("Scripting.FileSystemObject") objFileSystem.DeleteFolder Left (varTempFolder, Len (varTempFolder) - 1) 'Pripojte zip súbor do nového e-mailu Set objMail = Application.CreateItem (olMailItem) objMail.Attachments.Add varZipFile objMail.Display End If End Sub

4. Potom pridajte toto makro na panel nástrojov alebo pásku s nástrojmi Rýchly prístup.
5. Nakoniec vyskúšajte kroky uvedené nižšie.

• Len tak ďalej, vyberte požadované kontakty.
• Potom stlačte tlačidlo makra na paneli s nástrojmi alebo na páse s nástrojmi Rýchly prístup.
• Hneď sa zobrazí nová pošta, v ktorej vidíte priložené zip súbor s názvom „Kontakty“, ako je znázornené na nasledujúcom obrázku.

Pripravte si výkonný nástroj na opravu PST

Pretože dátový súbor programu Outlook je náchylný na poškodenie, musíte sa naučiť niekoľko spôsobov, ako to urobiť opraviť PST spis. Najskôr môžete vyskúšať Scanpst, nástroj na opravu doručenej pošty. V prípade vážneho poškodenia PST sa však musíte uchýliť k robustnejšiemu nástroju, ako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotaviť sa Sql Server a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S