এক্সেলে শর্ত পূরণ হলে কীভাবে ইমেল পাঠাবেন (3টি সহজ পদ্ধতি)

প্রায়শই, আমাদের ইমেল পাঠাতে হয় আমাদের গ্রাহকদের কাছে যখন একটি শর্ত পূর্ণ হয় এই নিবন্ধটি আপনাকে দেখাবে 3 পাঠাতে পদ্ধতি একটি ইমেল যদি শর্তগুলি সাক্ষাত হয় এক্সেল-এ . আমাদের পদ্ধতিগুলি প্রদর্শন করতে, আমরা 3টি কলাম সহ একটি ডেটাসেট নির্বাচন করেছি৷ :“নাম ”, “ইমেল ”, এবং “পেমেন্ট কার্যকর ”।

Excel এ শর্ত পূরণ হলে ইমেল পাঠানোর ৩ উপায়

1. এক্সেলে সেলের মান পরিবর্তন হলে ইমেল পাঠাতে VBA ব্যবহার করে

প্রথম পদ্ধতির জন্য, আমরা একটি Excel প্রয়োগ করব VBA পাঠাতে কোড একটি ইমেল যখন একটি শর্ত সাক্ষাত হয় . প্রথমত, আমরা VBA মডিউল আনব উইন্ডো, এবং তারপরে আমরা আমাদের কোড টাইপ করব এবং এটিকে ইমেল পাঠাতে কার্যকর করব . অধিকন্তু, এই ক্ষেত্রে, আমাদের কোড কার্যকর করার মানদণ্ড হবে যখন একটি সেল মান পরিবর্তন হয়৷

পদক্ষেপ:

• প্রথমে, ডান-ক্লিক করুন “সেলের মান পরিবর্তন-এ "শীট৷
৷
• দ্বিতীয়ভাবে, কোড দেখুন নির্বাচন করুন .

• তৃতীয়ত, এই কোডটি টাইপ করুন।

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("D5"), Target) Is Nothing Then
        If IsNumeric(Target.Value) And Target.Value > 700 Then
            Call Send_Email_Condition_Cell_Value_Change
        End If
    End If
End Sub

VBA কোড ব্রেকডাউন৷

এখানে, আমরা একটি ব্যক্তিগত সাব ব্যবহার করব . কারণ আমরা ম্যাক্রো এর মাধ্যমে এই কোডটি কার্যকর করব না জানলা. যখন একটি সেল থাকবে তখন এই কোডটি নিজেই চলবে৷ মান পরিবর্তন।

• প্রথমত, আমরা ব্যক্তিগত সাব ব্যবহার করছি যেখানে ইভেন্টটি ওয়ার্কশীট_পরিবর্তন .
• দ্বিতীয়ত, আমরা কোষের সংখ্যা সীমিত করছি 1 থেকে এবং সেই সেল হল D5৷ .
• তৃতীয়ত, আমরা তা 700-এর বেশি কিনা তা পরীক্ষা করছি .
• অবশেষে, যদি শর্ত তারপর সাব প্রসিডিউর পূরণ করা হয় Send_Email_Condition_Cell_Value_Change চালানো হবে।

• অবশেষে, সংরক্ষণ করুন এবং এই উইন্ডোটি বন্ধ করুন।

এখন, আমরা মডিউলে কোড টাইপ করব জানলা. VBA মডিউল আনতে , এইগুলি অনুসরণ করুন –

• প্রথমত, ডেভেলপার থেকে ট্যাব>>> ভিজ্যুয়াল বেসিক নির্বাচন করুন .

বিকল্পভাবে, আপনি ALT + F11 টিপতে পারেন VBA প্রদর্শন করতে উইন্ডো।

• দ্বিতীয়ভাবে, ঢোকান থেকে>>> মডিউল নির্বাচন করুন .

এই উইন্ডোতে, আমরা আমাদের কোড টাইপ করব।

• নিম্নলিখিত কোড টাইপ করুন।

Sub Send_Email_Condition_Cell_Value_Change()
    Dim pApp As Object
    Dim pMail As Object
    Dim pBody As String
    Set pApp = CreateObject("Outlook.Application")
    Set pMail = pApp.CreateItem(0)
    pBody = "Hello, " & Range("B5").Value & vbNewLine & _
              "You've Payment Due." & vbNewLine & _
              "Please Pay it to avoid extra fees."
    On Error Resume Next
    With pMail
        .To = Range("C5").Value
        .CC = ""
        .BCC = ""
        .Subject = "Request For Payment"
        .Body = pBody
        .Display  'We can use .Send to Send the Email
    End With
    On Error GoTo 0
    Set pMail = Nothing
    Set pApp = Nothing
