Compile error user defined type not define

Dear friends,
I'm unable to code the tag so I deleted it and attached a file for your kind reference. Please give me a solution.

Thanking you in anticipation.

Mukesh

Sorry - I'm not going to debug your code for you. I said in my last post that you should

...try mentioning where the problem is flagged by the compiler.

Once you provide all the relevant information then it will be time to look at the workbook if the issue is still not obvious.

Hi, Mukesh,

there is no reference for Outlook set in the sample Workbook. You would need to set that, then try the code again and you will receive another error.

You should really take some of the basics of writing/working on code. As you are pretty new to VBA I strongly recommend to put each command on a line of itīs own instead of using multiple commands in one line. And you should work with proper indention on the code so that you should have noted that there is an End If missing. Further on you donīt have a sheet Personal in the workbook.

pRow isnīt dimmed nor initialized so it holds a value of 0 and will cause another error - a very strong argument to work with Option Explicit..

Please Login or Register  to view this content.

Mostly I wonder why you get code in your earlier threads that works and decide to sort of shredder these codes so they donīt work and then come back for help.

Ciao,
Holger

Hi Holger,
Sorry and thank you for your kind guidance. The code was working fine in my earlier posts but it takes a long time to complete the task. It scrolls from top to bottom to find the birthday on that particular date. There are thousands of members in my file and takes a long time to find the birthday. So I planned to filter the date and run the macro on that visible rows only which will complete the task within a few seconds. After working and observing the working and output the new ideas comes in mind to make the macro more perfect, clean and time saving. So I work on it continuously and come to you if I didn't get the desire output. You may observed that the same macro is modified each time and giving more perfect output.

I rename the sheet 'Personal' so the error will not come.

Just give me a idea how to set the outlook reference set in the code because the same error is I'm facing each time. I inserted the code you suggested and it also giving same error.

I like your advice to compile code in a single line to avoide error.

Thank you for kind guidance to make me perfect. I learned the little vba from the forum and guidance of you well wishers.

Thank you.

Mukesh

Hi, Mukesh,

but the mails are not delivering

One of the great features of the VBE is to use F8 and single step through the code to see why a condition isnīt met. You (or whoever did it) inserted

Please Login or Register  to view this content.

Maybe reflect on that line why on any birthday with that command no mail should be sent.

Ciao,
Holger

Hi, Mukesh,

even if the birthday is reckognized there wonīt be a valid email-address as this is located in Column M whereas you work on the range starting on Column O.

Code for ThisWorkbook:

Please Login or Register  to view this content.

Code for a standard module (here Modul1):

Please Login or Register  to view this content.

You should consider to use the Autofilter for Column AF and use "Send mail" as criteria. Any further action could be to check the number of the last visible cell to find out if any birthdays are on that day and then use a For Each and loop through the visible cells by using SpecialCells(xlCellTypeVisible) in one Column.

Ciao,
Holger

Hi, Mukesh,

inside a bracket with Range itīs the Column Name so you are referencing the Range starting with O8 and going to Z and the last used row.

Thanks for the feedback.

Ciao,
Holger

Hi, Mukesh,

the data should have gone to OClumn Z when the code was written, right now itīs going over to Column AF. So basicly the answer is yes but I would avoid any hardcoding on the Columns and use the last used Column in Row 8 like

Please Login or Register  to view this content.

But that wonīt solve the problem of the email addresses not being included in the range you read into x.

Ciao,
Holger

Hi, Mukesh,

I donīt get why this message doesnīt pop up in your version. If I take the workbook, alter the birthday for the first 2 entries and delete the email in Column M for the first I get that message.

You would need to clarify what else you want but again: this is not the problem on which you started the thread.

Ciao,
holger

Hi Holger,
Sorry! I agree with you that it's not a subject of this thread but in this code I'm getting error which you could understand well because you have a idea of this program.

For example:
I inserted a dash sign in cell m9 where the email id is not available. Then the program gives a error. It creates a mail with a dash sign in a 'to' field and displays the mail.

The requirement is that if the email id is not available then I insert a dash sign there for not keep the cell blank. In this situation the program should simply pop up the message 'Mr. a's birthday today! & has empty email address' and after clicking on ok continue till the end. In short the program should simply display a message with the name of a person and & has empty email address. Then continue till the end.

If this problem is solved then there is no any issue to solve.

I'm optimistic that you will definitely solve this problem and this will be the last post for this thread.

Thank you very much.

Regards,

Mukesh

Hi, Mukesh,

Please Login or Register  to view this content.

Ciao,
Holger