কীভাবে আউটলুক ক্যালেন্ডার অনুস্মারকগুলি উইন্ডোজ 7 এ শীর্ষে থাকবে

123

আমি কেবল উইন্ডোজ use ব্যবহার করতে শুরু করছি এবং আমি কীভাবে আমার আউটলুক অনুস্মারককে পপ আপ করতে এবং নিজেকে বিশিষ্টভাবে প্রদর্শন করতে চাই তা জানতে চাই। টাস্কবারের আউটলুকের স্ট্যাকের ঠিক অন্য একটি উইন্ডো হিসাবে তারা বিচক্ষণতার সাথে খোলার চেষ্টা করে। ফলস্বরূপ, আমি তাদের অগ্রাহ্য করতে থাকি কারণ তারা অন্য সমস্ত কিছুর পিছনে পপ আপ করে।

আমি কীভাবে তাদের উপেক্ষা করা কম সহজ করব?

(স্পষ্টতই, কেউ সাধারণত অযৌক্তিক অ্যাপ্লিকেশন চায় না যা নিজেকে এগিয়ে নিয়ে যায় But তবে এমন কয়েকটি জায়গা রয়েছে যেখানে এই জাতীয় আচরণটি পছন্দসই এবং আউটলুক ক্যালেন্ডার অনুস্মারকগুলির মধ্যে একটি)

windows-7  microsoft-outlook  calendar  popups  reminder 
— thursdaysgeek
সূত্র
16
এটি তাই প্রয়োজনীয়। যদি কেউ তীব্র ঘনত্বের মধ্যে পড়ে তবে খুব সহজেই একটি অনুস্মারক মিস করে এবং লক্ষ্য করুন যে আপনি দেরি করার পরেই এটি অন্য উইন্ডোগুলির নীচে সমাহিত হয়েছে। এটি হাস্যকর যে কিছু সাধারণ সেটিংস দিয়ে এটি সম্ভব নয়। আপনি যদি তাৎক্ষণিকভাবে এটি না পান তবে কী ভাল?
— মারিও

উত্তর:

61

আউটলুক ২০১০ এর সাথে আমারও একই সমস্যা ছিল below নীচে উল্লিখিত পদক্ষেপগুলি ব্যবহার করুন, এটি কবজির মতো কাজ করে। সমস্ত ম্যাক্রো সক্ষম করতে ভুলবেন না: ট্রাস্ট সেন্টার> ম্যাক্রো সেটিংস।

  • পরে ডিজিটাল শংসাপত্র তৈরি করুন: হিট স্টার্ট এবং টাইপ করুন 'শংসাপত্র', 'ভিবিএ প্রকল্পের জন্য ডিজিটাল শংসাপত্র' নির্বাচন করুন
  • আপনার শংসাপত্রের জন্য একটি নাম লিখুন। ঠিক আছে ক্লিক করুন। আউটলুক খুলুন এবং ভিবিএ সম্পাদক শুরু করতে Alt+ টিপুন F11।
  • বাম দিকে গাছের মধ্যে, 'মাইক্রোসফ্ট অফিস আউটলুক অবজেক্টস' প্রসারিত করুন এবং 'এইআউটলুকসেশন' এ ডাবল ক্লিক করুন

  • এই কোডে আটকান:

    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

  • ম্যাক্রোতে স্বাক্ষর করুন যাতে এটি চলবে: সরঞ্জামসমূহ> ডিজিটাল স্বাক্ষর ... এবং আপনি আগে তৈরি শংসাপত্রটি চয়ন করুন

  • ভিবিএ উইন্ডোটি বন্ধ করুন
  • ফাইল> বিকল্পসমূহ> ট্রাস্ট কেন্দ্র> ট্রাস্ট কেন্দ্র সেটিংস> ম্যাক্রো সেটিংসে সমস্ত ম্যাক্রো সক্ষম করুন