End Sub

VBA কোড ব্রেকডাউন৷

• প্রথমত, আমরা আমাদের সাব প্রসিডিউরকে কল করছি Send_Email_Condition_Cell_Value_Change .
• দ্বিতীয়ত, আমরা ভেরিয়েবল ঘোষণা করছি প্রকার।
• তৃতীয়ত, আমরা আউটলুক নির্বাচন করছি আমাদের মেল অ্যাপ্লিকেশন হিসাবে .
• তারপর, ইমেল বিষয়বস্তু আমাদের কোডে সেট করা আছে।
• এর পর, “.ডিসপ্লে ” এখানে আমাদের ইমেল প্রদর্শন করতে ব্যবহার করা হয়েছে . তাই, আমাদের পাঠান টিপতে হবে ম্যানুয়ালি পাঠাতে ইমেলগুলি . তাছাড়া, আমরা “.Send ব্যবহার করতে পারি ইমেল পাঠাতে প্রদর্শন ছাড়াই।

• তার পরে, সংরক্ষণ করুন এবং মডিউল বন্ধ করুন .

এখন, আমাদের ডেটাসেটে, আমরা 699 টাইপ করতে পারি , এবং কিছুই হবে না।

যাইহোক, যদি আমরা 801 টাইপ করি (700 এর বেশি ), তাহলে আমাদের কোড কার্যকর হবে।

আউটলুক ইমেল সেন্ডিং অপশন দেখানো হবে। আমরা পাঠান টিপতে পারি পাঠাতে ইমেল ঠিকানা।

আরো পড়ুন: কিভাবে এক্সেল তালিকা থেকে ইমেল পাঠাবেন (2 কার্যকরী উপায়)

2. একাধিক শর্ত পূরণ হলে ইমেল পাঠাতে VBA ব্যবহার করুন

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

পদক্ষেপ:

• প্রথমত, প্রথম পদ্ধতিতে দেখানো হয়েছে , মডিউল আনুন উইন্ডো এবং এই কোড টাইপ করুন।

Option Explicit
Sub Send_Email_Condition()
    Dim xSheet As Worksheet
    Dim mAddress As String, mSubject As String, eName As String
    Dim eRow As Long, x As Long
    Set xSheet = ThisWorkbook.Sheets("Conditions")
    With xSheet
        eRow = .Cells(.Rows.Count, 5).End(xlUp).Row
        For x = 5 To eRow
            If .Cells(x, 4) >= 1 And .Cells(x, 5) = "Yes" Then
                mAddress = .Cells(x, 3)
                mSubject = "Request For Payment"
                eName = .Cells(x, 2)
                Call Send_Email_With_Multiple_Condition(mAddress, mSubject, eName)
            End If
        Next x
    End With
End Sub
Sub Send_Email_With_Multiple_Condition(mAddress As String, mSubject As String, eName As String)
    Dim pApp As Object
    Dim pMail As Object
    Set pApp = CreateObject("Outlook.Application")
    Set pMail = pApp.CreateItem(0)
    With pMail
        .To = mAddress
        .CC = ""
        .BCC = ""
        .Subject = mSubject
        .Body = "Mr./Mrs. " & eName & ", Please pay it within the next week."
        .Attachments.Add ActiveWorkbook.FullName 'Send The File via Email
        .Display 'We can use .Send here too
    End With
    Set pMail = Nothing
    Set pApp = Nothing
End Sub

VBA কোড ব্রেকডাউন৷

• প্রথমত, আমরা আমাদের প্রথম সাব প্রসিডিউরকে কল করছি পাঠুন_ইমেল_শর্ত .
• দ্বিতীয়ত, আমরা ভেরিয়েবল ঘোষণা করছি প্রকার এবং সেটিং “শর্তগুলি ” আমাদের শীট হিসাবে .
• তৃতীয়ত, শেষ সারি নম্বর পাওয়া যায়। তাছাড়া, আমাদের মান সারি 5 থেকে শুরু হয় , তাই আমরা সারি 5 রেখেছি শেষ সারি পর্যন্ত আমাদের কোডে।
• তারপর, আমাদের দ্বিতীয় সাব পদ্ধতিতে কল করুন Send_Email_With_Multiple_condition .
• এর পরে, আমরা আউটলুক নির্বাচন করছি আমাদের মেল অ্যাপ্লিকেশন হিসাবে .
• তারপর, ইমেল সেট করুন আমাদের কোডের বিষয়বস্তু।
• এখানে, আমরা Excel সংযুক্ত করছি ইমেল দিয়ে ফাইল করুন সংযুক্তি ব্যবহার করে পদ্ধতি।
• এর পর, “.Display ” এখানে আমাদের ইমেল প্রদর্শন করতে ব্যবহার করা হয়েছে . তাই, আমাদের পাঠান টিপতে হবে ম্যানুয়ালি পাঠাতে ইমেলগুলি . তাছাড়া, আমরা “.Send ব্যবহার করতে পারি ইমেল পাঠাতে প্রদর্শন ছাড়াই।

