Sort date and bring current date top and run macro

Hi friends,
There are several contacts in my directory and daily only 1-2 birthdays or sometimes not a single birthday. The anniversary macro searchhhes for a person whose birthday is on that particular date and send automatic email to him. For it the macro has to run till last entry in my directory that means about 1000 or more entries. It takes a lot of time to send 1-2 mails. I want to sort out the date after opening the file first and bring the current date on top and the anniversary macro should run only for that current date and then stop. For it I inserted a sortdata macro but it sorts the dates in ascending order and not bring the current dates on top.

Requirements:

After opening the file the sortdata macro should run first and bring the current dates on top.
Then the anniversary macro should run only for that current dates and stop

This will save my time and speed up the task.

Please help me to solve this problem.

Thanking you in anticipation.

Mukesh

Hi Mukesh
I tested the code and probably sent you a few emails, sorry
Try

Please Login or Register  to view this content.

Hi Nilem,
Oh! What a excellent creation. You have done a great job to combine three macros in a single one. It's working fine. I want to add the message at the end of macro as follows:

If there is no birthday then the message should pop up as:

"No birthday today!"

After sending all the mails the message should pop up as:

"Finish sending mails!"

In short if there is no birthday then the first message should pop up and if the birthday message is sent then the second pop up message should pop up. That mean only one of these pop up message should pop up after completing the macro.

Please tell me how to add beep sound after pop up the message which you have done. I want to add it in my other macros.

Please modify it and then the problem will be solved.

Don't mind of the mails sent to me while testing. You have tested it for me only.

Thank you and good night.

Mukesh

Hi Mukesh
try

Please Login or Register  to view this content.

Hello Nilem,
Thank you. It's working fine as per my desire but only one little problem is there. See contact no. 5 Mrs. turco Sally for example. There is no email id and the message pop up "Sally Turco's birthday today and has empty email address" and after this again the message pop up "No birthday today" which is not required here because there is a birthday of a person and only he has no email id. At this situation the macro should run and stop. No need to pop up the wrong message "No birthday today"

Please amend it positively.

I didn't understand the numbers '48 and 64' in the code message. What is the meaning of these numbers here. Secondly how to add beep sound before the pop up message as you did in the code.

Thank you.

Mukesh

Okay, I sent two more letters to you

Please Login or Register  to view this content.

64 and 48 are constants of the Buttons argument of MsgBox Function (see help VBA)

Hi Nilem,
Sorry for trouble. I have finalize the first code you have provided. I have following problems in it.

The name of first two contacts is not displaying.
I have changed the macro completion message in the code as:
"The task completed successfully!"
To avoide confusion.
Please check it.
I'm getting error while sending mail as follows:

A program is trying to send an email message on your behalf. If this is unexpected, click deny and verify your anti virus software up to date.
For more information about email safety and how you might be able to avoid getting this warning click help.
Allow Deny Help.

Please go through it and solve my problems to complete this lengthy thread positively.

Sorry and thank you for your valuable guidance to achieve my target easily.

Mukesh

Mukesh, I sent a test email to you. Did you get it?
I think the problem comes from the fact that you're trying to send a mail to your address.
Please enter a different email address (for example, my email ) in column Z and try again.

Hi Nilem,
Thank you. I received your test mail. As per your suggestion I changed the email address but the same error occur.

Please look into my other problems mentioned in last thread.

Waiting to close this thread today with your solution.

Thank you and good night.

Mukesh

Mukesh, unfortunately I do not know how to solve your problem. Maybe the reason is your Outlook settings?
Try the code that wrote Jaslake (post #6). Are there any problems you have with this code?

Hi Nilem,
Sorry for trouble. I have finalize the first code you have provided. I have following problems in it.

The name of first two contacts is not displaying.
I have changed the macro completion message in the code as:
"The task completed successfully!"
To avoide confusion.
Please check it.
I have solved the problem of error message by changing the setting of outlook and now it's working fine. The mails are being delivered automatically without any error.

I need some revision in John's code like you have done in your code. It didn't require any change in outlook setting trust center. It's fine but I don't know how to do the amendments in it to meet my requirement. So I finalize this code no any problem. He has also done a great job and I'm thankful to him.

I request you to do the above mentioned amendment in the code and close the thread today positively.

Waiting eagerly to receive a final revision to complete this program.

Thank you very much.

Mukesh

Hi Nilem,
Sorry for trouble. I have finalize the first code you have provided. I have following problems in it.

The name of first two contacts is not displaying.
I have changed the macro completion message in the code as:
"The task completed successfully!"
To avoide confusion.
Please check it.
I have solved the problem of error message by changing the setting of outlook and now it's working fine. The mails are being delivered automatically without any error.

I need some revision in John's code like you have done in your code. It didn't require any change in outlook setting trust center. It's fine but I don't know how to do the amendments in it to meet my requirement. So I finalize this code no any problem. He has also done a great job and I'm thankful to him.

I request you to do the above mentioned amendment in the code and close the thread today positively.

Waiting eagerly to receive a final revision to complete this program.

Thank you very much.

Mukesh

Hi Nilem,
Oh! What a silly mistake I have done. The concatenate formula in first 2 row was missing so the names are not displaying. I have inserted the formula and the problem is solved. Now all my problems are solved.

Thank you to you and John for helping me to solve this problem. The program is working fine.

Mukesh

Hi Mukesh
You are welcome!