טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or
0
0
0
s2smodern

כיצד לפתוח חלונות Outlook מרובים באופן אוטומטי עם הפעלת Outlook?

בעת הפעלת חשבון Outlook, חלון הדואר נפתח כרגיל. האם ניתן לפתוח באופן אוטומטי חלונות Outlook אחרים, כגון דואר, לוח שנה, אנשי קשר ומשימות Windows בו-זמנית בעת הפעלת Outlook?

פתח מספר חלונות Outlook באופן אוטומטי כאשר Outlook מתחיל עם קוד VBA


פתח מספר חלונות Outlook באופן אוטומטי כאשר Outlook מתחיל עם קוד VBA

הנה, אני יכול להציג קוד VBA כדי לעזור לך לפתוח חלונות מרובים של Outlook, כגון דואר, לוח שנה, אנשי קשר ומשימות Windows מיד בעת הפעלת Outlook. אנא בצע את הפעולות הבאות:

1. החזק את ALT + F11 מפתחות כדי לפתוח את Microsoft Visual Basic עבור יישומים חלון.

2. ב Microsoft Visual Basic עבור יישומים חלון, לחיצה כפולה זה מ Project1 (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

לפתוח מספר רב של Windows ההפעלה - -

3. ואז להמשיך לחיצה הַבלָעָה > מודול, להעתיק ולהדביק מתחת לקוד לתוך המודול ריק נפתח, לראות צילום מסך:

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

לפתוח מספר רב של Windows ההפעלה - -

4. לאחר מכן שמור וסגור את הקודים, הפעל מחדש את Outlook כדי לקחת את אפקט הקודים. עכשיו, בעת פתיחת Outlook, דואר, לוח שנה, אנשי קשר ומשימות משימות ייפתחו אוטומטית זה לצד זה, ראה צילום מסך:

לפתוח מספר רב של Windows ההפעלה - -


100 + כלים ותכונות רבי עוצמה עבור Outlook 2010 / 2013 / 2016 / 2019 / Office 365:

לי כתוםתואם ל- Outlook 2010 / 2013 / 2016 / 2019 / Office 365 (32 / 64);

לי כתוםתואם עם Windows XP, Windows Vista, Windows 7 / 8 / 10, Windows Server 2003 / 2008, מערכת Citrix ו- Windows Terminal (שולחן עבודה מרוחק) שרת;

לי כתוםללא תשלום ללא הגבלה תכונה 45 ימים!

קרא עוד | הורדה חינם | קנה עכשיו

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
People in conversation:
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Chris · 3 months ago
    Is there a way to make this open the windows in separate screens? I have 3 screens at my work, and I want to have my inbox open on screen 3, calendar to open on screen 2, and the tasks to open on screen 1, all maximised. Not fussed about the contacts page. Any advice on how to alter that would be appreciated. Currently they all open on the one screen, inbox maximised and calendar/tasks in smaller windows.
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hello, Chris,
      May be the following VBA code can help you to solve your problem. Please try it.

      Private Declare PtrSafe Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" (ByVal xIndex As Long) As Long
      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 As Integer, xHeight As Integer
      On Error Resume Next
      xWidth = GetSystemMetrics32(0)
      xHeight = GetSystemMetrics32(1)
      Set xInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
      Set Outlook.Application.ActiveExplorer.CurrentFolder = xInbox
      Set xExplorer = Application.ActiveExplorer
      ExplorerDisplay xExplorer, 0
      Set xCalendar = Outlook.Session.GetDefaultFolder(olFolderCalendar)
      xCalendar.Display
      Set xExplorer = Application.ActiveExplorer
      ExplorerDisplay xExplorer, xWidth
      Set xTasks = Outlook.Session.GetDefaultFolder(olFolderTasks)
      xTasks.Display
      Set xExplorer = Application.ActiveExplorer
      ExplorerDisplay xExplorer, (xExplorer.Width + 1) * -1
      End Sub

      Sub ExplorerDisplay(Exp As Explorer, ByVal L As Integer)
      With Exp
      .WindowState = olNormalWindow
      .Top = 0
      .Left = L
      .WindowState = olMaximized
      End With
      End Sub