— Gullu
সূত্র
3
আমি লক্ষ্য করেছি, কখনও কখনও (সাধারণত আপনি যখন আউটলুক শুরু করেন) প্রথম অনুস্মারকটি শীর্ষে থাকবে না। একবার আপনি বরখাস্ত ক্লিক করুন এবং অনুস্মারকটি বন্ধ করুন পরবর্তী সমস্ত অনুস্মারক শীর্ষে থাকবে। কেন জানি না।
— গুলু
3
On Error Resume Nextশুধু তাই সাব ক্ষেত্রে প্রযোজ্য এবং মাত্র বিপর্যয় থেকে পুরো ম্যাক্রো বাধা দেয় .. একটা মানসম্মত VBA ব্যবহার হয়।
— জেফ মার্টিন
3
গুলু তার প্রথম মন্তব্যে ইঙ্গিত করায় আমারও একই সমস্যা ছিল। এটিকে কাজ করার জন্য, আমি দৃষ্টিভঙ্গি (বা আমার কম্পিউটার) পুনরায় চালু করার পরে প্রথম অনুস্মারকটির জন্য একটি বার্তা বাক্স দেখাব show Private messageAlreadyShown As Boolean ব্যক্তিগত উপ Application_Reminder (ByVal আইটেম অবজেক্ট হিসেবে) On Error Resume Next তাহলে messageAlreadyShown না MsgBox "First Reminder", vbSystemModal, "" বন্ধ করে দেন messageAlreadyShown = True ReminderWindow = FindWindowA (vbNullString, "1 টি অনুস্মারক") SetWindowPos ReminderWindow, HWND_TOPMOST, 0, 0, 0, 0, FLAGS শেষ সাব
— helios456
3
ম্যাক্রোর জন্য স্ব-স্বাক্ষরিত শংসাপত্র তৈরি করার সরঞ্জামটি খুঁজে পেতে আমার সমস্যা হয়েছিল। আমি এটি সি: \ প্রোগ্রাম ফাইলগুলি \ মাইক্রোসফ্ট অফিস \ অফিসএক্সএক্স, সরঞ্জাম SELFCERT.EXE এ পেয়েছি।
— এসএসজিরো
3
আমি "1 টি অনুস্মারক" সন্ধান করতে আমার পরিবর্তন করেছিলাম এবং তারপরে এটি কার্যকর হয়েছিল।
— রবার্ট ব্রুকার
18

এটি সমাধানের জন্য অটোহটকিও ব্যবহার করা যেতে পারে। এই স্ক্রিপ্টটি মনোযোগ চুরি না করে রিমাইন্ডার উইন্ডোটিকে উপরে রাখবে (উইন 10 / আউটলুক 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
}

এএইচকে স্ক্রিপ্ট - সংকলিত EXE

— এরিক এল
সূত্র
এএইচকে ব্যবহারের জন্য +1। আমি কেবল এটি জয় 7 / আউটলুক 2016-এ পরীক্ষা করেছি It এটি সামনে দৃষ্টিভঙ্গি এনে দেয় তবে আপনি টাইপ করলে এটি প্রকৃতপক্ষে ফোকাসটি চুরি করে না। ঠিক আমি কী চেয়েছিলাম! (যদিও আমি ট্রে টিপস সরিয়ে দিয়েছি :))
— ফওিক্স
1
মনে রাখবেন স্ক্রিপ্টটি উইন্ডো দিয়ে শুরু করার খুব সহজ উপায় রয়েছে। স্রেফ এটিকে ফোল্ডারে রেখে দিনC:\Users\<username>\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
— ফওিক্স
এএইচকে স্ক্রিপ্ট এবং সংকলিত EXE লিঙ্কগুলি নষ্ট হয়ে গেছে। আমি আমার অটোহটকি.এইচসি স্ক্রিপ্টে উপরের স্ক্রিপ্টটি অনুলিপি করে আটকালাম এবং এটি কার্যকর হয়নি।
— মাইক কোল
1
এখানে সংকলিত EXE drive.google.com/file/d/0B_pJVd8U0PfcWkZWNmhEYncwQjA/
— ভিউ
1
স্টার্টআপ ফোল্ডারে প্রবেশ shell:startupকরা সহজেই কোনও অ্যাড্রেস বারে বা রান বাক্সে প্রবেশের মাধ্যমে করা যেতে পারে
— গার্ট ভ্যান ড্যান বার্গ
13

আমি খুঁজে পেয়েছি সেরা উত্তর এখানে: কিছু সহজ ভিবিএ ব্যবহার করে আবার অন্য উইন্ডোগুলির সামনে কীভাবে আউটলুক অ্যাপয়েন্টমেন্ট অনুস্মারক পাবেন।

