Note: The other languages of the website are Google-translated. Back to English

Як експортувати електронні листи з кількох папок / підпапок, щоб досягти успіху в Outlook?

Під час експорту папки за допомогою майстра імпорту та експорту в Outlook він не підтримує Включити підпапки варіант, якщо ви експортуєте папку у файл CSV. Однак експортувати кожну папку до файлу CSV, а потім перетворювати її в книгу Excel вручну буде досить трудомістко і нудно. Тут у цій статті буде представлено VBA для швидкого експорту декількох папок і підпапок до книг Excel.

Експортуйте кілька електронних листів із декількох папок / підпапок до Excel за допомогою VBA

Вкладка Office - увімкніть редагування та перегляд вкладок в Office та значно спростіть роботу ...
Kutools для Outlook - приносить 100 потужних розширених функцій для Microsoft Outlook
  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів за правилами; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показувати повідомлення, коли ви намагаєтесь відповісти всім, якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями у поштовій розмові; Відповідайте на багато електронних листів одночасно; Автоматично додавати привітання при відповіді; Автоматичне додавання дати та часу до теми ...
  • Інструменти кріплення: Автоматичне від'єднання, стиснення всіх, перейменування всіх, автоматичне збереження всіх ... Швидкий звіт, Підрахувати вибрані листи, Видалення повторюваних листів та контактів ...
  • Більше 100 вдосконалених функцій вирішити більшість своїх проблем в Outlook 2021 - 2010 або Office 365. 60-денна безкоштовна пробна версія повних функцій.

стрілка синя права міхур Експортуйте кілька електронних листів із декількох папок / підпапок до Excel за допомогою VBA

Виконайте кроки нижче, щоб експортувати електронні листи з кількох папок або підпапок до книг Excel із VBA в Outlook.

1. прес інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.

2. клацання Insert > Модулі, а потім вставте нижче коду VBA у нове вікно модуля.

VBA: Експортуйте електронні листи з декількох папок та підпапок до Excel

Const MACRO_NAME = "Export Outlook Folders to Excel"

Sub ExportMain()
ExportToExcel "destination_folder_path\A.xlsx", "your_email_accouny\folder\subfolder_1"
ExportToExcel "destination_folder_path\B.xlsx", "your_email_accouny\folder\subfolder_2"
MsgBox "Process complete.", vbInformation + vbOKOnly, MACRO_NAME
End Sub
Sub ExportToExcel(strFilename As String, strFolderPath As String)
Dim      olkMsg As Object
Dim olkFld As Object
Dim excApp As Object
Dim excWkb As Object
Dim excWks As Object
Dim intRow As Integer
Dim intVersion As Integer

If strFilename <> "" Then
If strFolderPath <> "" Then
Set olkFld = OpenOutlookFolder(strFolderPath)
If TypeName(olkFld) <> "Nothing" Then
intVersion = GetOutlookVersion()
Set excApp = CreateObject("Excel.Application")
Set excWkb = excApp.Workbooks.Add()
Set excWks = excWkb.ActiveSheet
'Write Excel Column Headers
With excWks
.Cells(1, 1) = "Subject"
.Cells(1, 2) = "Received"
.Cells(1, 3) = "Sender"
End With
intRow = 2
For Each olkMsg In olkFld.Items
'Only export messages, not receipts or appointment requests, etc.
If olkMsg.Class = olMail Then
'Add a row for each field in the message you want to export
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
intRow = intRow + 1
End If
Next
Set olkMsg = Nothing
excWkb.SaveAs strFilename
excWkb.Close
Else
MsgBox "The folder '" & strFolderPath & "' does not exist in Outlook.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The folder path was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The filename was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If

Set olkMsg = Nothing
Set olkFld = Nothing
Set excWks = Nothing
Set excWkb = Nothing
Set excApp = Nothing
End Sub

Public Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
Dim arrFolders As Variant
Dim varFolder As Variant
Dim bolBeyondRoot As Boolean

On Error Resume Next
If strFolderPath = "" Then
Set OpenOutlookFolder = Nothing
Else
Do While Left(strFolderPath, 1) = "\"
strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
Loop
arrFolders = Split(strFolderPath, "\")
For Each varFolder In arrFolders
Select Case bolBeyondRoot
Case False
Set OpenOutlookFolder = Outlook.Session.Folders(varFolder)
bolBeyondRoot = True
Case True
Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)
End Select
If Err.Number <> 0 Then
Set OpenOutlookFolder = Nothing
Exit For
End If
Next
End If
On Error GoTo 0
End Function

