যখন আপনাকে এক বা একাধিক ইমেইলের সমস্ত হাইপারলিঙ্ক বের করতে হবে, তখন সেগুলো এক এক করে কপি করাটা বোকামি। এই পোস্টে আপনাকে অনেকগুলো ইমেইলের সমস্ত হাইপারলিঙ্ক দ্রুত এক্সেলে এক্সপোর্ট করার একটি পদ্ধতি শেখানো হবে।
কিছু কারণে, যেমন আপনার পাঠানো সমস্ত ইমেলে হাইপারলিঙ্কগুলি লগ করা, আপনাকে হাইপারলিঙ্কগুলি বের করতে হবে৷ কোন সন্দেহ ছাড়াই, এটি ম্যানুয়ালি এক্সট্র্যাক্ট এবং অনুলিপি করা অনুচিত। আপনাকে অবশ্যই অনেক বেশি স্মার্ট পদ্ধতির জন্য আকাঙ্ক্ষা করতে হবে, যেমন VBA ব্যবহার করা। এখানে আমরা আপনাকে VBA কোডের একটি অংশ শেয়ার করব, যা একটি সহজ ক্লিকের মাধ্যমে অনেক ইমেলের সমস্ত হাইপারলিঙ্ক এক্সপোর্ট করতে সক্ষম।
এক্সেলে একাধিক ইমেলে সমস্ত হাইপারলিঙ্ক রপ্তানি করুন
- শুরুতে, স্বাভাবিকভাবে আপনার Outlook প্রোগ্রামটি চালু করুন।
- তারপর, আউটলুক উইন্ডোতে, আপনাকে "Alt + F11" কী বোতামগুলিতে আঘাত করতে হবে।
- একবারে, আপনি Outlook VBA সম্পাদকে অ্যাক্সেস পাবেন।
- এরপরে, আপনাকে “Microsoft Word Object Library” এবং “Microsoft Excel Object Library” সক্রিয় করতে হবে। “Tools” > “References”-এ ক্লিক করুন এবং তারপর পপ-আপ ডায়ালগ বক্সে সেগুলোকে সক্রিয় করুন।
- এর পরে, আপনাকে একটি অব্যবহৃত মডিউল খুলতে হবে, যেখানে আপনাকে এই মডিউলে নীচের VBA কোডটি অনুলিপি করতে হবে।
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Sub ExportAllHyperlinksInMultipleEmailsToExcel()
Dim objSelection As Selection
Dim objMail As MailItem
Dim objMailDocument As Document
Dim objHyperlink As Hyperlink
Dim i As Long
Set objSelection = Outlook.Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing) Then
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Add
Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
objExcelApp.Visible = True
objExcelWorkbook.Activate
With objExcelWorksheet
.Cells(1, 1) = "No."
.Cells(1, 2) = "Displaying Text"
.Cells(1, 3) = "Address"
.Cells(1, 4) = "Source Mail"
End With
On Error Resume Next
i = 0
For Each objMail In objSelection
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
If objMailDocument.Hyperlinks.Count > 0 Then
For Each objHyperlink In objMailDocument.Hyperlinks
If InStr(objHyperlink.Address, "www.") > 0 Then
i = i + 1
Call ExportToExcel(i, objMail, objHyperlink)
End If
Next
End If
objMail.Close olDiscard
Next
objExcelWorksheet.Columns("A:D").AutoFit
End If
End Sub
Sub ExportToExcel(n As Long, objCurrentMail As MailItem, objCurrentHyperlink As Hyperlink)
Dim nLastRow As Integer
nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
objExcelWorksheet.Range("A" & nLastRow) = n
objExcelWorksheet.Range("B" & nLastRow) = objCurrentHyperlink.TextToDisplay
objExcelWorksheet.Range("C" & nLastRow) = objCurrentHyperlink.Address
objExcelWorksheet.Range("D" & nLastRow) = objCurrentMail.Subject
End Sub
- এর পরে, আপনি বর্তমান VBA সম্পাদক উইন্ডো থেকে প্রস্থান করতে পারেন।
- দ্রুত অ্যাক্সেস টুলবারে নতুন যোগ করা ম্যাক্রো যোগ করতে দ্রুত অ্যাক্সেস টুলবার কাস্টমাইজ করতে পরে "আউটলুক বিকল্প" অ্যাক্সেস করুন।
- শেষ পর্যন্ত আপনি একটি শট নিতে পারেন:
- প্রথমে, ইমেল তালিকায়, আপনি যে হাইপারলিঙ্কগুলি বের করতে চান সেই ইমেলগুলি নির্বাচন করুন৷
- তারপরে, কুইক অ্যাক্সেস সরঞ্জামদণ্ডে ম্যাক্রো বোতামটি ক্লিক করুন।
- ম্যাক্রো শেষ হলে, আপনি নীচের ছবির মত একটি এক্সেল ফাইল পাবেন:
অপ্রত্যাশিত আউটলুক সমস্যাগুলি ঠিক করুন
কোনো পূর্বলক্ষণ ছাড়াই সময়ে সময়ে আউটলুকে সমস্যা দেখা দিতে পারে। কিন্তু, ছোটখাটো ত্রুটির ক্ষেত্রে, একটি সাধারণ রিস্টার্টের মাধ্যমেই আউটলুক ঠিক হয়ে যেতে পারে। ইনবক্স মেরামতের সরঞ্জাম. তবে কিছু গুরুতর সমস্যার সম্মুখীন হলে, অভ্যন্তরীণ উপায়গুলি প্রভাব ফেলবে না। এই মুহুর্তে, আপনার শেষ অবলম্বন অবশ্যই একটি আরো সম্মানজনক এবং শক্তিশালী টুল, যেমন DataNumen Outlook Repair.
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় দূষিত এমডিএফ এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com