কিছু ব্যবহারকারী তাদের আউটলুকে মুদ্রিত ইমেলের লগগুলি স্বয়ংক্রিয়ভাবে সংরক্ষণ করার আশাবাদী। তবে এমন সরাসরি কোনও বৈশিষ্ট্য উপলব্ধ নেই। সুতরাং, এই নিবন্ধে, আমরা একটি নির্দিষ্ট এক্সেল ওয়ার্কবুকে প্রতিটি মুদ্রিত ইমেল স্বয়ংক্রিয়ভাবে লগ করার একটি উপায় প্রবর্তন করব।
কিছু কারণে, আপনি ইমেল প্রিন্ট করার সময় আপনার তথ্য রেকর্ড করতে হতে পারে। স্পষ্টতই, আউটলুক এটিকে সমর্থন করে কোনও স্থানীয় বৈশিষ্ট্য সরবরাহ করে না। সুতরাং, সাধারণভাবে, আপনাকে ম্যানুয়ালি এই কাজটি সম্পাদন করতে হবে। তবুও, ভিবিএ কোডের সাহায্যে, আপনি এখনও আপনার আউটলুককে সহজেই এই মিশনটি গ্রহণ করতে দিতে পারেন। এখন, এখানে আমরা ভিবিএ কোডের এই জাতীয় অংশ এবং আপনাকে বিশদ পদক্ষেপগুলি উন্মোচন করব।
এক্সেল ওয়ার্কবুকে প্রতিটি মুদ্রিত ইমেল অটো লগ করুন
- সেই জন্যtart, আউটলুক অ্যাপ্লিকেশন চালু করুন।
- তারপরে, "বিকাশকারী" ট্যাবে "ভিজ্যুয়াল বেসিক" বোতামটি ক্লিক করে ভিবিএ সম্পাদক অ্যাক্সেস করুন।
- এরপরে, নিম্নলিখিত ভিবিএ কোডটিকে একটি অব্যবহৃত মডিউলে রাখুন।
Sub RecordPrintedEmails()
Dim objMail As Outlook.MailItem
Dim objExcelApp As Excel.Application
Dim strExcelFile As String
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim nNextEmptyRow As Integer
'Get the mail
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set objMail = ActiveInspector.CurrentItem
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
End Select
objMail.PrintOut
On Error Resume Next
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
'Change the path to the specific excel file
strExcelFile = "E:\Emails\Printed Emails.xlsx"
Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
objExcelWorksheet.Activate
nNextEmptyRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
'Change the details as per your own case
With objExcelWorksheet
.Cells(nNextEmptyRow, 1) = Date
.Cells(nNextEmptyRow, 2) = objMail.Subject
.Cells(nNextEmptyRow, 3) = objMail.Sender
.Cells(nNextEmptyRow, 4) = objMail.SentOn
.Cells(nNextEmptyRow, 5) = objMail.Size
.Cells(nNextEmptyRow, 6) = objMail.Attachments.Count
.Columns("A:E").AutoFit
End With
objExcelWorkbook.Close True
objExcelApp.Quit
End Sub
- এর পরে, ভিবিএ সম্পাদক থেকে প্রস্থান করুন।
- পরবর্তীকালে, পি তে "alচ্ছিক পদক্ষেপ" অনুসারেost "আপনার আউটলুকে কীভাবে ভিবিএ কোড চালাবেন“, এই ম্যাক্রোটি ফিতা বা দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে যুক্ত করুন।
- সেই থেকে প্রতিবার আপনি যখন কোনও ইমেল মুদ্রণ করতে চান তখন স্ট্যান্ডার্ড "প্রিন্ট" এর পরিবর্তে সদ্য যুক্ত ম্যাক্রো বোতামটি ব্যবহার করতে ভুলবেন না।
- এইভাবে, আউটলুক পূর্বনির্ধারিত এক্সেল ওয়ার্কশিটে মুদ্রিত মেলটি স্বয়ংক্রিয়ভাবে লগ করবে।
আউটলুক ফাইল অ্যাক্সেসযোগ্য রাখুন
কখনও কখনও, আউটলুক ক্র্যাশ হওয়ার পরে, আপনি পিএসটি ফাইলটি অ্যাক্সেসযোগ্য বলে প্রেরণে ত্রুটিটি পেতে পারেন। সেই সময়ে, আপনার শান্ত হওয়া উচিত এবং তারপরে ইনবক্স মেরামতের সরঞ্জামটি ব্যবহার করা উচিত আউটলুক ঠিক করুন। তবে ইনবিল্ট ইউটিলিটি বহুমুখী নয়। এটি ব্যর্থও হতে পারে। অতএব, স্ক্যানস্টেস্ট মেরামতির পরে যদি আপনার পিএসটি ফাইলটি এখনও অনুপলব্ধ থাকে তবে আপনার শেষ অবলম্বন আরও কার্যকর এবং নির্ভরযোগ্য বাহ্যিক সরঞ্জাম, যেমন DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এমডিএফ পুনরুদ্ধার এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com