Function GetSMTPAddress(Item As Outlook.MailItem, intOutlookVersion As Integer) As String
Dim olkSnd As Outlook.AddressEntry
Dim olkEnt As Object

On Error Resume Next
Select Case intOutlookVersion
Case Is < 14
If Item.SenderEmailType = "EX" Then
GetSMTPAddress = SMTPEX(Item)
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
Case Else
Set olkSnd = Item.Sender
If olkSnd.AddressEntryUserType = olExchangeUserAddressEntry Then
Set olkEnt = olkSnd.GetExchangeUser
GetSMTPAddress = olkEnt.PrimarySmtpAddress
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
End Select
On Error GoTo 0
Set olkPrp = Nothing
Set olkSnd = Nothing
Set olkEnt = Nothing
End Function

Function GetOutlookVersion() As Integer
Dim arrVer As Variant
arrVer = Split(Outlook.Version, ".")
GetOutlookVersion = arrVer(0)
End Function

Function SMTPEX(olkMsg As Outlook.MailItem) As String
Dim olkPA As Outlook.propertyAccessor
On Error Resume Next
Set olkPA = olkMsg.propertyAccessor
SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")
On Error GoTo 0
Set olkPA = Nothing
End Function

3. Будь ласка, налаштуйте наведений вище код VBA, як вам потрібно.

(1) Замінити path_folder_path у наведеному вище коді із шляхом до папки цільової папки ви збережете експортовані книги, наприклад, C: \ Users \ DT168 \ Documents \ TEST.
(2) Замініть your_email_accouny \ folder \ subfolder_1 і your_email_accouny \ folder \ subfolder_2 у наведеному вище коді шляхами до папок підпапок в Outlook, таких як Келлі @extendoffice.com \ Вхідні \ A і Келлі @extendoffice.com \ Вхідні \ B

4 Натисніть кнопку F5 або клацніть на прогін для запуску цього VBA. А потім натисніть OK у діалоговому вікні Експортувати папки Outlook до Excel. Дивіться знімок екрана:

Тепер електронні листи з усіх зазначених підпапок або папок у коді VBA експортуються та зберігаються у книгах Excel.


стрілка синя права міхурСтатті по темі


Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
  • Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
  • Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
постріл kutools outlook kutools вкладка 1180x121
постріл kutools outlook kutools плюс вкладка 1180x121
 
Коментарі (10)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Як зробити так, щоб це автоматично поверталося в підпапки?
Цей коментар був мінімізований модератором на сайті
привіт, шановний, все працює добре, дякую, але тіло не експортується, як я можу експортувати тіло електронної пошти, файл Excel має тільки (тема, отримано та відправник), якщо ви можете оновити мене, це вирішить величезну проблему у моєму бізнесі ще раз дякую
Цей коментар був мінімізований модератором на сайті
Привіт Монтасер!
Сценарій VBA працює на основі функції експорту Outlook, яка не підтримує експорт вмісту повідомлень під час масового експорту електронних листів з поштової папки. Тому цей сценарій VBA також не може експортувати вміст повідомлення.
Цей коментар був мінімізований модератором на сайті
це чудово працює, але чи є спосіб додати інформацію не лише про 4 поля вище, а й про все, що дає експорт Outlook у PST? Основна частина теми Від: (Ім’я) Від: (Адреса) Від: (Тип) До: (Назва) Кому: (Адреса) Кому: (Тип) CC: (ім’я) CC: (адреса) CC: (тип) BCC: ( Назва) BCC: (адреса) BCC: (тип) Платіжна інформація Категорії Важливість Відчутність пробігу

Я спробував додати "Важливість", і це спрацювало, але я був би вдячний, якби хтось міг надати код для інших полів. Дякую тобі!!
З excWks
.Cells(1, 1) = "Тема"
.Cells(1, 2) = "Отримано"
.Cells(1, 3) = "Відправник"
.Cells(1, 4) = "Тіло"
.Cells(1, 5) = "Важливість"
Кінець з
intRow = 2
Для кожного olkMsg в olkFld.Items
«Експортувати лише повідомлення, а не квитанції чи запити на зустріч тощо.
Якщо olkMsg.Class = olMail Тоді
"Додайте рядок для кожного поля в повідомленні, яке потрібно експортувати
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
excWks.Cells(intRow, 5) = olkMsg.Importance
Цей коментар був мінімізований модератором на сайті
Привіт, будь ласка, перевірте код нижче відповідно до ваших потреб:
Const MACRO_NAME = "Експортувати папки Outlook до Excel"

