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

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

এই নিবন্ধে, আমরা Excel-এ টেমপ্লেট সহ একটি গতিশীল ইমেল জেনারেটর তৈরি করব।

পূর্বশর্ত

• Microsoft Excel (2016 বা নতুন)।
• এক্সেলের প্রাথমিক উপলব্ধি।
• VBA সম্পাদকে অ্যাক্সেস (ডেভেলপার ট্যাব সক্ষম)।

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

ডেটা শীট তৈরি করুন

• ডেটা নামে একটি নতুন শীট যোগ করুন।
• আপনার প্রাপকের তথ্যের জন্য কলাম তৈরি করুন:
  • প্রথম নাম
  • শেষ নাম
  • ইমেল
  • কোম্পানি
  • বিভাগ
  • ভুমিকা
  • মিটিং টপিক
  • অ্যাকশন আইটেম
  • প্রেরকের নাম

টেমপ্লেট শীট তৈরি করুন

• টেমপ্লেট নামে আরেকটি শীট তৈরি করুন।
• নিম্নলিখিত কলাম তৈরি করুন:
  • টেমপ্লেট আইডি
  • টেমপ্লেটের নাম
  • বিষয় লাইন
  • ইমেল বডি

ধাপ 2:ইমেল টেমপ্লেট তৈরি করা

একটি ইমেল টেমপ্লেট তৈরি করুন যা গতিশীলভাবে স্থানধারক যেমন {{FirstName}}, {{Company}}, {{Department}}, {{Role}}, ইত্যাদি ব্যবহার করে মান সন্নিবেশিত করে৷

টেমপ্লেট 1:

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

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}}:কর্মচারীর নামের জন্য স্থানধারক৷
• {{কোম্পানী}}:কোম্পানির নামের জন্য স্থানধারক।
• {{Department}}:যে ডিপার্টমেন্টে নতুন কর্মী নিয়োগ করা হয়েছে তার জন্য স্থানধারক।
• {{ভূমিকা}}:কর্মচারীর কাজের ভূমিকার জন্য স্থানধারক৷
৷

টেমপ্লেট 2:

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

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}}

ধাপ 3:VBA কোড প্রবেশ করান

VBA সম্পাদক খুলতে:

• ডেভেলপার-এ যান ট্যাব>> ভিজ্যুয়াল বেসিক নির্বাচন করুন .
• ক্লিক করুন ঢোকান >> মডিউল নির্বাচন করুন .
• নিম্নলিখিত কোড কপি এবং পেস্ট করুন:

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

ধাপ 4:ইমেল জেনারেটর চালান

• ডেভেলপার -এ ট্যাব>> ম্যাক্রো ক্লিক করুন .
• ইমেল তৈরি করুন নির্বাচন করুন>> চালান এ ক্লিক করুন .

• মেসেজ বক্সে>> টেমপ্লেট ID: লিখুন  1 .
• এটি টেমপ্লেট 1 অনুসরণ করে সমস্ত মেল পাঠাবে।

• আবার চালান কোড।
• মেসেজ বক্সে>> টেমপ্লেট আইডি:2 লিখুন .

এটি নিম্নলিখিত টেমপ্লেট 2.

• জেনারেট করা ইমেলগুলি পাঠানোর আগে পর্যালোচনা করুন৷
৷
• পর্যালোচনার প্রয়োজন না হলে, .পাঠান ব্যবহার করুন৷ .Display এর পরিবর্তে সম্পত্তি সমস্ত ইমেল পাঠাতে।

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

নতুন স্থানধারক ক্ষেত্র যোগ করা হচ্ছে:

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

HTML বিন্যাস:

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

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

উপসংহার

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