এটি "এইআউটলুকসেশন" এ সাধারণ ভিবিএ কোডের কয়েকটি লাইন যুক্ত করে। এখন, এটি প্রতিটি সময় একটি উইন্ডো পপ আপ। অনেক ভাল.

  • পরে ডিজিটাল শংসাপত্র তৈরি করুন Create
  • শুরু করুন এবং 'শংসাপত্র' টাইপ করুন, 'ভিবিএ প্রকল্পের জন্য ডিজিটাল শংসাপত্র' নির্বাচন করুন
  • আপনার শংসাপত্রের জন্য একটি নাম লিখুন
  • সম্পন্ন
  • আউটলুক খুলুন এবং ভিবিএ সম্পাদক শুরু করতে Alt + F11 টিপুন।
  • বাম দিকে গাছের মধ্যে, 'মাইক্রোসফ্ট অফিস আউটলুক অবজেক্টস' প্রসারিত করুন এবং 'এইআউটলুকসেশন' এ ডাবল ক্লিক করুন

  • আপনার পছন্দ অনুসারে উদ্ধৃতিতে পাঠ্য পরিবর্তন করে এই কোডটিতে আটকান। ভিতরে উদ্ধৃতি ছেড়ে দিন।

    Private Sub Application_Reminder(ByVal Item As Object)


    If TypeOf Item Is AppointmentItem Then
    MsgBox "Message text", vbSystemModal, "Message title"
    End If


End Sub

  • ম্যাক্রোতে স্বাক্ষর করুন যাতে এটি সরঞ্জাম> ডিজিটাল স্বাক্ষর… এ গিয়ে চালিত হবে এবং আপনি আগে তৈরি শংসাপত্রটি বেছে নিবেন

  • ভিবিএ উইন্ডোটি বন্ধ করুন