Sub ExportMain()

ExportToExcel "шлях_папки призначення\A.xlsx", "ваша_аккаунта_електронної_пошти\папка\підпапка_1"

ExportToExcel "шлях_папки призначення\B.xlsx", "ваша_аккаунта_електронної_пошти\папка\підпапка_2"

MsgBox "Процес завершено.", vbInformation + vbOKOnly, MACRO_NAME

End Sub

Sub ExportToExcel(strFilename як рядок, strFolderPath як рядок)

Світло olkMsg як об’єкт

Dim olkFld як об’єкт

Зменшіть excApp як об’єкт

Dim excWkb як об’єкт

Dim excWks як об’єкт

Dim intRow як ціле число

Dim intVersion як ціле число

Якщо strFilename <> "" Тоді

Якщо strFolderPath <> "" Тоді

Встановити olkFld = OpenOutlookFolder(strFolderPath)

Якщо TypeName(olkFld) <> "Нічого", Тоді

intVersion = GetOutlookVersion()

Встановити excApp = CreateObject("Excel.Application")

Встановити excWkb = excApp.Workbooks.Add()

Встановіть excWks = excWkb.ActiveSheet

«Напишіть заголовки стовпців Excel

З excWks

.Cells(1, 1) = "Тема"

.Cells(1, 2) = "Тіло"

.Cells(1, 3) = "Отримано"

.Cells(1, 4) = "Від: (Ім'я)"

.Cells(1, 5) = "Від: (адреса)"

.Cells(1, 6) = "Від: (Тип)"

.Cells(1, 7) = "Кому: (Ім'я)"

.Cells(1, 8) = "Кому: (адреса)"

.Cells(1, 9) = "Кому: (Тип)"

.Cells(1, 10) = "CC: (Ім'я)"

.Cells(1, 11) = "CC: (адреса)"

.Cells(1, 12) = "CC: (Тип)"

.Cells(1, 13) = "BCC: (Ім'я)"

.Cells(1, 14) = "BCC: (адреса)"

.Cells(1, 15) = "BCC: (Тип)"

.Cells(1, 16) = "Платіжна інформація"

.Cells(1, 17) = "Категорії"

.Cells(1, 18) = "Важливість"

.Cells(1, 19) = "Пробіг"

.Cells(1, 20) = "Чутливість"

Кінець з

intRow = 2

Для кожного olkMsg в olkFld.Items

«Експортувати лише повідомлення, а не квитанції чи запити на зустріч тощо.

Якщо olkMsg.Class = olMail Тоді

"Додайте рядок для кожного поля в повідомленні, яке потрібно експортувати

excWks.Cells(intRow, 1) = olkMsg.Subject

excWks.Cells(intRow, 2) = olkMsg.Body

excWks.Cells(intRow, 3) = olkMsg.ReceivedTime

excWks.Cells(intRow, 4) = olkMsg.SenderName

excWks.Cells(intRow, 5) = GetAddress(olkMsg.Sender, intVersion)

excWks.Cells(intRow, 6) = olkMsg.Sender.Type

excWks.Cells(intRow, 7) = GetRecipientsName(olkMsg, 1, 1, intVersion)

excWks.Cells(intRow, 8) = GetRecipientsName(olkMsg, 1, 2, intVersion)

excWks.Cells(intRow, 9) = GetRecipientsName(olkMsg, 1, 3, intVersion)

excWks.Cells(intRow, 10) = GetRecipientsName(olkMsg, 2, 1, intVersion)

excWks.Cells(intRow, 11) = GetRecipientsName(olkMsg, 2, 2, intVersion)

excWks.Cells(intRow, 12) = GetRecipientsName(olkMsg, 2, 3, intVersion)

excWks.Cells(intRow, 13) = GetRecipientsName(olkMsg, 3, 1, intVersion)

excWks.Cells(intRow, 14) = GetRecipientsName(olkMsg, 3, 2, intVersion)

excWks.Cells(intRow, 15) = GetRecipientsName(olkMsg, 3, 3, intVersion)

