আপনি যদি আউটলুকের নির্দিষ্ট প্রেরকের কাছ থেকে আগত ইমেলগুলির সংযুক্তিগুলি স্বয়ংক্রিয়ভাবে খুলতে চান তবে আপনি এই নিবন্ধটি পড়তে পারেন। এটি কীভাবে অর্জন করা যায় আমরা এখানে আপনাকে গাইড করব।
উদাহরণস্বরূপ, আপনার বস প্রায়শই আপনাকে বেশ কয়েকটি গুরুত্বপূর্ণ ফাইল সংযুক্তি সহ ইমেল করে। যত তাড়াতাড়ি সম্ভব আপনার বসকে প্রতিক্রিয়া জানাতে আপনার সংযুক্তিগুলি গ্রহণ করার সময় আপনাকে সেগুলি খুলতে হবে। এই দৃশ্যে, আপনি আউটলুককে আপনার মনিব থেকে আগত ইমেল সংযুক্তিগুলি খোলার জন্য একটি দুর্দান্ত পদ্ধতির জন্য দীর্ঘস্থায়ী হতে পারে। এখন, আমরা আপনাকে এমন একটি পদ্ধতি দেখাব।
নির্দিষ্ট প্রেরকের কাছ থেকে আগত ইমেলের স্বয়ংক্রিয় সংযুক্তি
- প্রথমে আউটলুক অ্যাপ্লিকেশনটি চালু করুন।
- তারপরে, শর্টকাটের মাধ্যমে ভিবিএ সম্পাদক অ্যাক্সেস করুন - "Alt + F11"
- এরপরে, নীচের ভিবিএ কোডটিকে "এটিআউটলুকসেশন" প্রকল্পে রাখুন।
Private Declare Function GetShortPathName Lib "kernel32" _
Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private WithEvents objItems As Outlook.Items
Private Sub Application_Startup()
Set objItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
'Occurs when new item arrives in Inbox
Private Sub objItems_ItemAdd(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objWsShell As Object
Dim strTempFolder As String
Dim objAttachments As Outlook.Attachments
Dim objAttachment As Attachment
Dim strFileName As String
If Item.Class = olMail Then
Set objMail = Item
'Change sender email address
If objMail.SenderEmailAddress = "boss@datanumen.com" Then
Set objWShell = CreateObject("WScript.Shell")
strTempFolder = Environ("Temp") & "\"
Set objWsShell = CreateObject("WScript.Shell")
Set objAttachments = objMail.Attachments
If objAttachments.Count > 0 Then
For Each objAttachment In objAttachments
strFileName = objAttachment.DisplayName
On Error Resume Next
Kill strTempFolder & strFileName
On Error GoTo 0
'Save the attachment
objAttachment.SaveAsFile strTempFolder & strFileName
'Open the attachment
strFileName = GetShortFileName(strTempFolder & strFileName)
On Error Resume Next
objWsShell.Run strFileName
Next
End If
End If
End If
End Sub
Function GetShortFileName(ByVal FullPath As String) As String
Dim lAns As Long
Dim sAns As String
Dim iLen As Integer
On Error Resume Next
If Dir(FullPath) <> "" Then
sAns = Space(255)
lAns = GetShortPathName(FullPath, sAns, 255)
GetShortFileName = Left(sAns, lAns)
End If
End Function
- পরবর্তীকালে, ভিবিএ সম্পাদকটি বন্ধ করুন।
- অবশেষে, নতুন ম্যাক্রোটি সক্রিয় করতে আপনার Outlook অ্যাপ্লিকেশনটি পুনরায় চালু করুন।
- এখন থেকে প্রতিবার যখনই নির্দিষ্ট প্রেরকের কাছ থেকে কোনও নতুন মেল আপনার ইনবক্সে আসবে, আউটলুক স্বয়ংক্রিয়ভাবে এই মেইলে সংযুক্তিগুলি খুলবে।
ইনবক্স মেরামত সরঞ্জাম প্রয়োগ করুন
যখন আপনার আউটলুক ডেটা ফাইল দূষিত হয়, তখন আপনি কী করবেন? আসলে, প্রথমে আপনি ইনবিল্ট আউটলুক ফিক্স সরঞ্জামটি ব্যবহার করতে পারেন - স্ক্যানপস্ট। এটি আপনার আউটলুকের সাথে জড়িত কিছু ক্ষুদ্র সমস্যা সমাধান করতে সক্ষম। প্রদত্ত যে এই ইউটিলিটিটি ব্যর্থ হয়, অনেক বেশি অভিজ্ঞ এবং নির্ভরযোগ্য বাহ্যিক সরঞ্জাম যেমন রিসোর্ট করার উপযুক্ত সময় এটি DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় দূষিত এমডিএফ এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com