এই নিবন্ধটি আপনাকে ভিবিএ ব্যবহার করে একটি দ্রুত কৌশল শিখিয়ে দেবে যাতে আউটলুক স্বয়ংক্রিয়ভাবে আপনাকে কোনও নির্দিষ্ট সময়ের মধ্যে কোনও নির্দিষ্ট ইমেলের উত্তর না পেয়ে নোটিফিকেশন ইমেল প্রেরণ করা যায় কিনা তা জিজ্ঞাসা করতে দেয়।
সময়ে, অত্যন্ত গুরুত্বপূর্ণ ইমেলগুলির জন্য, আপনি অবশ্যই এর উত্তরগুলির অপেক্ষায় থাকবেন। অন্য কথায়, আপনাকে অবশ্যই আশা করা উচিত যে প্রাপক যত তাড়াতাড়ি সম্ভব আপনাকে জবাব দিতে পারে। অন্যথায়, যতক্ষণ না আপনি এখনও আপনার প্রত্যাশিত সময়ের মধ্যে উত্তর না পেয়েছেন, আপনি আবার প্রাপকের কাছে একটি ফলো-আপ বিজ্ঞপ্তি ইমেল প্রেরণ করবেন। অতএব, এই প্রয়োজনীয়তার প্রতিক্রিয়া হিসাবে, আমরা এখানে এমন একটি পদ্ধতি প্রবর্তন করব যা আউটলুককে স্বয়ংক্রিয়ভাবে সতর্ক করতে এবং এমন ক্ষেত্রে আপনাকে অনুরোধ জানাতে ভিবিএ ব্যবহার করে। বিস্তৃত পদক্ষেপ এবং কোডগুলি পড়তে পড়ুন।
প্রত্যাশিত সময়ের মধ্যে একটি নির্দিষ্ট ইমেলের উত্তর না পেয়ে একটি বিজ্ঞপ্তি পান
- একেবারে গোড়ার দিকে, এসtarআপনার আউটলুক টি।
- তারপরে আপনাকে নির্দিষ্ট ইমেলের জন্য একটি নির্দিষ্ট অনুস্মারক সময় সেট করতে হবে।
- প্রথমত, নির্দিষ্ট ইমেলটিতে ডান ক্লিক করুন।
- তারপরে "ফলোআপ"> "অনুস্মারক যোগ করুন" নির্বাচন করুন।
- কথোপকথন বাক্সে, আপনি অনুস্মারক সময়টিকে নির্দিষ্ট সময়ের মধ্যে সেট করতে পারেন যার মধ্যে আপনি তার উত্তর পেতে চান।
- এর পরে, আউটলুক ভিবিএ সম্পাদকটি অ্যাক্সেস করতে "Alt + F11" কী বোতাম টিপুন।
- নতুন উইন্ডোটির পরবর্তী, "এই আউটলুকসেশন" প্রকল্পটি খুলুন এবং এতে নিম্নলিখিত কোডগুলি অনুলিপি করুন।
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInboxItems = Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
'If receive the reply, clear the flag and remove the reminder
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objSentItems As Outlook.Items
Dim objVariant As Variant
Dim i As Long
Dim strSubject As String
Dim dSendTime As String
Set objSentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
If Item.Class = olMail Then
For i = 1 To objSentItems.Count
If objSentItems.Item(i).Class = olMail Then
Set objVariant = objSentItems.Item(i)
strSubject = LCase(objVariant.Subject)
dSendTime = objVariant.SentOn
If LCase(Item.Subject) = "re: " & strSubject Or InStr(LCase(Item.Subject), strSubject) > 0 Then
If Item.SentOn > dSendTime Then
With objVariant
.ClearTaskFlag
.ReminderSet = False
.Save
End With
End If
End If
End If
Next i
End If
End Sub
'Get a prompt asking if to send a notification email
Private Sub Application_Reminder(ByVal Item As Object)
Dim strPrompt As String
Dim nResponse As Integer
Dim objFollowUpMail As Outlook.MailItem
'You can change the subject as per your real case
If (Item.Class = olMail) And (LCase(Item.Subject) = "datanumen outlook repair") Then
strPrompt = "You haven't yet recieved the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
nResponse = MsgBox(strPrompt, vbYesNo + vbQuestion, "Confirm to Send a Follow-Up Notification Email")
If nResponse = vbYes Then
Set objFollowUpMail = Application.CreateItem(olMailItem)
With objFollowUpMail
.To = Item.Recipients.Item(1).Address
.Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
.Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & "as soon as possible"
.attachments.Add Item
.Display
End With
End If
End If
End Sub
- পরবর্তীকালে, এই কোডটি সাইন করুন।
- পরে ডিজিটালি স্বাক্ষরিত ম্যাক্রোগুলিকে অনুমতি দেওয়ার জন্য আউটলুক ম্যাক্রো সেটিংস পরিবর্তন করুন।
- অবশেষে পুনরায়tarনতুন ম্যাক্রোটি সক্রিয় করতে আউটলুক এখন থেকে, আউটলুক নিম্নলিখিতগুলি হিসাবে কাজ করবে:
- যদি আপনি নির্দিষ্ট ইমেলের এর অনুস্মারকটি পপ আপ হওয়ার আগে উত্তর পেয়ে থাকেন তবে আউটলুক পতাকাটি স্বয়ংক্রিয়ভাবে সাফ করবে এবং অনুস্মারকটি অক্ষম করবে।
- এর অনুস্মারকটি জ্বললে আপনি যদি উত্তরটি না পেয়ে থাকেন তবে আউটলুক আপনাকে ফলো-আপ বিজ্ঞপ্তি ইমেল প্রেরণ করবে কিনা তা জিজ্ঞাসা করবে। আপনি যদি "হ্যাঁ" নির্বাচন করেন তবে ইমেলটি প্রেরণ করা হবে। যদি "না" নির্বাচন করা হয় তবে প্রম্পটটি একবারে অদৃশ্য হয়ে যাবে।
বিরক্তিকর দৃষ্টিভঙ্গি ইস্যু সমাধান করুন
যেমন আউটলুক ত্রুটি প্রবণ হয়, যাতে প্রতিরোধ করা যায় দৃষ্টিভঙ্গি দুর্নীতি, আপনার কেবল ইনবক্স সরঞ্জাম, স্ক্যানস্টেস্ট.এক্সইয়ের উপর নির্ভর না করাই ভাল। আপনার আর একটি শক্তিশালী এবং নামকরা মেরামত সরঞ্জাম প্রস্তুত করা উচিত, যেমন DataNumen Outlook Repair, যা Scanpst.exe নিষ্পত্তি করতে পারে না এমন বিরক্তিকর সমস্যাগুলি নিষ্পত্তি করতে পারে।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় sql দুর্নীতি এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com