Excel vba to auto-send customer emails (duplicate emails issue)

Good day
The code below generates a unique email + attachment to each line in column A based on other columns.
This means if the same email exists more than once, they will receive more than one email with a unique attachment with each email.
What I would like it to do is check whether the email exists in more than one line (already sorted) and send them one email only instead (with all the attachments). is this possible?
this is my code:


Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem

Dim rngTo As Range
Dim rngSubject As Range
Dim rngBody As Range
Dim rngAttach As Range

ActiveSheet.Range("A2").Select

DoUntil IsEmpty(ActiveCell)

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItemFromTemplate("C:\Desktop\EBILL\template.oft")

With objMail
.To= ActiveCell.Offset(0,4).Value
.Subject ="Invoice For: "&" "& Month &" - "& Year
.Attachments.Add ActiveCell.Offset(0,5).Value
ActiveCell.Offset(1,0).Select
.Display 'Instead of .Display, you can use .Send to send the email or .Save to save a copy in the drafts folder
EndWith

Loop


Set objOutlook =Nothing
Set objMail =Nothing
Set rngTo =Nothing
Set rngSubject =Nothing
Set rngBody =Nothing
Set rngAttach =Nothing

Originally Posted by ARowbot

In future make sure to put your code in code tags by pressing the # symbol!

If they are already sorted then you may be able to do this, I'm unsure because you didnt attach a template workbook

Please Login or Register  to view this content.

Hi. Thank you so much for responding and apologies for the crappy formatting lol. I will try the code and if it doesnt work will attach my sheet for reference. Thanks once again for your kind help

It works perfectly Thank you so much.
Not sure why i hadn't thought of the same logic, very kind of you to help
Have a good weekend !!

It works perfectly Thank you so much.
Not sure why i hadn't thought of the same logic, very kind of you to help
Have a good weekend !!