Как автоматически открывать несколько окон Outlook при запуске Outlook? 

Когда вы запускаете учетную запись Outlook, окно почты открывается как обычно. Можно ли автоматически открывать другие окна Outlook, такие как окна почты, календаря, контактов и задач, одновременно с запуском Outlook?

Автоматическое открытие нескольких окон Outlook при запуске Outlook с кодом VBA

Автоматическое открытие нескольких окон Outlook при запуске Outlook с кодом VBA

Здесь я могу представить код VBA, который поможет вам открывать несколько окон Outlook, таких как окна почты, календаря, контактов и задач, сразу при запуске Outlook. Пожалуйста, сделайте так:

1. Удерживая нажатой ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. В Microsoft Visual Basic для приложений окно, дважды щелкните ThisOutlookSession из Проект1 (VbaProject.OTM) панель, чтобы открыть модуль, а затем скопируйте и вставьте следующий код в пустой модуль.

Код VBA: автоматическое открытие нескольких окон Outlook при запуске Outlook:

Private Sub Application_Startup()
Dim xCalendar As Folder
Dim xTasks As Folder
Dim xContacts As Folder
Dim xInbox As Folder
Dim xExplorer As Outlook.Explorer
Dim xWidth, xHeight As Integer
On Error Resume Next
xWidth = Int(GetSystemMetrics32(0) / 4) + 60
xHeight = GetSystemMetrics32(1)
Set xInbox = Outlook.Application.ActiveExplorer.CurrentFolder
xInbox.Display
Set Application.ActiveExplorer.CurrentFolder = xInbox
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
    .Left = 0
    .Height = xHeight
    .Width = xWidth
End With
Set xCalendar = Outlook.Session.GetDefaultFolder(olFolderCalendar)
xCalendar.Display
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
   .Left = xWidth
    .Height = xHeight
    .Width = xWidth
End With
Set xContacts = Outlook.Session.GetDefaultFolder(olFolderContacts)
xContacts.Display
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
    .Left = xWidth * 2
    .Height = xHeight
    .Width = xWidth
End With
Set xTasks = Outlook.Session.GetDefaultFolder(olFolderTasks)
xTasks.Display
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
    .Left = xWidth * 3
    .Height = xHeight
    .Width = xWidth
End With
End Sub

3. Затем продолжайте нажимать Вставить > Модуль, скопируйте и вставьте приведенный ниже код в открытый пустой модуль, см. снимок экрана:

Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal xIndex As Long) As Long

4. Затем сохраните и закройте коды, перезапустите Outlook, чтобы коды вступили в силу. Теперь при открытии Outlook окна почты, календаря, контактов и задач будут открываться автоматически бок о бок, см. Снимок экрана:

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

• Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
• Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
• Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
• Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
• Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.

Больше информации... Скачать сейчас...