excWks.Cells(intRow, 16) = olkMsg.BillingInformation

excWks.Cells(intRow, 17) = olkMsg.Categories

excWks.Cells(intRow, 18) = olkMsg.Importance

excWks.Cells(intRow, 19) = olkMsg.Пробіг

excWks.Cells(intRow, 20) = olkMsg.Sensitivity

intRow = intRow + 1

End If

Далі

Встановити olkMsg = Нічого

excWkb.SaveAs strFilename

excWkb.Закрити

Ще

MsgBox "Папка "" & strFolderPath & "' не існує в Outlook.", vbCritical + vbOKOnly, MACRO_NAME

End If

Ще

MsgBox "Шлях до папки був порожній.", vbCritical + vbOKOnly, MACRO_NAME

End If

Ще

MsgBox "Ім'я файлу було порожнім.", vbCritical + vbOKOnly, MACRO_NAME

End If



Встановити olkMsg = Нічого

Встановити olkFld = Нічого

Встановити excWks = Нічого

Встановити excWkb = Нічого

Встановіть excApp = Нічого

End Sub



Загальнодоступна функція OpenOutlookFolder(strFolderPath як рядок) як Outlook.MAPIFolder

Dim arrFolders як варіант

Dim varFolder як варіант

Dim bolBeyondRoot Як Boolean

On Error Resume Next

Якщо strFolderPath = "" Тоді

Встановіть OpenOutlookFolder = Нічого

Ще

Робити, поки Left(strFolderPath, 1) = "\"

strFolderPath = Право (strFolderPath, Len(strFolderPath) - 1)

Петля

arrFolders = Split(strFolderPath, "\")

Для кожного varFolder в arrFolders

Виберіть Case bolBeyondRoot

Випадок Невірний

Встановити OpenOutlookFolder = Outlook.Session.Folders(varFolder)

bolBeyondRoot = Правда

Справа правда

Встановити OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)

End Select

Якщо Err.Number <> 0 Тоді

Встановіть OpenOutlookFolder = Нічого

Вихід для

End If

Далі

End If

При помилці GoTo 0

End Function



Функція GetOutlookVersion() як ціле число

Dim arrVer як варіант

arrVer = Split(Outlook.Version, ".")

GetOutlookVersion = arrVer(0)

End Function



Функція SMTPEX(Entry As AddressEntry) Як рядок

Dim olkPA як Outlook.PropertyAccessor

On Error Resume Next

Встановіть olkPA = Entry.PropertyAccessor

SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")

При помилці GoTo 0

Встановити olkPA = Нічого

End Function



Функція GetAddress(Entry As AddressEntry, intOutlookVersion As Integer) Як рядок

Яскравий колір як об’єкт

On Error Resume Next

Виберіть Case intOutlookVersion

Випадок < 14

Якщо Entry.Type = "EX" Тоді

GetAddress = SMTPEX(запис)

Ще

GetAddress = Entry.Address

End If

Інший випадок

Якщо Entry.AddressEntryUserType = olExchangeUserAddressEntry, тоді

Встановіть olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

Ще

GetAddress = Entry.Address

End If

End Select

При помилці GoTo 0

Встановити olkEnt = Нічого

End Function



Функція GetRecipientsName(Item As MailItem, rcpType As Integer, Ret As Integer, intOutlookVersion As Integer) Як рядок

Dim xRcp як одержувач

Dim xNames як рядок

xNames = ""

Для кожного xRcp In Item.Recipients

Якщо xRcp.Type = rcpType Тоді

Якщо Ret = 1, то

Якщо xNames = "" Тоді

xNames = xRcp.Name

Ще

xNames = xNames & "; " & xRcp.Name

End If

Інакше Якщо Ret = 2 Тоді

Якщо xNames = "" Тоді

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Ще

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

End If

Інакше Якщо Ret = 3 Тоді

Якщо xNames = "" Тоді

xNames = xRcp.AddressEntry.Type

Ще

xNames = xNames & "; " & xRcp.AddressEntry.Type

End If

End If

ElseIf xRcp.Type = rcpType Тоді

Якщо Ret = 1, то

Якщо xNames = "" Тоді

xNames = xRcp.Name

Ще

xNames = xNames & "; " & xRcp.Name

End If

Інакше Якщо Ret = 2 Тоді

