Як зберегти декілька вибраних електронних листів як MSG-файли масово в Outlook?

Зберегти електронну пошту як файл MSG у програмі Outlook легко. Як ви можете зберегти декілька вибраних електронних листів як окремі файли MSG, навалом у програмі Outlook? Ця стаття покаже вам спосіб її досягнення.

Збережіть кілька вибраних електронних листів як файли MSG із кодом VBA

Збережіть кілька вибраних електронних листів як файли MSG із кодом VBA

Наведений нижче код VBA може допомогти вам зберегти декілька вибраних електронних листів як окремі файли MSG масово в Outlook. Будь ласка, виконайте наступне.

1. Виберіть електронні листи, які потрібно зберегти як файли MSG. Потім одночасно натисніть клавіші Alt + F11, щоб відкрити вікно Microsoft Visual Basic for Applications.

2. У вікні Microsoft Visual Basic for Applications натисніть Вставити> Модуль, а потім скопіюйте нижче коду VBA у вікно Модуль.

Код VBA: Збережіть кілька вибраних електронних листів як окремі файли MSG у програмі Outlook

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. Натисніть клавішу F5, щоб запустити код.

4. У діалоговому вікні Огляд папки вкажіть папку для збереження файлів MSG, а потім натисніть кнопку OK. Дивіться знімок екрана:

Тепер усі вибрані електронні листи зберігаються як окремі файли MSG, як показано нижче.

---

Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення Pro: Пакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

👩🏼‍🤝‍👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів  /  Розділіть групу контактів на окремі групи  /  Видаліть нагадування про день народження ...

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

Детальніше       Безкоштовне завантаження      Купити