Ви коли-небудь хотіли витягти список інформації про вкладення з відкритого чи вибраного електронного листа? Ви повинні відчувати, що це вимагає багато часу, щоб отримати його вручну. Ця стаття представить вам швидкий спосіб досягнення цього за допомогою Outlook VBA.
З деяких причин вам може знадобитися отримати інформацію про вкладення з електронного листа, включаючи ім'я вкладення, індекс та розмір тощо. Можливо, це тому, що вам потрібно скласти звіт або відповісти на електронне повідомлення зі списком вкладень . Незалежно від того, для чого це потрібно, якщо ви робите це вручну, а саме перевіряєте та копіюєте одне за одним, це буде досить клопітким та схильним до помилок. То чому б вам не вдатися до VBA? Це може допомогти вам отримати різну інформацію про вкладення за допомогою utmost легкість. Ось докладні кроки та відповідні коди VBA.
Витягніть список інформації про вкладення з електронного листа
- Спочатку запустіть Outlook як зазвичай.
- Потім натисніть комбінацію клавіш “Alt + F11”, щоб отримати доступ до редактора VBA.
- У наступному вікні вам слід відкрити модуль, який не використовується, або вставити новий модуль, вибравши “Вставити”> “Модуль”.
- Далі ви можете скопіювати та вставити наступні коди VBA в новий модуль.
Sub GetlAttachmentList()
Dim olItem As MailItem
Dim olAtt As attachment
Dim olAtts As Attachments
Dim sAttInfo As String
Dim Dataobj As DataObject
Select Case Application.ActiveWindow.Class
Case olExplorer
Set olItem = ActiveExplorer.Selection.Item(1)
Case olInspetor
Set olItem = ActiveInspector.CurrentItem
End Select
If TypeOf olItem Is MailItem Then
Set olAtts = olItem.Attachments
If olAtts.Count > 0 Then
For Each olAtt In olAtts
sAttInfo = sAttInfo & vbCrLf & "------------------------------------------------------------" & vbCrLf
sAttInfo = sAttInfo & "No. " & olAtt.Index & " : " & olAtt.DisplayName & " Size: " & olAtt.Size & ".KB"
Next
sAttInfo = sAttInfo & vbCrLf & "------------------------------------------------------------"
'Copy the attachment list
Set Dataobj = New MSForms.DataObject
Dataobj.SetText sAttInfo
Dataobj.PutInClipboard
End If
End If
End Sub
- Після цього ви можете закрити поточне вікно та перейти до додавання нового проекту на панель швидкого доступу.
- Спочатку перейдіть до «Файл»> «Параметри».
- Згодом у вікні «Параметри Outlook» перейдіть на вкладку «Панель швидкого доступу».
- Потім виконайте дії, показані на скріншоті нижче, щоб додати новий макрос.
- Після створення резервної копії у головному вікні Outlook можна спробувати.
- По-перше, виберіть електронний лист і натисніть кнопку макросу на панелі швидкого доступу.
- Потім список вкладень у цьому електронному листі буде розміщено в буфері обміну.
- Тепер ви можете відкрити новий електронний лист або будь-який порожній документ і натиснути “Ctrl + V”. Потім ви побачите список, як на наступному скріншоті:
Ніколи не затримуйся при вирішенні проблем Outlook
Не можна заперечувати, що Outlook має найбільший мінус - часті помилки, такі як Помилка електронної пошти Outlook, Outlook аварійно завершує роботу, зависає або не реагує тощо. Таким чином, багато користувачів мусили страждати багато. Насправді ви можете спочатку скористатися інструментом відновлення папки "Вхідні", щоб спробувати. Якщо це не вдається, можливо, вам доведеться звернутися до більш потужного інструменту, наприклад DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт зіпсований SQL Server мдф дб та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com