যদি আপনি আউটলুক নির্দিষ্ট আগত ইমেলগুলি থেকে এম্বেড করা চিত্রগুলিকে স্বয়ংক্রিয় আহরণ করতে এবং সংরক্ষণ করতে চান তবে আপনি এই নিবন্ধটি উল্লেখ করতে পারেন। এখানে আমরা আপনাকে ভিবিএ কোড দিয়ে কীভাবে তা উপলব্ধি করতে শিখাব।
কিছু ব্যবহারকারীর প্রায়শই নির্দিষ্ট আগত ইমেলগুলি থেকে এমবেড করা চিত্রগুলি বের করতে হয় এবং একটি নির্দিষ্ট উইন্ডো ফোল্ডারে সেভ করতে হয়। ম্যানুয়ালি করতে এটি এতটা ঝামেলা হয় যে প্রতিবার। অতএব, অনেকে আউটলুক স্বয়ংক্রিয়ভাবে এটি সম্পাদন করতে একটি দ্রুত এবং সুবিধাজনক পদ্ধতির শেখার প্রত্যাশায় রয়েছেন। এখন, এখানে আমরা আপনার সাথে এই জাতীয় পদ্ধতি ভাগ করব।
নির্দিষ্ট আগত ইমেলগুলি থেকে এম্বেড করা চিত্রগুলিকে অটো এক্সট্র্যাক্ট করুন
- প্রথমত, আপনার আউটলুক প্রোগ্রামটি যথারীতি চালু করুন।
- তারপরে, আউটলুক ভিবিএ সম্পাদককে যথারীতি রেফারেন্স টি দিয়ে ট্রিগার করুন “আপনার আউটলুকে কীভাবে ভিবিএ কোড চালাবেন"।
- পরে, নীচের ভিবিএ কোডটিকে "এটিআউটলোকসেশন" প্রকল্পে অনুলিপি করুন এবং আটকান।
Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set objInboxItems = objInbox.Items
End Sub
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.Attachments
Dim objAttachment As Outlook.Attachment
Dim strWindowsFolder As String
Dim i As Long
If TypeOf Item Is MailItem Then
Set objMail = Item
'Specify the emails as per your needs
If objMail.Importance = olImportanceHigh Then
Set objAttachments = objMail.Attachments
'Specify the windows folder
strWindowsFolder = "E:\" & objMail.Subject & Format(Now, "yymmddhhmmss")
MkDir (strWindowsFolder)
'Save all embedded images to the folder
For i = 1 To objAttachments.Count
Set objAttachment = objAttachments.Item(i)
If IsEmbedded(objAttachment) = True Then
objAttachment.SaveAsFile strWindowsFolder & "\" & objAttachment.FileName
End If
Next
End If
End If
End Sub
Function IsEmbedded(objCurAttachment As Outlook.Attachment) As Boolean
Dim objPropertyAccessor As Outlook.PropertyAccessor
Dim strProperty As String
Set objPropertyAccessor = objCurAttachment.PropertyAccessor
strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
If InStr(1, strProperty, "@") > 0 Then
IsEmbedded = True
Else
IsEmbedded = False
End If
End Function
- এরপরে, “Application_Startup” সাবরুটিনে ক্লিক করুন।
- অবশেষে, এই ম্যাক্রোটিকে ট্রিগার করতে "F5" কী টিপুন।
- এখন থেকে প্রতিবারই যখন নির্দিষ্ট নতুন ইমেলটি ইনবক্সে আসবে তখন এম্বেড করা চিত্রগুলি নিম্নলিখিত উইন্ডোজ ফোল্ডারে সংরক্ষিত হবে, যেমন নীচের স্ক্রিনশটে দেখানো হয়েছে।
নিয়মিতভাবে বড় সংযুক্তিগুলি পরিষ্কার করুন
নিয়মিতভাবে আপনার আউটলুক থেকে বড় আকারের অ্যাটাচমেন্টগুলো পরিষ্কার করে ফেলা বাঞ্ছনীয়। এর উদ্দেশ্য হলো আপনার আউটলুক ফাইলটিকে উপযুক্ত আকারে রাখা। বড় আকারের আউটলুক ফাইল করাপ্ট হওয়ার ঝুঁকি বেশি থাকে। আপনি যেমন জানেন, PST ফাইলের ক্ষতি ভালোভাবে সামাল দেওয়া বেশ কঠিন। হয়তো আপনি প্রথমে ইনবক্স রিপেয়ার টুলের মাধ্যমে এটি ঠিক করার চেষ্টা করবেন। তবে, বেশিরভাগ ক্ষেত্রেই এটি কাজ করে না। এক্ষেত্রে আপনার একমাত্র উপায় হলো একটি বিশেষায়িত সমাধান। পিএসটি মেরামত সরঞ্জাম, মত DataNumen Outlook Repair, বা প্রাসঙ্গিক পেশাদার পুনরুদ্ধার পরিষেবা।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এমডিএফ ঠিক করা এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com