Filer Data, copy and send email from outlook

[Akshay_divecha]

Dear Experts,

I have no clue on how to write a VBA code and need your help to automate task.

I have 4 worksheets

Sheet 1 contains all the data

Sheet 2 contains email IDs, subject, etc..

Sheet 3 contains "Mailbody1"

Sheet 4 contains "Mailbody2"

Sheet2 , column E and sheet 1, column I contains reference number.

My requirement when run macro is,

1. copy reference no from sheet2 and set filter at Sheet 1 column I

eg copy sheet2 reference no "123456789" set a filer in sheet 1, column I and there will be 2 records in row 2 & 3.

2. copy the records and paste it in outlook along with the mail body mentioned in sheet 2 column D.
3. send that email to ID's mentioned in Sheet 2 column A with the subject mentioned in Sheet 2 column C.


Please help