Якщо xNames = "" Тоді

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Ще

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

End If

Інакше Якщо Ret = 3 Тоді

Якщо xNames = "" Тоді

xNames = xRcp.AddressEntry.Type

Ще

xNames = xNames & "; " & xRcp.AddressEntry.Type

End If

End If

ElseIf xRcp.Type = rcpType Тоді

Якщо Ret = 1, то

Якщо xNames = "" Тоді

xNames = xRcp.Name

Ще

xNames = xNames & "; " & xRcp.Name

End If

Інакше Якщо Ret = 2 Тоді

Якщо xNames = "" Тоді

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Ще

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

End If

Інакше Якщо Ret = 3 Тоді

Якщо xNames = "" Тоді

xNames = xRcp.AddressEntry.Type

Ще

xNames = xNames & "; " & xRcp.AddressEntry.Type

End If

End If

End If

Далі

GetRecipientsName = xNames

End Function




Сподіваюся, що це працює для вас.
Аманда
Цей коментар був мінімізований модератором на сайті
У підпорядкуванні ExporttoExcel ви можете додати тіло

«Напишіть заголовки стовпців Excel
З excWks
.Cells(1, 1) = "Тема"
.Cells(1, 2) = "Отримано"
.Cells(1, 3) = "Відправник"
.Cells(1, 4) = "Тіло"
Кінець з
intRow = 2
Для кожного olkMsg в olkFld.Items
«Експортувати лише повідомлення, а не квитанції чи запити на зустріч тощо.
Якщо olkMsg.Class = olMail Тоді
"Додайте рядок для кожного поля в повідомленні, яке потрібно експортувати
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
intRow = intRow + 1
Цей коментар був мінімізований модератором на сайті
Привіт. Сподіваюся, хтось може мені допомогти, я практично не знаю VB, але поки що мені вдалося змусити цей сценарій працювати на мене.

Проте загалом у моїй папці «Вхідні» є близько 1500 папок і вкладених папок, і я дійсно хотів би, щоб простий сценарій експортував всю адресу електронної пошти, на яку я надіслав, із темою та датою в окремих стовпцях Excel.

Я шукав кілька днів і пробував багато різних сайтів, але не можу змусити працювати будь-який код, крім цього.


Чи можливо те, про що я прошу? Якщо так, чи є хтось достатньо добрий і розумний, щоб допомогти мені зі сценарієм, який мені потрібен?
Я припускаю, що це має якесь відношення до цієї частини:


Sub ExportMain()

ExportToExcel "шлях_папки призначення\A.xlsx", "ваша_аккаунта_електронної_пошти\папка\підпапка_1"

ExportToExcel "шлях_папки призначення\B.xlsx", "ваша_аккаунта_електронної_пошти\папка\підпапка_2"

MsgBox "Процес завершено.", vbInformation + vbOKOnly, MACRO_NAME

End Sub


Дякую заздалегідь
Цей коментар був мінімізований модератором на сайті
привіт,
Я щойно запустив цей макрос, який добре працює.
Я це розумію у виразах
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

olkMsg.* і GetSMTPAddress(olkMsg, intVersion) витягують файли з Outlook.

Який аргумент використовувати, щоб отримати адресу, на яку було надіслано лист?

За допомогою майстра експорту Outlook можна експортувати цю адресу, тому я припускаю, що це можна було б зробити за допомогою цього макросу (з деякими змінами).
Хтось може допомогти?

привіт
Цей коментар був мінімізований модератором на сайті
Я запускаю цей макрос, але постійно отримую помилку компіляції:

User=defined тип не визначено

У рядку 62 "Публічна функція OpenOutlookFolder(strFolderPath як рядок) як Outlook.MAPIFolder"

Я вже вказав шлях таким чином:

ExportToExcel "C:\Users\kudus\Documents\MailExportTest\f1\A.xlsx", "myname@mydomain.com\Inbox\Black Hat Webcast"
ExportToExcel "C:\Users\\Documekudus\Documents\MailExportTest\f2\B.xlsx", "myname@mydomain.com\Inbox\CPD\Kaplan Training"

Я використовую Outlook 2016, якщо це потрібно
Цей коментар був мінімізований модератором на сайті
Я полагодив це. У базовому візуальному вікні перейдіть до Інструменти Довідка – і виберіть поле «Бібліотека об’єктів Microsoft Outlook 16.0»

There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL