วิธีทำให้การแจ้งเตือนปฏิทิน Outlook อยู่ด้านบนใน Windows 7


123

ฉันเพิ่งเริ่มใช้ Windows 7 และฉันต้องการทราบวิธีทำให้ตัวเตือน Outlook ปรากฏขึ้นและแสดงตัวเองอย่างเด่นชัด พวกเขาเปิดอย่างระมัดระวังเช่นเดียวกับหน้าต่างอื่นในสแต็ก Outlook บนแถบงาน เป็นผลให้ฉันมองข้ามพวกเขาเพราะพวกเขาปรากฏขึ้นด้านหลังทุกอย่างอื่น

ฉันจะทำให้พวกเขามองข้ามได้ง่ายน้อยลงได้อย่างไร

(เห็นได้ชัดว่าโดยปกติจะไม่ต้องการแอปที่น่ารังเกียจที่ผลักดันตัวเองไปยังแถวหน้า แต่มีบางสถานที่ที่พฤติกรรมดังกล่าวเป็นที่ต้องการและการแจ้งเตือนปฏิทิน Outlook เป็นหนึ่งในนั้น)


16
สิ่งนี้จำเป็นมาก หากใครตกอยู่ในความเข้มข้นที่เข้มข้นมันก็ง่ายที่จะพลาดการเตือนและสังเกตว่ามันถูกฝังอยู่ใต้หน้าต่างอื่น ๆ เฉพาะหลังจากที่คุณมาสาย มันไร้สาระที่มันเป็นไปไม่ได้ด้วยการตั้งค่าแบบง่าย ๆ สิ่งที่ดีคือการเตือนถ้าคุณไม่ได้รับมันทันที!
มาริโอ

คำตอบ:


61

ฉันมีปัญหาเดียวกันกับ Outlook 2010 ใช้ขั้นตอนที่กล่าวถึงด้านล่างมันใช้งานได้ดี อย่าลืมเปิดใช้งานมาโครทั้งหมด: ศูนย์ความน่าเชื่อถือ> การตั้งค่ามาโคร

  • สร้างใบรับรองดิจิทัลสำหรับภายหลัง: กดเริ่มและพิมพ์ 'ใบรับรอง' เลือก 'ใบรับรองดิจิทัลสำหรับโครงการ VBA'
  • ป้อนชื่อสำหรับใบรับรองของคุณ คลิกตกลง เปิด Outlook แล้วกดAlt+ F11เพื่อเริ่มตัวแก้ไข VBA
  • ในต้นไม้ทางด้านซ้ายให้ขยาย 'Microsoft Office Outlook Objects' แล้วดับเบิลคลิกที่ 'ThisOutlookSession'
  • วางในรหัสนี้:

    Private Declare PtrSafe Function FindWindowA Lib "user32" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    
    Private Declare PtrSafe Function SetWindowPos Lib "user32" ( _
    ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
    ByVal cy As Long, ByVal wFlags As Long) As Long
    
    Private Const SWP_NOSIZE = &H1
    Private Const SWP_NOMOVE = &H2
    Private Const FLAGS As Long = SWP_NOMOVE Or SWP_NOSIZE
    Private Const HWND_TOPMOST = -1
    
    Private Sub Application_Reminder(ByVal Item As Object)
    Dim ReminderWindowHWnd As Variant
    On Error Resume Next
    ReminderWindowHWnd = FindWindowA(vbNullString, "1 Reminder")
    SetWindowPos ReminderWindowHWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
    
    End Sub
    
  • เซ็นชื่อแมโครเพื่อให้ทำงาน: เครื่องมือ> ลายเซ็นดิจิทัล ... และเลือกใบรับรองที่คุณสร้างไว้ก่อนหน้านี้

  • ปิดหน้าต่าง VBA
  • เปิดใช้งานมาโครทั้งหมดในไฟล์> ตัวเลือก> ศูนย์ความน่าเชื่อถือ> การตั้งค่าศูนย์ความน่าเชื่อถือ> การตั้งค่ามาโคร

3
ฉันสังเกตเห็นบางครั้ง (โดยปกติเมื่อคุณเริ่ม Outlook) การเตือนครั้งแรกจะไม่อยู่ด้านบน เมื่อคุณคลิกปิดแล้วปิดตัวเตือนความทรงจำที่ตามมาทั้งหมดจะอยู่ด้านบน ไม่รู้ทำไม
Gullu

3
On Error Resume Nextใช้เฉพาะกับตำบลที่และเพียงแค่ป้องกันไม่ให้แมโครทั้งหมดจาก crashing .. นี่คือการใช้งาน VBA มาตรฐานเพียง
เจฟฟ์มาร์ติน

3
ฉันมีปัญหาแบบเดียวกับที่ Gullu ระบุไว้ในความคิดเห็นแรกของเขา เพื่อแก้ไขปัญหานี้ฉันจะแสดงกล่องข้อความสำหรับการเตือนครั้งแรกหลังจากรีสตาร์ท Outlook (หรือคอมพิวเตอร์ของฉัน) Private messageAlreadyShown As Boolean Application Sub ส่วนตัวOn Error Resume Next _Reminder (รายการ ByVal เป็นวัตถุ) ถ้าไม่ messageAlreadyShown แล้วให้MsgBox "First Reminder", vbSystemModal, "" จบถ้าmessageAlreadyShown = True ReminderWindow = FindWindowA (vbNullString, "1 Reminder") SetWindowPos ReminderWindow, HWND_TOPMOST, 0, 0, 0, 0, FLAGS End Sub
helios456

3
ฉันมีปัญหาในการค้นหาเครื่องมือเพื่อสร้างใบรับรองแบบลงนามด้วยตนเองสำหรับมาโคร ฉันพบมันใน C: \ Program Files \ Microsoft Office \ OfficeXX เครื่องมือ SELFCERT.EXE
SSZero

3
ฉันเปลี่ยนของฉันเพื่อค้นหา "1 ตัวเตือน" แล้วจึงใช้งานได้
Robert Brooker

18

AutoHotKey สามารถใช้แก้ปัญหานี้ได้ สคริปต์นี้จะวางหน้าต่างเตือนไว้ด้านบนโดยไม่ขโมยโฟกัส (ทดสอบกับ Win10 / Outlook 2013)

TrayTip Script, Looking for Reminder window to put on top, , 16
SetTitleMatchMode  2 ; windows contains
loop {
  WinWait, Reminder(s), 
  WinSet, AlwaysOnTop, on, Reminder(s)
  WinRestore, Reminder(s)
  TrayTip Outlook Reminder, You have an outlook reminder open, , 16
  WinWaitClose, Reminder(s), ,30
}

สคริปต์ AHK - รวบรวม EXE


+1 สำหรับการใช้ AHK ฉันเพิ่งทดสอบสิ่งนี้ใน win 7 / outlook 2016 มันนำมุมมองไปด้านหน้า แต่จริงๆแล้วมันไม่ได้ขโมยโฟกัสหากคุณกำลังพิมพ์ สิ่งที่ฉันต้องการ! (ฉันเพิ่งลบเคล็ดลับถาด :))
Fawix

1
โปรดทราบว่ามีวิธีที่ง่ายมากในการเริ่มต้นสคริปต์ด้วย windows เพียงวางไว้ในโฟลเดอร์C:\Users\<username>\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
Fawix

ลิงก์ AHK Script และ EXE ที่คอมไพล์แล้วใช้งานไม่ได้ ฉันคัดลอกและวางสคริปต์ด้านบนลงในสคริปต์ AutoHotKey.ahk ของฉันและมันไม่ทำงาน
Mike Cole


1
การเดินทางไปยังโฟลเดอร์เริ่มต้นสามารถทำได้อย่างง่ายดายโดยการป้อนshell:startupลงในแถบที่อยู่หรือช่องเรียกใช้
Gert van den Berg

13

คำตอบที่ดีที่สุดที่ฉันพบอยู่ที่นี่: วิธีรับการแจ้งเตือนการนัดหมาย Outlook ให้ปรากฏขึ้นหน้าหน้าต่างอื่น ๆ อีกครั้งโดยใช้ VBA แบบง่าย ๆ

มันนำไปสู่การเพิ่มโค้ด VBA แบบง่าย ๆ สองสามบรรทัดลงใน "ThisOutlookSession" ตอนนี้มันจะปรากฏขึ้นหน้าต่างทุกครั้ง ดีกว่ามาก

  • สร้างใบรับรองดิจิทัลในภายหลัง
  • กดเริ่มและพิมพ์ 'ใบรับรอง' เลือก 'ใบรับรองดิจิทัลสำหรับโครงการ VBA'
  • ป้อนชื่อสำหรับใบรับรองของคุณ
  • เสร็จสิ้น
  • เปิด Outlook แล้วกด Alt + F11 เพื่อเริ่มตัวแก้ไข VBA
  • ในต้นไม้ทางด้านซ้ายให้ขยาย 'Microsoft Office Outlook Objects' แล้วดับเบิลคลิกที่ 'ThisOutlookSession'
  • วางรหัสนี้ปรับเปลี่ยนข้อความในเครื่องหมายคำพูดเพื่อให้เหมาะกับความต้องการของคุณ ฝากราคาไว้

    Private Sub Application_Reminder(ByVal Item As Object)
    
    
        If TypeOf Item Is AppointmentItem Then
        MsgBox "Message text", vbSystemModal, "Message title"
        End If
    
    
    End Sub
    
  • เซ็นชื่อแมโครเพื่อให้ทำงานโดยไปที่เครื่องมือ> ลายเซ็นดิจิทัล ... และเลือกใบรับรองที่คุณสร้างไว้ก่อนหน้านี้

  • ปิดหน้าต่าง VBA

