আপনি যদি এক্সেল ফাইলের পরিচিতিগুলির তালিকা থেকে একটি Outlook পরিচিতি গোষ্ঠী তৈরি করতে চান তবে আপনি এই নিবন্ধে প্রবর্তিত 2টি পদ্ধতি ব্যবহার করতে পারেন।
কিছু ব্যবহারকারী একটি এক্সেল ফাইল থেকে দ্রুত একটি আউটলুক যোগাযোগ গোষ্ঠী তৈরি করার উপায় খুঁজছেন যাতে পরিচিতির একটি তালিকা রয়েছে৷ অবশ্যই, আপনি ম্যানুয়ালি এই ধরনের যোগাযোগ গ্রুপ তৈরি করতে পারেন। তবে এটা একটু ঝামেলার। তাই, ম্যানুয়াল উপায় ছাড়াও, এখানে আমরা ভিবিএ ব্যবহার করে আরেকটি দ্রুত পদ্ধতির সাথে পরিচয় করিয়ে দেব।
পদ্ধতি 1: ম্যানুয়ালি তৈরি করুন
- একেবারে গোড়ার দিকে এক্সেল ফাইলটি খুলুন।
- তারপর ইমেল ঠিকানা ধারণকারী কলাম নির্বাচন করুন. ঐচ্ছিকভাবে, আপনি নামের জন্য কলামগুলিও অন্তর্ভুক্ত করতে পারেন।
- পরবর্তী সমস্ত নির্বাচিত ঘরে "Ctrl + C" টিপুন।
- এরপরে আপনার Outlook প্রোগ্রামটি চালু করুন।
- তারপরে পরিচিতি ফলকে স্যুইচ করুন এবং "নতুন পরিচিতি গোষ্ঠী" বোতামটি চাপুন৷
- পরবর্তীকালে, "সদস্য যোগ করুন" -> "আউটলুক পরিচিতি থেকে" ক্লিক করুন
- পরে "সদস্য ->" ক্ষেত্রে ক্লিক করুন এবং পূর্বে অনুলিপি করা পরিচিতিগুলি পেস্ট করতে "Ctrl + V" কী টিপুন৷
- "ঠিক আছে" বোতাম টিপুন।
- তারপর নতুন যোগাযোগ গোষ্ঠীর জন্য একটি নাম বরাদ্দ করুন।
- এই গ্রুপটি সংরক্ষণ করতে শেষ পর্যন্ত "সংরক্ষণ করুন এবং বন্ধ করুন" এ ক্লিক করুন।
পদ্ধতি 2: Outlook VBA এর মাধ্যমে তৈরি করুন
- প্রথম স্থানে, আউটলুকের "Alt + F11" কী বোতাম টিপুন।
- তারপর একটি নতুন মডিউল খুলুন।
- পরবর্তীকালে, নিচের কোডগুলো কপি করে তাতে পেস্ট করুন।
Sub CreateContactGroupfromExcel()
Dim objContactsFolder As Outlook.Folder
Dim objContact As Outlook.ContactItem
Dim objContactGroup As Outlook.DistListItem
Dim objExcelApp As New Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim nLastRow As Integer
Dim nCurrentRow As Integer
Dim objNameCell As Excel.Range
Dim objEmailCell As Excel.Range
Dim strName As String
Dim strEmail As String
Dim objTempMail As Outlook.MailItem
Dim objRecipients As Outlook.Recipients
Set objContactsFolder = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
Set objContactGroup = Outlook.Application.CreateItem(olDistributionListItem)
'You can change the contact group name
objContactGroup.DLName = "Group Name"
Set objExcelApp = CreateObject("Excel.Application")
'You should change the path to your own Excel file
Set objExcelWorkbook = objExcelApp.Workbooks.Open("E:\Contacts.xlsx")
Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
objExcelWorksheet.Activate
nLastRow = objExcelWorksheet.UsedRange.Rows.Count
'The "A2" varies with the first contact's name cell in your own Excel file
Set objNameCell = objExcelApp.Range("A2")
objNameCell.Select
While nCurrentRow <= nLastRow
nCurrentRow = objNameCell.Row
strName = objNameCell.Value
If strName = "" Then
GoTo NextRow
End If
Set objEmailCell = objExcelApp.ActiveCell.Offset(0, 1)
strEmail = objEmailCell.Value
Set objContact = objContactsFolder.Items.Find("[FullName] = '" & strName & "'")
'If there is no such a contact, create it.
If objContact Is Nothing Then
Set objContact = Outlook.Application.CreateItem(olContactItem)
With objContact
.FullName = strName
.Email1Address = strEmail
.Save
End With
End If
'Add the contacts to the new contact group
Set objTempMail = Application.CreateItem(olMailItem)
objTempMail.Recipients.Add (strName)
Set objRecipients = objTempMail.Recipients
objContactGroup.AddMembers objRecipients
NextRow:
Set objNameCell = objExcelApp.ActiveCell.Offset(1, 0)
objNameCell.Select
Wend
'Use "objContactGroup.Save" to straightly save it
objContactGroup.Display
objTempMail.Close olDiscard
objExcelApp.Quit
End Sub
- এর পরে, টুলবারে "রান" আইকনে আঘাত করুন।
- একবারে, নিম্নলিখিত স্ক্রিনশটের মতো একটি নতুন পরিচিতি গোষ্ঠী প্রদর্শিত হবে:
ভেক্সিং আউটলুক সমস্যাগুলি দক্ষতার সাথে পরিচালনা করুন
আপনি যদি প্রায়শই আউটলুকে বিভিন্ন ত্রুটির সম্মুখীন হন, তবে এটি একটি অগ্রণী এবং নির্ভরযোগ্য রাখার পরামর্শ দেওয়া হয় আউটলুক পুনরুদ্ধার আশেপাশে সরঞ্জাম, পছন্দ DataNumen Outlook Repair. এই ক্ষেত্রে, আপনি সময়মতো এটির মাধ্যমে বিরক্তিকর সমস্যাগুলি মোকাবেলা করতে এটি ব্যবহার করতে পারেন।
লেখকের ভূমিকা:
শিরলে জাং একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় পুনরুদ্ধার এসকিএল এবং আউটলুক মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com