Если вам нужно отправить большое количество контактов кому-то по электронной почте, вы можете упаковать и сжать эти контакты в zip файл. В этой статье мы познакомим вас с быстрым методом.
Иногда вам может потребоваться переслать несколько контактов кому-то по почте. В этом случае, если нужно отправить сотни контактов, вы можете упаковать и прикрепить их как zip файл к электронному письму, вместо того, чтобы прикреплять их отдельно к электронному письму. Итак, здесь мы поделимся с вами быстрым средством.
Упакуйте и прикрепите несколько контактов к электронному письму
- Для насtarт, запустите приложение Outlook.
- Затем запустите редактор Outlook VBA в соответствии с «Как запустить код VBA в Outlook».
- Затем поместите следующий код в неиспользуемый модуль.
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 'Получить выбранные контакты Set objSelection = Outlook.Application.ActiveExplorer.Selection If Not (objSelection Is Nothing) Then 'Создать временную папку varTempFolder = "E: \TempContacts" & Format(Now, "YYMMDDHHMMSS") MkDir (varTempFolder) varTempFolder = varTempFolder & "\" 'Сохранить каждый контакт как файл vCard для каждого объекта objItem в objSelection, если тип объекта равен ContactItem, то установите objContact = objItem strFullName = objContact.Full Имя objContact.SaveAs varTempFolder & strFullName & ".vcf", olVCard End If Next 'Создать ZIP переменная файлаZipФайл = "Е:\Контакты.zip"Открыть варZipФайл для вывода как #1 Печать #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Close #1 'Добавить экспортированные файлы vcard в в ZIP file Set objShell = CreateObject("Shell.Application") objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Элементы при ошибке Возобновить Далее Выполнить до objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count Application.Wait (Now + TimeValue("0:00:01")) Цикл при ошибке GoTo 0 Set objFileSystem = CreateObject("Scripting.FileSystemObject") objFileSystem.DeleteFolder Left(varTempFolder, Len(varTempFolder) - 1) 'Прикрепить zip файл в новый адрес электронной почты Set objMail = Application.CreateItem(olMailItem) objMail.Attachments.Add varZipФайл objMail.Display End If End Sub
- После этого добавьте этот макрос на панель быстрого доступа или на ленту.
- Наконец, выполните следующие действия, чтобы попробовать.
- Сначала выберите нужные контакты.
- Затем нажмите кнопку макроса на панели быстрого доступа или на ленте.
- Сразу отобразится новая почта, в которой можно увидеть прикрепленный zip файл с именем «Контакты», как показано на следующем рисунке.
Подготовьте мощный инструмент исправления PST
Поскольку файл данных Outlook подвержен повреждению, вам необходимо изучить некоторые способы исправить PST файл. Во-первых, вы можете попробовать Scanpst, утилиту для восстановления папки «Входящие». Однако в случае серьезного повреждения PST вам придется прибегнуть к более надежному инструменту, например DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая оправляться Sql Server и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com
Оставьте комментарий