Macro to send email with attachment for each unique email Ids

Function SendMail()
Dim y As String
Dim x As Integer
y = Sheets(1).Range("M1").Value
x = Sheets(1).Range("K1").Value
' Copy the sheet(1)
ThisWorkbook.Sheets(x).Copy
' Send Email
With ActiveWorkbook
.SendMail Recipients:=y, Subject:="test" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
' Subject:=Range("Feuil1!B1").Value & " " & Range("Feuil1!A1").Value
End Function

Hi, vijanand1279,

just my 2 cents here. Instead of bumping your thread you should consider to alter the description or amend the data in order to supply more information for those who might be able to help (if they only knew what you areasking for).

I need help for a Macro

You could start recording the steps you want to perform with macro recorder to get some basic code. Although the recorder will deliver hard coded ranges you should at least get a basic idea of how the code may look.

send email as attachment

What does that mean? What should be the attachment? What mail program to work with?

as well as data content as table

What data? What range? How to handle duplicates in the range if I assume you want the filterd range to be inserted into any mail?

I wonder what you have managed to achieve so far, no macro code has been posted by you.

Ciao,
Holger

one way is
-hide duplicates, copy the unique email addresses to sheet2, unhide the duplicates and then send email to addresses from column D (sheet2).
and yes, Holger is right regarding the attachment.