মেইল মার্জ ব্যবহার করে আমরা ডকুমেন্টের একটি সংগ্রহ তৈরি করতে পারি যা প্রতিটি প্রাপককে পৃথকভাবে পাওয়া যায়। আপনি যদি এক্সেল থেকে আউटलকে আট্যাচমেন্টসহ মেইল মার্জ করার বিশেষ ট্রিক খুঁজছেন, তবে আপনি সঠিক জায়গায় এসেছেন। এক্সেল থেকে আউटलকে আট্যাচমেন্টসহ মেইল মার্জ করার অনেক পদ্ধতি রয়েছে। এই আর্টিকেলে দুটি উপযুক্ত উদাহরণ আলোচনা করা হবে। সম্পূর্ণ গাইড অনুসরণ করে সব শিখুন।
আট্যাচমেন্টসহ এক্সেল থেকে আউटलকে মেইল মার্জের ২টি উপযুক্ত উদাহরণ
আমরা এক্সেল থেকে আউटलকে আট্যাচমেন্টসহ মেইল מר্জের জন্য দুটি কার্যকর এবং ট্রিকি পদ্ধতি ব্যবহার করব। এই বিভাগে দুটি পদ্ধতির বিস্তারিত বিবরণ দেওয়া আছে। আপনি আপনার উদ্দেশ্যে যেকোনো একটি ব্যবহার করতে পারেন, কাস্টমাইজেশনের ক্ষেত্রে এগুলো অনেক লچিলা। আপনার চিন্তা ক্ষমতা ও এক্সেল জ্ঞান বাড়াতে সকল পদ্ধতি শিখুন এবং প্রয়োগ করুন। এখানে Microsoft Office 365 ভার্সন ব্যবহার করা হয়েছে, তবে আপনি পছন্দমত অন্য ভার্সনও ব্যবহার করতে পারেন।
১. এক্সেল থেকে আউटलকে একক আট্যাচমেন্টসহ মেইল মার্জ
এখানে আমরা দেখাব কীভাবে এক্সেল থেকে আউटलকে একক আট্যাচমেন্টসহ মেইল মার্জ করা যায়। প্রথমে আমাদের এক্সেল ডেটাসেট পরিচয় করিয়ে দেই যাতে আপনি বুঝতে পারেন এই আর্টিকেলে আমরা কী সম্পন্ন করতে চাচ্ছি। আমাদের ডেটাসেটে একজন ব্যক্তির নাম, ইমেইল আইডি এবং ব্যক্তির প্রয়োজনীয় ফাইল রয়েছে।
ভিজ্যুয়াল বেসিক ফর অ্যাপ্লিকেশনস (VBA) ব্যবহার করে এক্সেল থেকে আউटलকে একক আট্যাচমেন্টসহ মেইল মার্জ করা যায়। এর জন্য আপনার রিবনে Developer ট্যাব প্রদর্শিত হতে হবে। এরপর নিচের ধাপগুলো অনুসরণ করুন।
📌 ধাপসমূহ:
- প্রথমে রিবন থেকে Developer ট্যাবে যান।
- তারপর Code গ্রুপ থেকে Visual Basic সিলেক্ট করুন।
- বা, Alt+F11 চাপিয়ে VBA এডিটর খুলুন।
- VBA উইন্ডোতে Insert এ গিয়ে Module সিলেক্ট করুন।
- এরপর নিচের কোডটি টাইপ করুন।
Sub Single_attachment() Dim appOutlook As Object Dim Email As Object Dim source, mailto As String Set appOutlook = CreateObject("Outlook.Application") Set Email = appOutlook.CreateItem(olMailItem) mailto = mailto & Cells(2, 2) & ";" source = "F:\SOFTEKO\61-0055\New folder\" & Cells(2, 3) Email.attachments.Add source ThisWorkbook.Save source = ThisWorkbook.FullName Email.attachments.Add source Email.To = mailto Email.Subject = "Important Sheets" Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards." Email.Display End Sub- এরপর ভিজ্যুয়াল বেসিক উইন্ডো বন্ধ করে Alt+F8 চাপুন।
- যখন Macro ডায়লগ বক্স খুলবে, Macro name-এ Single_attachment সিলেক্ট করে Run ক্লিক করুন।
- ফলস্বরূপ, একটি আউटलুক উইন্ডো দেখাবে এবং আপনি ইচ্ছিত ফাইল আট্যাচমেন্ট দেখতে পাবেন।
🔎 VBA কোড ব্যাখ্যা
Sub Single_attachment()প্রথমে ম্যাক্রোর সাব-প্রোসিডিউরের জন্য একটি নাম দিন।
Dim appOutlook As Object Dim Email As Object Dim source, mailto As Stringপরবর্তী, ম্যাক্রোর জন্য প্রয়োজনীয় ভেরিয়েবল ঘোষণা করুন।
Set appOutlook = CreateObject("Outlook.Application") Set Email = appOutlook.CreateItem(olMailItem)এখানে Set কিওয়ার্ড দিয়ে appOutlook এবং Email নামে নতুন অবজেক্ট তৈরি করা হয়েছে।
mailto = mailto & Cells(2, 2) & ";"এই ভেরিয়েবলে ইমেইল পাঠানো ব্যক্তির তথ্য থাকবে।
source = "F:\SOFTEKO\61-0055\New folder\" & Cells(2, 3)এই ভেরিয়েবলে নির্দিষ্ট ফোল্ডার থেকে ব্যক্তির ইমেইল আইডি থাকবে।
ThisWorkbook.Saveএই কমান্ড ওয়ার্কবুকটি সংরক্ষণ করবে।
source = ThisWorkbook.FullNameএই ভেরিয়েবলে বর্তমান ওয়ার্কবুকের নাম থাকবে।
Email.attachments.Add sourceএই Add মেথড সোর্সকে একটি কালেকশন অবজেক্টে যোগ করবে।
Email.To = mailto Email.Subject = "Important Sheets" Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."এই ভেরিয়েবলগুলো ইমেইলের বিষয় "Important Sheets" এবং বডি "Greetings Everyone, Please go through the sheets, regards" সেট করবে।
Email.Displayএই Display মেথড ইমেইল প্রদর্শন করবে।
End Subশেষে ম্যাক্রোর সাব-প্রোসিডিউর সমাপ্ত করুন।
নোট:
এক্সেল ফাইল এবং ডক্স ফাইল একই ফোল্ডারে সংরক্ষণ করতে হবে। অন্যথায় এই পদ্ধতি কাজ করবে না।
আরও পড়ুন: ওয়ার্ড ছাড়া এক্সেলে মেইল মার্জ (২ উপযুক্ত পদ্ধতি)
২. এক্সেল থেকে আউटलকে একাধিক আট্যাচমেন্টসহ মেইল মার্জ
এখানে আমরা দেখাব কীভাবে এক্সেল থেকে আউटलকে একাধিক আট্যাচমেন্টসহ মেইল মার্জ করা যায়। প্রথমে আমাদের ডেটাসেট পরিচয় করিয়ে দেই। আমাদের ডেটাসেটে কিছু লোকের নাম, ইমেইল আইডি এবং তাদের প্রয়োজনীয় ফাইল রয়েছে।
ভিজ্যুয়াল বেসিক ফর অ্যাপ্লিকেশনস (VBA) ব্যবহার করে এক্সেল থেকে আউटलকে একাধিক আট্যাচমেন্টসহ মেইল মার্জ করা যায়। এর জন্য আপনার রিবনে Developer ট্যাব প্রদর্শিত হতে হবে। এরপর নিচের ধাপগুলো অনুসরণ করুন।
📌 ধাপসমূহ:
- প্রথমে রিবন থেকে Developer ট্যাবে যান।
- তারপর Code গ্রুপ থেকে Visual Basic সিলেক্ট করুন।
- বা, Alt+F11 চাপিয়ে VBA এডিটর খুলুন।
- VBA উইন্ডোতে Insert এ গিয়ে Module সিলেক্ট করুন।
- এরপর নিচের কোডটি টাইপ করুন।
Sub attachments() Dim appOutlook As Object Dim Email As Object Dim source, mailto As String Dim i, j As Integer Set appOutlook = CreateObject("Outlook.Application") Set Email = appOutlook.CreateItem(olMailItem) For i = 2 To 5 mailto = mailto & Cells(i, 2) & ";" Next i For j = 2 To 5 source = "F:\SOFTEKO\61-0055\New folder\" & Cells(j, 3) Email.attachments.Add source Next ThisWorkbook.Save source = ThisWorkbook.FullName Email.attachments.Add source Email.To = mailto Email.Subject = "Important Sheets" Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards." Email.Display End Sub- এরপর ভিজ্যুয়াল বেসিক উইন্ডো বন্ধ করে Alt+F8 চাপুন।
- যখন Macro ডায়লগ বক্স খুলবে, Macro name-এ attachments সিলেক্ট করে Run ক্লিক করুন।
- ফলস্বরূপ, একটি আউटलুক উইন্ডো দেখাবে এবং আপনি ইচ্ছিত ফাইল আট্যাচমেন্ট দেখতে পাবেন।
🔎 VBA কোড ব্যাখ্যা
Sub attachments()প্রথমে ম্যাক্রোর সাব-প্রোসিডিউরের জন্য একটি নাম দিন।
Dim appOutlook As Object Dim Email As Object Dim source, mailto As String Dim i, j As Integerপরবর্তী, ম্যাক্রোর জন্য প্রয়োজনীয় ভেরিয়েবল ঘোষণা করুন।
Set appOutlook = CreateObject("Outlook.Application") Set Email = appOutlook.CreateItem(olMailItem)এখানে Set কিওয়ার্ড দিয়ে appOutlook এবং Email নামে নতুন অবজেক্ট তৈরি করা হয়েছে।
For i = 2 To 5 mailto = mailto & Cells(i, 2) & ";" Next i For j = 2 To 5 source = "F:\SOFTEKO\61-0055\New folder\" & Cells(j, 3)এরপর ফর লুপ শুরু হয়। mailto ভেরিয়েবলে ইমেইল পাঠানো ব্যক্তিদের তথ্য থাকবে। source ভেরিয়েবলে নির্দিষ্ট ফোল্ডার থেকে ব্যক্তিদের ইমেইল আইডি থাকবে।
Nextতারপর ফর লুপের প্রতিটি ইটেরেশন এক্সিকিউট করুন।
ThisWorkbook.Saveএই সেভ কমান্ড ওয়ার্কবুক সংরক্ষণ করবে।
source = ThisWorkbook.FullNameএই ভেরিয়েবলে বর্তমান ওয়ার্কবুকের নাম থাকবে।
Email.attachments.Add sourceএই Add মেথড সোর্সকে একটি কালেকশন অবজেক্টে যোগ করবে।
Email.To = mailto Email.Subject = "Important Sheets" Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."এই ভেরিয়েবলগুলো ইমেইলের বিষয় "Important sheets" এবং বডি "Greetings Everyone, Please go through the sheets, regards" সেট করবে।
Email.Displayএই Display মেথড ইমেইল প্রদর্শন করবে।
End Subশেষে ম্যাক্রোর সাব-প্রোসিডিউর সমাপ্ত করুন।
নোট:
এক্সেল ফাইল এবং ডক্স ফাইলগুলো একই ফোল্ডারে সংরক্ষণ করতে হবে। অন্যথায় এই পদ্ধতি কাজ করবে না।
আরও পড়ুন: এক্সেল থেকে মেইল মার্জ ডকুমেন্ট পূরণের জন্য ম্যাক্রো
উপসংহার
আজকের সেশন এখানেই সমাপ্ত। আমার दृঢ় বিশ্বাস, এখন থেকে আপনি এক্সেল থেকে আউटलকে আট্যাচমেন্টসহ মেইল মার্জ করতে পারবেন। আপনার কোনো প্রশ্ন বা সুপারিশ থাকলে নিচে কমেন্ট সেকশনে শেয়ার করুন।
আমাদের ওয়েবসাইট Exceldemy.com ভিজিট করুন এক্সেল सम्बन्धী বিভিন্ন সমস্যা ও সমাধানের জন্য। নতুন পদ্ধতি শিখতে থাকুন এবং बढ़তে থাকুন!
সম্পর্কিত আর্টিকেল
- এক্সেল ফাইলকে মেইলিং লেবেলে মার্জ করা (সহজ ধাপে)
- এক্সেল থেকে ওয়ার্ডে ছবি মেইল মার্জ (২ সহজ উপায়)
- এক্সেল থেকে ওয়ার্ড খামে মেইল মার্জ (২ সহজ পদ্ধতি)
- এক্সেল মেইল মার্জে তারিখ ফরম্যাট পরিবর্তন (দ্রুত ধাপে)