• দ্বিতীয়ত, সংরক্ষণ করুন এবং মডিউল বন্ধ করুন .

এখন, আমরা আনব ম্যাক্রো আমাদের কোড চালানোর জন্য উইন্ডো।

• প্রথমত, ডেভেলপার থেকে ট্যাব>>> ম্যাক্রো নির্বাচন করুন .

ম্যাক্রো উইন্ডো পপ আপ হবে।

• দ্বিতীয়ভাবে, “পাঠান_ইমেল_শর্ত নির্বাচন করুন ”।
• অবশেষে, চালান টিপুন .

এটি আমাদের কোড কার্যকর করবে। দুজন লোকের সাক্ষাত হয়েছে৷ আমাদের অবস্থা , তাই আমরা দুটি ইমেল দেখতে পাব উইন্ডো এখানে।

আরো পড়ুন: Excel এ শর্ত পূরণ হলে কিভাবে স্বয়ংক্রিয়ভাবে ইমেল পাঠাবেন

একই রকম পড়া

• এক্সেল এ শেয়ার ওয়ার্কবুক কিভাবে সক্ষম করবেন
• এক্সেল ব্যবহার করে কিভাবে আউটলুক থেকে বাল্ক ইমেল পাঠাবেন (3 উপায়)
• বডি সহ এক্সেল থেকে ইমেল পাঠানোর জন্য ম্যাক্রো (3টি দরকারী ক্ষেত্রে)
• অ্যাটাচমেন্ট সহ Excel থেকে ইমেল পাঠাতে কিভাবে ম্যাক্রো প্রয়োগ করবেন
• কিভাবে এক্সেল ফাইল অনলাইনে শেয়ার করবেন (২টি সহজ পদ্ধতি)

3. তারিখের শর্তের উপর ভিত্তি করে এক্সেলে ইমেল পাঠান

শেষ পদ্ধতির জন্য, আমরা ইমেল পাঠাব যদি সময়সীমা বর্তমান তারিখের এক সপ্তাহের মধ্যে হয়। আজ 19 মে 2022 এই নিবন্ধটি লেখার হিসাবে। তাই, শুধুমাত্র একটি সারি আছে যা সাত দিনের মধ্যে পড়ে। সেটি হল সারি 5 . আমরা পাঠাব একটি ইমেল VBA ব্যবহার করে সেই ব্যক্তির কাছে কোড।

পদক্ষেপ:

• প্রথমত, প্রথম পদ্ধতিতে দেখানো হয়েছে , মডিউল আনুন উইন্ডো এবং এই কোড টাইপ করুন।

Public Sub Send_Email_Date_Condition()
    Dim rDate, rSend, rText As Range
    Dim pApp, pItem As Object
    Dim LRow, x As Long
    Dim lineBreak, pBody, rSendValue, mSubject As String
    On Error Resume Next
    Set rDate = Application.InputBox("Select Deadline Range:", "Exceldemy", , , , , , 8)
    If rDate Is Nothing Then Exit Sub
    Set rSend = Application.InputBox("Select Email Range:", "Exceldemy", , , , , , 8)
    If rSend Is Nothing Then Exit Sub
    Set rText = Application.InputBox("Select Email Topic Range:", "Exceldemy", , , , , , 8)
    If rText Is Nothing Then Exit Sub
    LRow = rDate.Rows.Count
    Set rDate = rDate(1)
    Set rSend = rSend(1)
    Set rText = rText(1)
    Set pApp = CreateObject("Outlook.Application")
    For x = 1 To LRow
        rDateValue = ""
        rDateValue = rDate.Offset(x - 1).Value
        If rDateValue <> "" Then
        If CDate(rDateValue) - Date <= 7 And CDate(rDateValue) - Date > 0 Then
            rSendValue = rSend.Offset(x - 1).Value
            mSubject = rText.Offset(x - 1).Value & " on " & rDateValue
            lineBreak = "<br><br>"
            pBody = "<HTML><BODY>"
            pBody = pBody & "Dear " & rSendValue & lineBreak
            pBody = pBody & rText.Offset(x - 1).Value & lineBreak
            pBody = pBody & "</BODY></HTML>"
            Set pItem = pApp.CreateItem(0)
            With pItem
                .Subject = mSubject
                .To = rSendValue
                .HTMLBody = pBody
                .Display 'We can also use .Send here
            End With
            Set pItem = Nothing
        End If
    End If
    Next
    Set pApp = Nothing
