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 for 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 для приложений.

2. Нажмите Вставить > Модули, а затем вставьте ниже код 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) Заменить путь_к_папке_назначения в приведенном выше коде с путем к папке назначения, в которой вы сохраните экспортированные книги, например C: \ Users \ DT168 \ Documents \ TEST.
(2) Замените your_email_accouny \ folder \ subfolder_1 и your_email_accouny \ folder \ subfolder_2 в приведенном выше коде на пути к подпапкам в Outlook, например Келли @extendoffice.com \ Inbox \ A и Келли @extendoffice.com \ Inbox \ B

4. нажмите F5 ключ или щелкните Run кнопку для запуска этого VBA. А затем нажмите OK в появившемся диалоговом окне Экспорт папок Outlook в Excel. Смотрите скриншот:

И теперь электронные письма из всех указанных подпапок или папок в приведенном выше коде VBA экспортируются и сохраняются в книгах Excel.


стрелка синий правый пузырьСтатьи по теме


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (10)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Как мне заставить это автоматически рекурсировать в подпапки?
Этот комментарий был сведен к минимуму модератором на сайте
привет, дорогая, все работает хорошо, большое спасибо, но тело не экспортируется, как я могу также экспортировать тело электронной почты, файл excel имеет только (Тема, Получено и Отправитель), если вы можете сообщить мне об этом, это решит огромную проблему в моем деле большое спасибо еще раз
Этот комментарий был сведен к минимуму модератором на сайте
Привет Монтасер,
Сценарий VBA работает на основе функции экспорта Outlook, которая не поддерживает экспорт содержимого сообщения при массовом экспорте электронной почты из почтовой папки. Поэтому этот сценарий VBA также не может экспортировать содержимое сообщения.
Этот комментарий был сведен к минимуму модератором на сайте
это прекрасно работает, но есть ли способ добавить информацию не только для 4 полей выше, но и для всего, что дает экспорт Outlook в PST? Тема сообщения От: (Имя) От: (Адрес) От: (Тип) Кому: (Имя) Кому: (Адрес) Кому: (Тип) Копия: (Имя) Копия: (Адрес) Копия: (Тип) Скрытая копия: ( Имя) BCC: (Адрес) BCC: (Тип) Платежная информация Категории Важность Пробег Чувствительность

Я попытался добавить «Важность», и это сработало, но я был бы признателен, если бы кто-нибудь мог предоставить код для других полей. благодарю вас!!
С отл.
.Cells(1, 1) = "Тема"
.Cells(1, 2) = "Получено"
.Cells(1, 3) = "Отправитель"
.Cells(1, 4) = "Тело"
.Cells(1, 5) = "Важность"
Конец с
интервал = 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 как строка)

Dim olkMsg как объект

Dim olkFld как объект

Dim excApp как объект

Dim excWkb как объект

Dim exWks As Object

Dim intRow как целое число

Dim intVersion как целое число

Если strFilename <> "" Тогда

Если strFolderPath <> "" Тогда

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

Если TypeName(olkFld) <> "Ничего" Тогда

intVersion = ПолучитьOutlookVersion()

Установить excApp = CreateObject("Excel.Приложение")

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

Установить excWks = excWkb.ActiveSheet

'Запись заголовков столбцов Excel

С отл.

.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) = "Копия: (Имя)"

.Cells(1, 11) = "Копия: (Адрес)"

.Cells(1, 12) = "Копия: (Тип)"

.Cells(1, 13) = "СК: (Имя)"

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

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

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

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

.Cells(1, 18) = "Важность"

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

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

Конец с

интервал = 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.Mileage

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

целая строка = целая строка + 1

End If

Далее

Установите olkMsg = Ничего

excWkb.SaveAs strFilename

excWkb.Close

Еще

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 As String) As Outlook.MAPIFolder

Dim arrFolders как вариант

Dim varFolder как вариант

Dim bolBeyondRoot As Boolean

On Error Resume Next

Если strFolderPath = "" Тогда

Установите OpenOutlookFolder = Ничего

Еще

Делать, пока слева (strFolderPath, 1) = "\"

strFolderPath = Right (strFolderPath, Len (strFolderPath) - 1)

Петля

arrFolders = Разделить (strFolderPath, "\")

Для каждой varFolder в arrFolders

Выберите регистр 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 = Разделить(Outlook.Версия, ".")

GetOutlookVersion = версия_аврора(0)

End Function



Функция SMTPEX (запись как 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 (запись как AddressEntry, intOutlookVersion как целое число) как строка

Dim olkEnt As Object

On Error Resume Next

Выберите дело в OutlookVersion

Случай < 14

Если Entry.Type = "EX" Тогда

GetAddress = SMTPEX (запись)

Еще

GetAddress = Запись.Адрес

End If

Case Else

Если Entry.AddressEntryUserType = olExchangeUserAddressEntry Тогда

Установите olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

Еще

GetAddress = Запись.Адрес

End If

End Select

По ошибке GoTo 0

Установите olkEnt = Ничего

End Function



Функция GetRecipientsName (элемент как MailItem, rcpType как целое число, Ret как целое число, intOutlookVersion как целое число) как строка

Dim xRcp как получатель

Dim xNames как строка

хИмена = ""

Для каждого xRcp в Item.Recipients

Если xRcp.Type = rcpType Тогда

Если Рет = 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

ИначеЕсли xRcp.Type = rcpType Тогда

Если Рет = 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

ИначеЕсли xRcp.Type = rcpType Тогда

Если Рет = 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
С отл.
.Cells(1, 1) = "Тема"
.Cells(1, 2) = "Получено"
.Cells(1, 3) = "Отправитель"
.Cells(1, 4) = "Тело"
Конец с
интервал = 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
целая строка = целая строка + 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 можно экспортировать этот адрес, поэтому я предполагаю, что это можно сделать с помощью этого макроса (с некоторыми изменениями).
Может кто-нибудь помочь?

С уважением
Этот комментарий был сведен к минимуму модератором на сайте
Я запускаю этот макрос, но продолжаю получать ошибку компиляции:

Пользователь=определенный тип не определен

В строке 62 «Общая функция OpenOutlookFolder (strFolderPath As String) As 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 на случай, если это необходимо
Этот комментарий был сведен к минимуму модератором на сайте
Я починил это. В окне Visual Basic перейдите в «Инструменты» → «Справочник» и установите флажок «Библиотека объектов Microsoft Outlook 16.0».

Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL