Script or Macro to send an email

[pradeepkodali]

Hi,

I am looking for a script that should send an automated email to the email ID in the row with subject line as Description (Column B). It need to check for the end date (Column D)and if it is less than 2 days to the current date it should send an email.

Body of the email need to be as below
Dear Owner (Column F),

Reminder!! You have 2 more days to complete this task.

Regards,
Pradeep Kodali

Please help me in getting a Macro or Script for this.

I have attached the Spread Sheet for your reference.

Thanks in advance for your help!!

Regards,
Pradeep Kodali

[Leith Ross]

Hello Pradeep,

This macro will send the emails out when today's date is 2 days before the end date. A button has been added to the sheet to run the macro. The attached workbook has the macro added.

Please Login or Register  to view this content.

[pradeepkodali]

Hello Leith,

Thanks for the script. How ever I am unable to send the emails and getting error as "Runtime Error 5: invalid procedure call or argument" and it shows error in below code. Please have a check.

If DateDiff(d, Now(), Cell) = 2 Then

Regards,
Pradeep Kodali

[Leith Ross]

Hello Pradeep,

I guess the change didn't save. Here is what the line should be. the small letter d should be in quotes.

Please Login or Register  to view this content.

[pradeepkodali]

Hi Leith,

Now its throughing RUNTIME error @ .To = Cells.Offset(0, 3) 'Column "G"

Regards,
Pradeep K

[Leith Ross]

Hello Pradeep,

That should be Cell and not Cells. My typing is not very good.

Please Login or Register  to view this content.

[pradeepkodali]

Thanks Leith!! Its working now as desired.

Will it only work for MS Outlook Client or web emails as well (eg: Gmail)?

Thanks!
Pradeep Kodali

[Leith Ross]

Hello Pradeep,

The macro is written for Outlook. Other email clients, like Gmail, can receive the email once it has been sent.

[pradeepkodali]

Thanks Leith!!

[pradeepkodali]

Thanks once again!