How to send email based on criterias of the spreadsheet

[Luthius]

I would like to send an email for each person in a table based on the confirmation column.
Meaning if is True, that person will receive the email. Otherwise not.

I would like also to choose to send to everyone (Confirmed as True) or to send individually.

[TABLE="class: grid, width: 500, align: left"]
<tbody>[TR]
[TD]Name[/TD]
[TD]Email[/TD]
[TD]Type[/TD]
[TD]Confirm[/TD]
[/TR]
[TR]
[TD]John Doe[/TD]
[TD]john@mail.com[/TD]
[TD]TO:[/TD]
[TD]True[/TD]
[/TR]
[TR]
[TD]Mary[/TD]
[TD]mary@mail.com[/TD]
[TD]CC:[/TD]
[TD]False[/TD]
[/TR]
[TR]
[TD]Anne[/TD]
[TD]anne@mail.com[/TD]
[TD]TO:[/TD]
[TD]True[/TD]
[/TR]
</tbody>[/TABLE]







Ps.: The column type defines the recipient, if will be "To" or "CC" Carbon Copy.

 

[mole999]

number of routines out there for the actual email, but taking your example a for next loop would work, something like

For n = 1 to LastRow STEP 1
If Col D = True then capture the email address call the email routine and set with the email address and send
DoEvents
next n

basically you loop down the column with True in it and then do some action if the matches, the DoEvents just gives the programme time to process, you'll also need to have a routine to ensure your email programme is open, before you first send otherwise it will probably fail

 

[Luthius]

And how about the Column C where is define if the email recipient will be To or CC? These will be parameters for the email routine right???
Also I need to define on my code if the email will be sent individually or for everyone.

Understood?

 

[mole999]

i thought c was excluded as you already had false, if they need to be assessed then a simple AND could be used to identify rows to by pass

 

[Luthius]

Below the code using Dictionary where I can store the CC and To recipients.

Sub dicionario()       

    Dim ws As Worksheet
    Dim rg As Range
    Dim strTo As String
    Dim strCC As String

    Dim objDic As New Scripting.Dictionary


    Set ws = ThisWorkbook.Worksheets("MailList")
    Set rg = ws.Range("A1").CurrentRegion


    For i = 1 To rg.Rows.Count Step 1
        If rg(i, 4) = True Then
            objDic.Add rg(i, 2), rg(i, 3)
        
            DoEvents
        End If
        Next i


    For Each Key In objDic.Keys
        If objDic(Key) = "To" Then
            strTo = strTo & ";"
        Else
            strCC = strCC & ";"
        End If
    Next Key


    'strSubject = EmailSubject


    Set objDic = Nothing
End Sub