টেমপ্লেট ব্যবহার করে এক্সেলে ডাইনামিক ইমেইল জেনারেটর তৈরি করুন

ইমেইল যোগাযোগের সবচেয়ে শক্তিশালী টুলের একটি। ইমেইল জেনারেশন অটোমেট করলে সময় বাঁচায় এবং যোগাযোগে সামঞ্জস্য নিশ্চিত করে। এক্সেল VBA একটি ডাইনামিক ইমেইল জেনারেটর তৈরি করতে পারে যা আপনাকে টেমপ্লেট থেকে স্বয়ংক্রিয়ভাবে পারসোনালাইজড ইমেইল জেনারেট করতে দেয়।

এই আর্টিকেলে, আমরা এক্সেলে টেমপ্লেট সহ একটি ডাইনামিক ইমেইল জেনারেটর তৈরি করব।

পূর্বশর্ত

• মাইক্রোসফট এক্সেল (২০১৬ বা নতুন)।
• এক্সেলের বেসিক বোঝাপড়া।
• VBA এডিটর অ্যাক্সেস (Developer 탭 ইনেবল্ড)।

স্টেপ ১: আপনার এক্সেল ওয়ার্কবুক সেট আপ করুন

Data শীট তৈরি করুন

• Data নামে একটি নতুন শীট যোগ করুন।
• রেসিপিয়েন্ট ইনফরমেশনের জন্য কলাম তৈরি করুন:
  • First Name
  • Last Name
  • Email
  • Company
  • Department
  • Role
  • Meeting Topic
  • Action Item
  • Sender Name

Template শীট তৈরি করুন

• Template নামে আরেকটি শীট তৈরি করুন।
• নিচের কলামগুলো তৈরি করুন:
  • Template ID
  • Template Name
  • Subject Line
  • Email Body

স্টেপ ২: ইমেইল টেমপ্লেট তৈরি করুন

প্লেসহোল্ডার যেমন {{FirstName}}, {{Company}}, {{Department}}, {{Role}}, ইত্যাদি ব্যবহার করে একটি ইমেইল টেমপ্লেট তৈরি করুন যা ডাইনামিক্যালি মান ইনসার্ট করবে।

টেমপ্লেট ১:

অটোমেটেড অনবোর্ডিং ইমেইলের জন্য একটি টেমপ্লেট তৈরি করি।

Dear {{FirstName}}, Welcome to {{Company}}! We're excited to have you on board. Your account has been set up with the following details: Department: {{Department}} Role: {{Role}} Best regards, HR Team

এই টেমপ্লেট অটোমেটেড অনবোর্ডিং ইমেইলের জন্য ব্যবহৃত হয়, যেখানে প্লেসহোল্ডারগুলো আসল মান দিয়ে রিপ্লেস হওয়ার পর পাঠানো হয়, প্রতিটি রেসিপিয়েন্টের জন্য পারসোনালাইজড মেসেজ নিশ্চিত করে।

ব্যাখ্যা:

• {{FirstName}}: কর্মীর প্রথম নামের জন্য প্লেসহোল্ডার।
• {{Company}}: কোম্পানির নামের জন্য প্লেসহোল্ডার।
• {{Department}}: নতুন কর্মী যেটা বিভাগে নিযুক্ত সেটার জন্য প্লেসহোল্ডার।
• {{Role}}: কর্মীর জব রোলের জন্য প্লেসহোল্ডার।

টেমপ্লেট ২:

পোস্ট-মিটিং যোগাযোগের জন্য আরেকটি টেমপ্লেট তৈরি করেছি।

Hi {{FirstName}}, Thank you for your time during our discussion about {{Meeting Topic}}. As discussed, I'm following up on {{Action Item}}. Let me know if you have any questions. Best regards, {{Sender Name}} 

স্টেপ ৩: VBA কোড ইনসার্ট করুন

VBA এডিটর খোলার জন্য:

• Developer ট্যাবে যান >> Visual Basic সিলেক্ট করুন।
• Insert >> Module সিলেক্ট করুন।
• নিচের কোড কপি এবং পেস্ট করুন:

Option Explicit Public Sub GenerateEmails() Dim ws As Worksheet Dim templateWs As Worksheet Dim lastRow As Long Dim i As Long Dim emailBody As String Dim subjectLine As String Dim templateID As Long ' Set references to worksheets Set ws = ThisWorkbook.Sheets("Data") Set templateWs = ThisWorkbook.Sheets("Templates") ' Find last row with data lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Get template ID from user templateID = InputBox("Enter the Template ID number:", "Select Template") ' Get template text subjectLine = GetTemplate("Subject_Line", templateID) emailBody = GetTemplate("Email_Body", templateID) ' Convert special characters to proper line breaks emailBody = Replace(emailBody, "\n", vbNewLine) ' Create Outlook items Dim outlookApp As Object Dim emailItem As Object Set outlookApp = CreateObject("Outlook.Application") ' Loop through each row of data For i = 2 To lastRow ' Create new email Set emailItem = outlookApp.CreateItem(0) With emailItem ' Replace placeholders with actual data .Subject = ReplaceFields(subjectLine, i, ws) .Body = ReplaceFields(emailBody, i, ws) ' Changed from .HTMLBody to .Body .To = ws.Cells(i, 3).Value ' Email address in column C .Display ' Display email (change to .Send to send automatically) End With Next i Set outlookApp = Nothing End Sub Private Function GetTemplate(field As String, templateID As Long) As String Dim templateWs As Worksheet Dim templateRow As Range Set templateWs = ThisWorkbook.Sheets("Templates") ' Find the template row Set templateRow = templateWs.Columns(1).Find(What:=templateID, LookIn:=xlValues, LookAt:=xlWhole) If Not templateRow Is Nothing Then Select Case field Case "Subject_Line" GetTemplate = templateWs.Cells(templateRow.Row, 3).Value Case "Email_Body" GetTemplate = templateWs.Cells(templateRow.Row, 4).Value End Select End If End Function Private Function ReplaceFields(text As String, rowNum As Long, ws As Worksheet) As String Dim result As String result = text ' Replace all field placeholders with actual data result = Replace(result, "{{FirstName}}", ws.Cells(rowNum, 1).Value) result = Replace(result, "{{LastName}}", ws.Cells(rowNum, 2).Value) result = Replace(result, "{{Company}}", ws.Cells(rowNum, 4).Value) result = Replace(result, "{{Department}}", ws.Cells(rowNum, 5).Value) result = Replace(result, "{{Role}}", ws.Cells(rowNum, 6).Value) result = Replace(result, "{{Meeting Topic}}", ws.Cells(rowNum, 7).Value) result = Replace(result, "{{Action Item}}", ws.Cells(rowNum, 8).Value) result = Replace(result, "{{Sender Name}}", ws.Cells(rowNum, 9).Value) ReplaceFields = result End Function

স্টেপ ৪: ইমেইল জেনারেটর রান করুন

• Developer ট্যাবে যান >> Macros-এ ক্লিক করুন।
• GenerateEmails সিলেক্ট করুন >> Run-এ ক্লিক করুন।

• Message Box-এ >> Template ID: 1 লিখুন।
• টেমপ্লেট ১ অনুযায়ী সব মেইল পাঠাবে।

• আরেকবার কোড Run করুন।
• Message Box-এ >> Template ID: 2 লিখুন।

টেমপ্লেট ২ অনুযায়ী সব মেইল পাঠাবে।

• পাঠানোর আগে জেনারেটেড ইমেইলগুলো রিভিউ করুন।
• রিভিউ দরকার না হলে, .Display-এর বদলে .Send প্রপার্টি ব্যবহার করুন সকল ইমেইল অটোমেটিক্যালি পাঠাতে।

কাস্টমাইজেশন টিপস

নতুন প্লেসহোল্ডার ফিল্ড যোগ করা:

• Data শীতে একটি নতুন কলাম যোগ করুন।
• VBA কোডের ReplaceFields ফাংশন আপডেট করুন নতুন ফিল্ড ইনক্লুড করতে।
• {{FieldName}} ফরম্যাট ব্যবহার করে আপনার ইমেইল টেমপ্লেটে নতুন প্লেসহোল্ডার যোগ করুন।

HTML ফরম্যাটিং:

আপনি আপনার ইমেইল টেমপ্লেটে HTML ফরম্যাটিং অন্তর্ভুক্ত করতে পারেন:

<p style="color: blue;">This text will be blue</p> <strong>This text will be bold</strong>

উপসংহার

এই টিউটোরিয়াল আপনাকে প্রিডিফাইনড টেমপ্লেট এবং VBA অটোমেশন সহ এক্সেলে ডাইনামিক ইমেইল জেনারেশন সেট আপ করতে সাহায্য করবে। আপনি এই টেমপ্লেটগুলো ব্যবসায়িক যোগাযোগ, ক্লায়েন্ট ফলো-আপ, এবং অটোমেটেড রিমাইন্ডারের জন্য ব্যবহার করতে পারেন। এই ইমেইল জেনারেটর একটি ফাউন্ডেশন হিসেবে কাজ করবে, আপনি আপনার নির্দিষ্ট প্রয়োজনীয়তা অনুযায়ী এটিকে কাস্টমাইজ করতে পারেন। শুধু টেমপ্লেট তৈরি করুন, ডেটা শীট আপডেট করুন, এবং VBA কোডে প্লেসহোল্ডার আপডেট করুন। প্রোডাকশন এনভায়রনমেন্টে ব্যবহার করার আগে ভালোভাবে টেস্ট করতে ভুলবেন না।