কখনও কখনও, আপনি দ্রুত একটি নির্দিষ্ট উইন্ডো ফোল্ডারে সর্বশেষ পরিবর্তিত ফাইলটি আউটলুক ইমেলের সাথে দ্রুত সংযুক্ত করতে এবং সংযুক্ত করতে চাইতে পারেন। এই ক্ষেত্রে, আপনি এই নিবন্ধে প্রবর্তিত পদ্ধতিটি ব্যবহার করতে পারেন।
কিছু ব্যবহারকারী চান যে আউটলুক যেন উইন্ডোজ ফোল্ডারের সর্বশেষ পরিবর্তিত ফাইলটি (যেমন, সম্প্রতি তৈরি করা, পরিবর্তন করা বা সংরক্ষণ করা ফাইল) দ্রুত খুঁজে বের করে ইমেইলের সাথে যুক্ত করে দেয়। তবে, আউটলুকে এমন কোনো সরাসরি এবং নিজস্ব ফিচার নেই। তাই, নিচে আমরা একটি VBA কোড উপস্থাপন করব, যা দিয়ে এই কাজটি সহজেই করা সম্ভব।
ইমেল করতে একটি উইন্ডোজ ফোল্ডারে সর্বশেষ পরিবর্তিত ফাইল সংযুক্ত করুন
- একেবারে গোড়ার দিকে আপনার আউটলুক অ্যাপ্লিকেশনটি চালু করা উচিত।
- তারপরে, আপনি মূল আউটলুক উইন্ডোতে প্রবেশ করার পরে, আপনি "Alt + F11" কী বোতাম টিপতে পারেন।
- এরপরে আপনি সাফল্যে আউটলুক ভিবিএ সম্পাদক উইন্ডোটি অ্যাক্সেস করবেন।
- পরবর্তীকালে, আপনাকে এমন একটি মডিউল খুঁজে বের করতে হবে যা ব্যবহার করা হচ্ছে না।
- এবং তারপরে এই মডিউল উইন্ডোতে নিম্নলিখিত ভিবিএ কোডটি অনুলিপি করুন এবং আটকান।
Sub AttachLastModifiedSpecificFile()
Dim objShell As Object
Dim objSelectedFolder As Object
Dim objFileSystem As Object
Dim strSourceFolderPath As String
Dim objSourceFolder As Object
Dim objFile As Object
Dim dLastModifiedDate As Date
Dim strLastModifiedFilePath As String
Dim objMail As Outlook.MailItem
On Error GoTo ErrorHandler
'Select a local source folder
Set objShell = CreateObject("Shell.Application")
Set objSelectedFolder = objShell.BrowseForFolder(0, "Select the source folder", 0, "")
strSourceFolderPath = objSelectedFolder.self.Path
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objSourceFolder = objFileSystem.GetFolder(strSourceFolderPath)
If objSourceFolder.Files.Count > 0 Then
For Each objFile In objSourceFolder.Files
'Find the last modified file within "xlsx" file type in the selected Windows folder
If (objFile.DateLastModified > dLastModifiedDate) And (objFileSystem.GetExtensionName(objFile) = "xlsx") Then
'You can add or change criteria, such as
'Left(objFile.Name, 4) = "Test" ---> file whose name begins with "Test"
'(objFile / 1024) / 1024 > 2 --> File exceeds 2 MB
'Note: Use "And" to connect more than one criteria
strLastModifiedFilePath = objFile.Path
dLastModifiedDate = objFile.DateLastModified
End If
Next
If strLastModifiedFilePath <> "" Then
'Confirm attaching it to the current outlook email
strMsg = "The last modified file in the " & Chr(34) & strSourceFolderPath & Chr(34) & " is: " & vbCrLf & vbCrLf & "File: " & strLastModifiedFilePath & vbCrLf & "Date: " & dLastModifiedDate & vbCrLf & vbCrLf & "Do you want to attach it?"
nPrompt = MsgBox(strMsg, vbQuestion + vbYesNo, "Confirm Attaching Last Modified File")
If nPrompt = vbYes Then
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
objMail.Attachments.Add strLastModifiedFilePath
End If
Else
MsgBox "No file in the selected folder can meet your predefined criteria!", vbExclamation + vbOKOnly
End If
Else
MsgBox "No file exists in the selected Windows folder!", vbExclamation + vbOKOnly
End If
ErrorHandler:
Exit Sub
End Sub
- এর পরে, আপনি বর্তমান ভিবিএ সম্পাদক উইন্ডো থেকে প্রস্থান করতে এবং দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে বা মেসেজ উইন্ডোটির ফিতাটিতে নতুন ম্যাক্রো যুক্ত করতে এগিয়ে যেতে পারেন।
- পরে আপনাকে আপনার আউটলুক ম্যাক্রো সুরক্ষা স্তরটিকে নিম্নে পরিবর্তন করতে হবে।
- শেষ পর্যন্ত আপনি চেষ্টা করতে পারেন।
- প্রথমত, যথারীতি একটি নতুন আউটলুক ইমেল তৈরি এবং রচনা করুন।
- তারপরে নীচের চিত্রের মতো দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে ম্যাক্রো বোতামটি চাপুন:
- এরপরে আপনাকে একটি উত্স উইন্ডোজ ফোল্ডার নির্বাচন করতে হবে এবং "ওকে" চাপতে হবে।
- নির্বাচিত উইন্ডোজ ফোল্ডারে যদি এমন কোনও ফাইল থাকে তবে আপনি নিম্নলিখিত স্ক্রিনশটের মতো একটি প্রম্পট পাবেন:
- আপনি "হ্যাঁ" চাপলে এই ফাইলটি একবারে সংযুক্ত হবে be
আউটলুক সমস্যা যত তাড়াতাড়ি সম্ভব সমাধান করুন
যখনই আপনি কোনও আউটলুক সমস্যার মুখোমুখি হন, যত তাড়াতাড়ি সম্ভব এগুলি সমাধান করার পরামর্শ দেওয়া হচ্ছে। এই পরিস্থিতিতে, আপনি আরও ভাল একটি দৃ prepare় প্রস্তুত করতে চাই আউটলুক ঠিক করা অগ্রিম সরঞ্জাম, যেমন DataNumen Outlook Repair। এটি পিএসটি ত্রুটিগুলি ঠিক করতে এবং কার্যকরভাবে আপনার আউটলুক ডেটা উদ্ধার করতে সক্ষম।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় দূষিত এমডিএফ এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com