ลองใช้วิธีนี้ใน Outlook 2010, Windows 7 แต่ไม่ได้ผล :(
tekumara

ใช้สิ่งนี้เป็นส่วนหนึ่งของการแก้ปัญหาของ Gullu ขอบคุณมาก.
Smandoli

สิ่งนี้ใช้ได้กับ Outlook 2007 ในขณะที่ Gullu ไม่ได้ทำ
จะ Sheppard

7

ตั้งแต่เวอร์ชัน 1803 (กุมภาพันธ์ 2018) ตัวเลือก "แสดงการแจ้งเตือนที่ด้านบนของหน้าต่างอื่น" มีให้บริการแล้ว ดูเหมือนว่าจะไม่เปิดใช้งานตามค่าเริ่มต้น

ป้อนคำอธิบายรูปภาพที่นี่


3
ฉันยังไม่มีเวอร์ชันที่อัปเดต แต่นี่ยอดเยี่ยมมาก! และมันก็แค่ 7 ปีตั้งแต่ฉันถามด้วย (และนั่นก็เป็นโรคที่ MS เช่นเดียวกับขอบคุณสำหรับคุณ)
วันพฤหัสบดีที่

2
นี่คือการอัปเดตที่ยอดเยี่ยมสำหรับคำถามเก่า โปรดทราบว่านี่ไม่เหมือนกับ "อยู่ด้านบนเสมอ" แต่ให้แน่ใจว่าหน้าต่างจะปรากฏที่ด้านบนของลำดับ z เพื่อให้ผู้ใช้มีโอกาสน้อยที่จะพลาด
Marc LaFleur

6

ไม่มีทาง. บริษัท ของเราพยายามส่งต่อไปยัง Microsoft โดยตรง สิ่งหนึ่งที่ผู้คนทำที่นี่คือการกำหนดให้เป็นเสียงที่น่ารังเกียจมากขึ้นเพื่อช่วยสังเกต แต่ไมโครซอฟท์ได้บอกกับเราว่าเป็นการออกแบบ


11
ฉันทำงานในฟาร์มลูกบาศก์ - ฉันพยายามทำให้คอมพิวเตอร์ของฉันเงียบสำหรับผู้อื่น :(
วันพฤหัสบดีที่

3
หากพวกเขาออกแบบอย่างแท้จริงพวกเขาจะทำให้เป็นเช่นนั้นโดยค่าเริ่มต้น แต่อนุญาตให้มีการเปลี่ยนแปลง พวกเขา "ออกแบบ" เราเรียนรู้ที่จะทนกับมันได้หรือไม่
วันพฤหัสบดีที่

ดูคำตอบของฉัน ในที่สุดเราก็มีทางออก
Gullu

ฉันหาวิธีแก้ปัญหาของบุคคลที่สาม เครื่องมือจริง Actual Window Guard $ 30 (ซึ่งรวมอยู่ในผลิตภัณฑ์ที่ครอบคลุมWindows Actual $ Manager $ 50 ทั้งหมด) ช่วยให้การกำหนดหน้าต่างให้อยู่ด้านบนเสมอ รวมทั้งง่ายต่อการเปิดและปิดคุณสมบัติ (โปรดทราบว่ามันเป็นมากกว่านั้นเพื่อช่วยให้แท็กราคาง่ายต่อการยอมรับ) ฉันพบสิ่งเหล่านี้เมื่อทดลองใช้เครื่องมืออรรถประโยชน์เดสก์ท็อปเสมือนจริงและจอภาพหลายจอภาพ ฉันใช้อันนี้มาสองสามเดือนแล้วและฉันก็มีความสุขมาก
Javaru

ฉันเดาทางออกคือใช้เครื่องมือที่ดีกว่า! เลวนั่นไม่ใช่ตัวเลือกสำหรับฉัน :(
Jonathan Benn

6

เหมือนกับ anuller ของ Gullu ด้านบน แต่มีการเปลี่ยนแปลงเพื่อรองรับชื่อหน้าต่างที่แตกต่างกัน:

Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const FLAGS As Long = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1

'// TO ACCOUNT FOR WINDOW TITLE CHANGING WITH NOTIFICATION COUNT:
Private Sub Application_Reminder(ByVal Item As Object)
    Dim ReminderWindowHWnd As Variant
    'On Error Resume Next
    On Error GoTo err
    'Loop 25 times as FindWindowA needs exact title which varies according to number of reminder items...
    Dim iReminderCount As Integer
    For iReminderCount = 1 To 25
        'Try two syntaxes...
        ReminderWindowHWnd = FindWindowA(vbNullString, iReminderCount & " Reminder"): SetWindowPos ReminderWindowHWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
        ReminderWindowHWnd = FindWindowA(vbNullString, iReminderCount & " Reminder(s)"): SetWindowPos ReminderWindowHWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
    Next
Exit Sub
err:
    Debug.Print err.Number & " - " & err.Description & " (iReminderCount = " & iReminderCount & ")"
    Resume Next
End Sub

ยิ่งไปกว่านั้นจะเป็นอย่างDim olApp As Outlook.Application Set olApp = New Outlook.Application iReminderCount = olApp.Reminders.Countนั้นคุณสามารถลบลูปได้
Zusukar

@Zusukar Reminders.Countส่งคืนจำนวนการเตือนความจำทั้งหมดที่ตั้งไว้ในการนัดหมายไม่ใช่ในกล่องโต้ตอบจดหมายเตือนชำระเงินที่ใช้งานอยู่ในระบบของฉันสิ่งนี้คืนค่า 22 เช่น
เจฟฟ์

@Zusukar คุณสามารถใช้คุณสมบัติ Reminder.IsVisible เพื่อนับจำนวนที่มองเห็นได้ แต่นี่เป็นเท็จเสมอ - สันนิษฐานว่าเหตุการณ์เกิดขึ้นก่อนที่การแจ้งเตือนจะถูกทำเครื่องหมายว่ามองเห็นได้
Geoff

3

สิ่งนี้ทำให้ฉันเหมือนกัน หลังจากการค้นหาที่เข้มข้นฉันพบคำตอบบางส่วน: http://www.pcreview.co.uk/forums/hidden-outlook-reminders-t3972914.html

หากคุณเปลี่ยนการตั้งค่า "ปุ่มแถบงาน" ภายใต้ "แถบงานและคุณสมบัติเมนูเริ่ม" เป็น "ไม่รวม" การจัดกลุ่มจะแยกและตัวเตือนจะปรากฏขึ้นต่อหน้าสิ่งใดก็ตามที่คุณเปิด

ฉันพยายามทดสอบและพบว่ามันไม่สอดคล้องกัน มีอยู่ครั้งหนึ่งที่มันซ่อนอยู่หลังสิ่งที่ฉันกำลังทำอยู่และอีกครั้งมันก็โผล่ขึ้นมา ในทั้งสองกรณีมีไอคอนบนแถบงานที่ดูแตกต่างจาก Outlook เองอย่างน้อยก็มีโอกาสที่ฉันจะสังเกตเห็น


ไม่สามารถทำให้ Outlook 2013 ทำงานได้อย่างถูกต้องแม้กับ Never Combine Outlook 2013, Windows 7 32 บิต
อาทิตย์

นี่ไม่ใช่ทางออกที่ดีสำหรับฉันเนื่องจากฉันต้องการให้แอพรวมอยู่ในทาสก์บาร์
Jonathan Benn

3

ฉันใช้Filebox eXtenderและเมื่อมีการแจ้งเตือนครั้งแรกที่ฉันเปิดมันและคลิกที่ไอคอน 'พิน' ใหม่ที่ด้านบนขวาของแถบคำอธิบายภาพ จากนั้นเมื่อมีการเตือนครั้งต่อไปมันจะมาถึงเบื้องหน้า ...


PinMe! จะทำเช่นเดียวกัน มันเป็นเครื่องมือพกพาฟรีและทำสิ่งนี้ได้ดีมาก ฉันทดสอบ Outlook 2013 แล้วและทำงานได้ตามที่ต้องการ Outlook เบื้องหน้าหรือย่อเล็กสุดตัวเตือนปฏิทินจะปรากฏที่ด้านหน้าเสมอ
อาทิตย์

@Sun จะให้ PinMe! นัดหนึ่ง
Chris Marisic

@Sun ฉันตั้งค่า "super pin" ในหน้าต่างการแจ้งเตือนที่ควรตรวจสอบให้แน่ใจว่ามันจะปรากฏตลอดเวลาไม่ว่าจะเกิดอะไรขึ้นจนกว่าฉันจะยกเลิก ใช้งานได้ตามที่โฆษณากำหนดไว้และจะส่งการแจ้งเตือนอย่างต่อเนื่อง น่ากลัว
Chris Marisic

ฉันลอง PinMe และไม่สามารถทำให้หน้าต่างอยู่ด้านบนได้เลย !!
tbone

1

ฉันพบ Addin ชื่อ ShowReminders ( http://www.sagelamp.com/pages/showreminders.aspx ) ซึ่งนำหน้าต่างเตือนความจำไปด้านบน มันยังทำงานได้เมื่อคุณย่อเล็กสุดหน้าต่างเตือนความจำ


3
กล่าวว่าผลิตภัณฑ์คือ $ 20 ณ วันที่ตุลาคม 2014
อาทิตย์

การติดตั้งล้มเหลวสำหรับฉันใน Windows 10:The following package files could not be found: C:\Users\ukeim\AppData\Local\Temp\IXP000.TMP\Office2007PIARedist\o2007pia.msi
Uwe Keim

0

ในที่สุดฉันก็พบทางออกง่ายๆโดยใช้ Outlook VBA และ EXE ธรรมดา

นี่คือวิธีที่จะไม่พลาดการนัดหมายนัดประชุมอีกครั้ง

เหตุใดแอปพลิเคชัน exe แบบเอกเทศเพียงเพื่อจุดประสงค์นี้ ฉันมีกล่องสีแดงขนาดใหญ่ฝังอยู่ใน VBA แต่วิธีการแก้ปัญหานั้นเต็มไปด้วยปัญหา (ฉันเชื่อว่าเป็นเพราะฉันต้องใช้ hwnd และคุณสมบัติอื่น ๆ ของระบบที่ผิดปกติเพื่อให้กล่องสีแดงขนาดใหญ่อยู่ด้านบน) ดังนั้นเพื่อให้สิ่งต่าง ๆ ง่ายขึ้นทำไมไม่ EXE พื้นฐานที่ทำสิ่งหนึ่ง คุณสามารถใช้เครื่องมือฟรีจาก microsoft (Visual studio Community 2015 ฟรี)

นี่คือรหัส EXE แอพลิเคชันแบบฟอร์ม windows ง่ายด้วยแบบฟอร์มเดียว รวบรวมรหัสนี้

Imports System.Timers
Public Class Form1
    Dim tTimer As New Timer
    Public Sub New()
        InitializeComponent()
        Me.StartPosition = Windows.Forms.FormStartPosition.CenterScreen
        Me.TopMost = True
        Me.TopLevel = True
    End Sub
    Private Sub Form1_DoubleClick(sender As Object, e As EventArgs) Handles Me.DoubleClick
        Application.Exit()
    End Sub 
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        flashingQuick()
    End Sub
    Sub flashingQuick()
        tTimer.Start()
        AddHandler tTimer.Elapsed, New ElapsedEventHandler(AddressOf TimerTick)
    End Sub
    Sub TimerTick(ByVal source As [Object], ByVal e As ElapsedEventArgs)
        Dim theTimer As System.Timers.Timer = DirectCast(source, System.Timers.Timer)
        theTimer.Interval = 500
        theTimer.Enabled = True
        If Me.BackColor = System.Drawing.SystemColors.Control Then
            Me.BackColor = Color.Red
        Else
            Me.BackColor = System.Drawing.SystemColors.Control
        End If
    End Sub
End Class

และนี่คือทั้งหมดที่ฉันต้องการในมุมมอง VBA ใส่สิ่งนี้ใน ThisOutlookSession

Private Sub Application_Reminder(ByVal Item As Object)
    On Error Resume Next
    If Item.MessageClass <> "IPM.Appointment" Then
      Exit Sub
    End If
    Dim sAPPData As String
    Dim sFileName As String
    sAPPData = Environ("AppData")
    sFileName = "\Microsoft\Windows\Start Menu\Programs\BigRedBox\BigRedBox.exe"
    If Dir(sAPPData & sFileName) <> "" Then
        Call Shell(sAPPData & sFileName)
    End If
End Sub

0

นี่คือคำตอบของ tboneรุ่นปรับปรุงซึ่งทำงานกับเวอร์ชันภาษาเยอรมัน

Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare PtrSafe Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Boolean
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Boolean
Private Declare PtrSafe Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long

Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const FLAGS As Long = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1

Private Sub Application_Reminder(ByVal Item As Object)
    Dim ReminderWindowHWnd As Variant
    On Error GoTo err
    'Loop 25 times as FindWindowA needs exact title which varies according to number of reminder items...
    Dim iReminderCount As Integer
    For iReminderCount = 1 To 25
        'Try two syntaxes...

        ReminderWindowHWnd = FindWindowA(vbNullString, iReminderCount & " Erinnerung")
        SetWindowPos ReminderWindowHWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
        BringWindowToTop (ReminderWindowHWnd)
        SetForegroundWindow ReminderWindowHWnd
        SetFocus ReminderWindowHWnd

        ReminderWindowHWnd = FindWindowA(vbNullString, iReminderCount & " Erinnerung(en)")
        SetWindowPos ReminderWindowHWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
        BringWindowToTop ReminderWindowHWnd
        SetForegroundWindow ReminderWindowHWnd
        SetFocus ReminderWindowHWnd
    Next
Exit Sub
err:
    Debug.Print err.Number & " - " & err.Description & " (iReminderCount = " & iReminderCount & ")"
    Resume Next
End Sub

ฉันได้เพิ่มชื่อหน้าต่างเยอรมันและยังมีบางฟังก์ชั่นใหม่ ( BringWindowToTop, SetForegroundWindowและSetFocus)

ใช้งานได้กับ Windows 10 ภาษาเยอรมันของฉันพร้อมกับ Outlook 2016

ฉันไม่ได้จัดการเพื่อสร้างใบรับรองใหม่ (กดเริ่มและป้อน "ใบรับรอง" เปิดเผยอะไรเลย) แต่เพียงเลือกใบรับรองอื่นในรายการเมื่อลงนาม


สิ่งนี้ทำให้แอปพลิเคชั่นกระพริบตา แต่ไม่ได้นำหน้าต่างการแจ้งเตือนไปด้านหน้า
KIC
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.