End Sub

VBA কোড ব্রেকডাউন৷

• প্রথমত, আমরা আমাদের প্রথম সাব প্রসিডিউরকে কল করছি সেন্ড_ইমেল_তারিখ_শর্ত .
• দ্বিতীয়ত, আমরা ভেরিয়েবল ঘোষণা করছি প্রকার এবং সেটিং “শর্তগুলি ” আমাদের শীট হিসাবে .
• তৃতীয়ত, আমরা ইনপুটবক্স ব্যবহার করছি আমাদের মানগুলির পরিসর সেট করতে।
• এর পরে, আমরা আউটলুক নির্বাচন করছি আমাদের মেল অ্যাপ্লিকেশন হিসাবে .
• তারপর, আমরা VBA CDate ব্যবহার করছি একটি তারিখ বর্তমান তারিখ থেকে সাত দিনের মধ্যে আছে কিনা তা পরীক্ষা করার ফাংশন৷
• তারপর, ইমেল সেট করুন আমাদের কোডের বিষয়বস্তু।
• এর পর, “.Display ব্যবহার করুন ” আমাদের ইমেল দেখানোর জন্য . তাই, আমাদের পাঠান টিপতে হবে ম্যানুয়ালি পাঠাতে ইমেলগুলি . তাছাড়া, আমরা “.Send ব্যবহার করতে পারি ইমেল পাঠাতে প্রদর্শন ছাড়াই।

• দ্বিতীয়ত, সংরক্ষণ করুন এবং মডিউল বন্ধ করুন .
• তৃতীয়ত, যেমন পদ্ধতি 2 এ দেখানো হয়েছে , ম্যাক্রো আনুন উইন্ডো।
• তারপর, “পাঠান_ইমেল_তারিখ_শর্ত নির্বাচন করুন ” এবং চালান টিপুন .

• প্রথমে, তারিখটি নির্বাচন করুন কলাম এবং ঠিক আছে টিপুন .

• দ্বিতীয়ভাবে। ইমেল কলাম নির্বাচন করুন এবং ঠিক আছে টিপুন .

• তৃতীয়ত, ইমেল নির্বাচন করুন বিষয়বস্তু কলাম এবং ঠিক আছে টিপুন .

• তারপর আমরা ইমেল দেখতে পাব সংলাপ বাক্স. আমরা পাঠান টিপতে পারি আমাদের লক্ষ্য অর্জন করতে।

আরো পড়ুন: How to Automatically Send Email from Excel Based on Date

মনে রাখার বিষয়গুলি

• In all our methods, Outlook was our default email Application . You may need to use different codes for separate Applications .

অভ্যাস বিভাগ

We’ve added practice datasets for each method in the Excel ফাইল।

উপসংহার

We’ve shown you 3 methods to send an email if conditions  met এক্সেল-এ . পড়ার জন্য ধন্যবাদ, ভালো থাকুন!

সম্পর্কিত প্রবন্ধ

• একটি ম্যাক্রো ব্যবহার করে (সহজ পদক্ষেপ সহ) বডি সহ এক্সেল থেকে কীভাবে ইমেল পাঠাবেন
• এক্সেল থেকে আউটলুকে কিভাবে স্বয়ংক্রিয় ইমেল পাঠাবেন (৪টি পদ্ধতি)
• সেল বিষয়বস্তুর উপর ভিত্তি করে এক্সেল থেকে স্বয়ংক্রিয়ভাবে ইমেল পাঠান (২টি পদ্ধতি)
• কিভাবে স্বয়ংক্রিয়ভাবে ইমেলে এক্সেল ফাইল পাঠাবেন (৩টি উপযুক্ত পদ্ধতি)
• VBA ব্যবহার করে এক্সেল ওয়ার্কশীট থেকে স্বয়ংক্রিয়ভাবে অনুস্মারক ইমেল পাঠান
• How to See Who Is in a Shared Excel File (With Quick Steps)