— tommykey
সূত্র
আউটলুক ২০১০, উইন্ডোজ this এ চেষ্টা করেছিলেন কিন্তু এটি কার্যকর হয়নি :(
— টেকুমার
গুলুর সমাধানের অংশ হিসাবে এটি ব্যবহার করেছেন। অনেক ধন্যবাদ.
— স্মান্ডোলি
এটি আউটলুক 2007-এ কাজ করেছে, যখন গুলু তা করেনি।
— শেপার্ড
6

কোন উপায় নেই. আমাদের সংস্থা এটি সরাসরি মাইক্রোসফ্টে বাড়ানোর চেষ্টা করেছিল। লোকেরা এখানে যে কাজটি করে তা হ'ল এটির আরও লক্ষণীয় শব্দ নির্ধারণ করা, এটি লক্ষ্য করাতে সহায়তা করার জন্য। তবে মাইক্রোসফ্ট আমাদের জানিয়েছে এটি ডিজাইনের মাধ্যমে।

— ব্রায়ান
সূত্র
11
আমি একটি কিউব ফার্মে কাজ করি - আমি অন্যদের জন্য আমার কম্পিউটারকে শান্ত রাখার চেষ্টা করি। :(
— বৃহস্পতিবার
3
যদি তারা সত্যই ডিজাইন করে থাকে তবে তারা এটিকে ডিফল্টরূপে তৈরি করতে পারে তবে এটি পরিবর্তিত হতে দেয়। তারা "ডিজাইন" করে, আমরা কি এটি সহ্য করতে শিখি?
— বৃহস্পতিবারের
আমার উত্তর দেখুন। আমাদের শেষ পর্যন্ত একটি সমাধান আছে।
— গুলু
আমি একটি তৃতীয় পক্ষের সমাধান খুঁজে পেয়েছি। প্রকৃত সরঞ্জামগুলি আসল উইন্ডো গার্ড $ 30 (যা তাদের সমস্ত পরিবেষ্টিত পণ্যের মধ্যে অন্তর্ভুক্ত রয়েছে প্রকৃত উইন্ডোজ ম্যানেজার $ 50) উইন্ডোজকে সর্বদা শীর্ষে রাখার অনুমতি দেয়। প্লাস বৈশিষ্ট্যটি চালু এবং বন্ধ করা সহজ Plus (মনে রাখবেন যে দামের ট্যাগটি গ্রহণ করা আরও সহজ করে তুলতে এটি আরও বেশি কিছু করে।) ভার্চুয়াল ডেস্কটপ ও মাল্টি-মনিটর ইউটিলিটি সরঞ্জামগুলি চেষ্টা করার সময় আমি এগুলি পেয়েছি। আমি এখন বেশ কয়েক মাস ধরে ব্যবহার করছি এবং এতে খুব খুশি with
— জাভারু
আমার ধারণা সমাধানটি আরও ভাল সরঞ্জাম ব্যবহার করা!
— জোনাথন বেন
6

উপরে গুল্লুর অ্যাওয়ার হিসাবে একই তবে ভিন্ন উইন্ডোর শিরোনামটি পরিবর্তনের সাথে:

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
— tbone
সূত্র
এমনকি আরও ভাল কিছু হবে Dim olApp As Outlook.Application Set olApp = New Outlook.Application iReminderCount = olApp.Reminders.Countএরপরে আপনি লুপটি সরিয়ে ফেলতে পারেন।
— জুলুকর
@ জুলুকর Reminders.Countসক্রিয় অনুস্মারক সংলাপে নয়, অ্যাপয়েন্টমেন্টগুলিতে অ্যাপয়েন্টমেন্টগুলিতে নির্ধারিত মোট অনুস্মারক সংখ্যাটি ফিরিয়ে দেয় আমার সিস্টেমে এটি উদাহরণস্বরূপ 22 টি প্রত্যাবর্তন করে।
— জেফ 19
@ জুসুকার আপনি দৃশ্যমানটিকে গণনা করার জন্য আদর্শভাবে অনুস্মারকটি ব্যবহার করতে পারেন sএকটি দৃশ্যমান সম্পত্তি গণনা করার জন্য, তবে এটি সর্বদা মিথ্যা - সম্ভবত অনুস্মারকটি দৃশ্যমান হিসাবে চিহ্নিত হওয়ার আগে ঘটনাটি ঘটবে সম্ভবত।
— জিওফ
6

সংস্করণ 1803 (ফেব্রুয়ারী 2018) অনুসারে, "অন্যান্য উইন্ডোগুলির উপরে অনুস্মারকগুলি দেখান" বিকল্পটি এখন উপলভ্য। এটি ডিফল্টরূপে সক্ষম হয়ে দেখা যায় না।

এখানে চিত্র বর্ণনা লিখুন

— শয়তান এর উকিল
সূত্র
3
আমার কাছে এখনও আপডেট হওয়া সংস্করণ নেই, তবে এটি দুর্দান্ত! এবং আমি জিজ্ঞাসা করেও এটি হয়েছে মাত্র 7 বছর। (এবং এটি এমএস-এ একটি ডিস, পাশাপাশি আপনাকে ধন্যবাদ))
— বৃহস্পতিবার
2
এটি একটি পুরানো প্রশ্নের একটি দুর্দান্ত আপডেট। মনে রাখবেন যে এটি "সর্বদা শীর্ষে থাকা" এর মতো নয় তবে এটি উইন্ডোটি জেড-অর্ডারের শীর্ষে পপ হবে তা নিশ্চিত করে যাতে ব্যবহারকারীরা এটির সম্ভাবনা কম রাখেন।
— মার্ক লাফলার
3

এটি আমাকে খুব বগল করছে। কিছু তীব্র অনুসন্ধানের পরে আমি একটি আংশিক উত্তর পেয়েছি: http://www.pcreview.co.uk/forums/hided-outlook-reminders-t3972914.html

যদি আপনি "টাস্কবার এবং মেনু বৈশিষ্ট্যগুলি" মেনু প্রপার্টি "এর অধীনে" কখনই একত্রিত করবেন না "এর মধ্যে" টাস্কবার বোতামগুলি "সেটিংস পরিবর্তন করেন তবে গ্রুপিং পৃথক হয়ে যায় এবং আপনার যা কিছু খোলে তার সামনে অনুস্মারকটি পপ-আপ হয়।

আমি এটি পরীক্ষা করার চেষ্টা করে দেখতে পেলাম যে এটি বেমানান; আমি যা কাজ করছি তার পিছনে এটি একবার লুকিয়ে থাকবে এবং অন্য সময় এটি সামনে উঠে গেল। উভয় ক্ষেত্রেই টাস্ক বারে একটি আইকন ছিল যা নিজেই আউটলুক থেকে আলাদা দেখায়, তাই কমপক্ষে একটি সুযোগ ছিল যা আমি এটি লক্ষ্য করব।

— মার্ক মুক্তি
সূত্র
নেভার কম্বাইনের সাথেও সঠিক আচরণ করতে আউটলুক 2013 পাওয়া যায়নি। আউটলুক 2013, উইন্ডোজ 7 32-বিট।
— সূর্য
এটি আমার পক্ষে ভাল সমাধান নয়, কারণ আমি টাস্কবারে অ্যাপ্লিকেশনগুলিকে একত্রিত করতে পছন্দ করি
— জোনাথন বেন
3

আমি ফাইলবক্স এক্সটেন্ডার ব্যবহার করেছি এবং যখন প্রথম অনুস্মারক আসে তখন আমি এটি খুলি এবং ক্যাপশন বারের উপরের ডানদিকে নতুন 'পিন' আইকনটি ক্লিক করি। তারপরে যখন পরবর্তী অনুস্মারকটি আসবে, তখন এটি অগ্রভাগে আসে ...

— জ্যাকরব প্রভাব
সূত্র
PinMe! একই কাজ করবে। এটি একটি নিখরচায় পোর্টেবল সরঞ্জাম এবং এই এক কাজটি খুব ভালভাবে করে। আমি এটি আউটলুক 2013 পরীক্ষা করেছি এবং এটি যেমনটি চাই ঠিক ঠিক তেমন কাজ করে। আউটলুকের অগ্রভাগ বা হ্রাস করা, ক্যালেন্ডার অনুস্মারকটি সর্বদা সামনে চলে যায়।
— সূর্য
@ সান পিনমে দিতে যাচ্ছেন! একটি শট
— ক্রিস মেরিসিক
@ সান আই নোটিফিকেশন উইন্ডোতে "সুপার পিন" সেটআপ করুন যা নিশ্চিত হওয়া উচিত যে এটি সর্বদা দৃশ্যমান হয় না যতক্ষণ না আমি এটিকে বরখাস্ত করি না। বাক্সের বাইরে বিজ্ঞাপন হিসাবে কাজ করে এবং এটি ক্রমাগত বিজ্ঞপ্তিগুলি সরবরাহ করে। অসাধারণ.
— ক্রিস মেরিসিক
আমি পিনমি চেষ্টা করেছিলাম এবং উইন্ডোটি উপরে থাকতে পারে না, একেবারে !! ??
— tbone
1

আমি শোআরইমিন্ডার্স ( http://www.sagelamp.com/pages/showreminders.aspx ) নামে একটি অ্যাডিন পেয়েছি , যা অনুস্মারক উইন্ডোটিকে শীর্ষে নিয়ে আসে। এমনকি আপনি যখন অনুস্মারক উইন্ডোটি ছোট করেন তখন এটি কাজ করে।

— user245293
সূত্র
3
বলছেন পণ্যটি 2014 সালের অক্টোবর পর্যন্ত 20 ডলার
— সান
উইন্ডোজ 10 এ আমার জন্য সেটআপ ব্যর্থ হয়:The following package files could not be found: C:\Users\ukeim\AppData\Local\Temp\IXP000.TMP\Office2007PIARedist\o2007pia.msi
— উয়ে কেইম
0

আমি শেষ পর্যন্ত আউটলুক ভিবিএ এবং একটি সহজ এক্সই ব্যবহার করে একটি সহজ সমাধান খুঁজে পাই।

এখানে কীভাবে কখনই আউটলুক বৈঠকের অ্যাপয়েন্টমেন্টকে মিস করবেন না।

কেন কেবলমাত্র এই উদ্দেশ্যে একা একা এক্সেল আবেদন? ওয়েল, আমার কাছে বড় লাল বাক্সটি ভিবিএতে এমবেড করা ছিল, তবে সেই সমাধানটি সমস্যায় পূর্ণ ছিল (আমি বিশ্বাস করি কারণ এটি বড় লাল বাক্সকে শীর্ষে রাখার জন্য আমাকে এইচডাব্ল্যান্ড এবং অন্যান্য অস্বাভাবিক সিস্টেমের সম্পত্তি ব্যবহার করতে হবে)। সুতরাং জিনিসগুলি সহজ করে তোলার জন্য কেন কোনও মৌলিক EXE যা একটি কাজ করে না। আপনি মাইক্রোসফ্ট থেকে বিনামূল্যে সরঞ্জাম ব্যবহার করতে পারেন (ভিজ্যুয়াল স্টুডিও সম্প্রদায় 2015 বিনামূল্যে)

এটি EXE কোড। সাধারণ উইন্ডোজ এক ফর্ম সঙ্গে আবেদন ফর্ম। এই কোডটি সংকলন করুন।

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

দৃষ্টিভঙ্গির ভিবিএতে আমার এটিই প্রয়োজন। এটি এই আউটলুকসেশনে রাখুন

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
— user2635566
সূত্র
0

এটি টোবনের উত্তরের একটি বর্ধিত সংস্করণ যা জার্মান সংস্করণগুলিতে কাজ করে।

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) যুক্ত করেছি।

আউটলুক 2016 এর সাথে আমার জার্মান উইন্ডোজ 10 এ কাজ করে।

আমি একটি নতুন শংসাপত্র উত্পন্ন করতে পরিচালনা করিনি (স্টার্ট টিপুন এবং "শংসাপত্রের প্রবেশ করানো" কিছুই প্রকাশ করেনি), কিন্তু সই করার সময় তালিকায় কেবল অন্য শংসাপত্রটি নির্বাচন করেছেন।

— উয়ে কেইম
সূত্র
এটি অ্যাপ্লিকেশনটিকে কেবল জ্বলজ্বলে করে কিন্তু বিজ্ঞপ্তি উইন্ডোটিকে সামনে
— আনায় না
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.