Hi All,
I have a list of email address of about 1000 in an excel sheet. Now I have a content to send to all the email address. Even I can sent all the email at bulk. I need to send an email for every 2 minutes from the list. Is there any macro to do this?
Hi All,
I have a list of email address of about 1000 in an excel sheet. Now I have a content to send to all the email address. Even I can sent all the email at bulk. I need to send an email for every 2 minutes from the list. I am using MS office 2007 outlook. Is there any macro to do this?
Last edited by sathishkm; 08-09-2013 at 03:33 PM.
Any macro for this?
Last edited by sathishkm; 08-09-2013 at 05:07 PM.
Did anyone find the solution for this?
Read previous posts -- I have a post that was solved. Search by my username.
Wat is the post name?
I don't remember, I don't have that many threads I've actually created. Search by my username.
I Had tried your code. But I am getting the error in the code.
The code is completely finished. Copy and paste the code into an Excel VBA macro from my thread.
It is not working. I had took from your post" Access body email to Outlook "
You're looking at the wrong post. It's excel VBA to Outlook.
not to step on any toes but this works also....it may be the same as the other but I dont know....you'll have to insert your smtp server name....
Please Login or Register to view this content.
Ernest
Please consider adding a * if I helped
Nothing drives me crazy - I'm always close enough to walk....
Where need to enter my smtp server name?
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Insert your SMTP Server name here"
It is not working. I had included my email domain name like " abcdef.com" in the " Insert your SMTP Server name here ". But I am unable to get the result.
that is probably not your SMTP server name....you have to go into outlook and look under account settings to find the actually server name....it will usually have SMTP in the name....not always....
I had given as " mail.domain.com". But then also my not working.
I had included my SMTP server name. But how to execute the code. I have 1000 emails in the excel sheet. Now I want to sent email to it for every 2 minutes.
Any solutions for this?
The previous code is send only email at once.
sorry.....I guess I thought you had that part done....
you would have to create a loop the grabbed an email address, call the code I sent you with the email address as a parameter,wait 2 minutesm then keep going until you run out of email addresses...do you have any code that you have started/created?
I had not done it. And I am not so much familiar with coding. So if possible could you please modify this code?
where does the email addresses come from?....are they in an excel file?
The file will be in my desktop. In the sheet1 and the file name is Email.
Last edited by sathishkm; 08-12-2013 at 05:59 PM.
so that would be a "Yes"....it's an Excel file....I can probably do some basic setup for you and let you sort of complete the rest....give me a bit time....
OK. I am struggling a lot for it. If I get good result. I will be very much happy.
so here is a basic outline...this will determine how many emails there are in column 1 of the active sheet (sheet1)....it will then loop through each email address and go into the sendemail sub and "pass" it the email to name....you will have to come up with your email name....what you want the subject to be...and what goes in the body and the SMTP server....then it comes back to the main sub and waits for the time you requested....currently it's 12 second....you can change it 120 for 2 minutes....and it will continue until the last email name....I would suggest you practice this with just your name in the email list so if it doesn't work right you would send out a bunch of weird emails....good luck....
Please Login or Register to view this content.
I am getting the error in the following line. Please find the details
Public Sub SendEmails()
Dim LastRow As Integer, x As Integer
LastRow = Cells(65000, 1).End(xlUp).Row
For x = 1 To LastRow
EmailTo = Cells(x, 1).Value
SendEmail EmailTo
newMinute = Minute(Now())
newSecond = Second(Now()) + 12
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Next
End Sub
so, some basic questions....are you putting this in a module in the excel that has the emails?....are you on Sheet1?
so you need to click on the stop box for running macros....it's a little to the right of the start button, which looks like a right arrow....
The error message I am receiving like this " Cant' execute code in break mode".
As per your I your instruction I had done the same. But the code is not executing.
My problem is. I had list of email address. For those email I have to do send the mails through outlook. And the content is same, but thing I want to change the email and send for each individual manually. I want this repeated task to be done by macro or a VB code.
so....you have the code sitting in module 1 of the excel file that has Sheet1 with email addresses in column 1....you have the VB editor and I would recommend pressing F8....this will step through the code and you can see what is happening....also...saying the code doesn't execute isn't real helpful....is there an error?....what does it do?..or not do?
In the last line of the code. I m getting the error message like" Can't execute code in break mode".
wait 15 seconds (unless you changed it 120) then wait 120 seconds... .... it's probably waiting for the wait statement to complete.....
I had entered my email address here
objmessage.from = "[email protected]"
and I had change to my subject here
objmessage.Subject = " Welcome"
objmessage.TextBody = "PUT TO INFOMATION FOR THE BODY OF THE EMAIL HERE"
This is the only modifiction I had done. After doing these things. When I tried to executive. It is comes compile error.
what is the error?
This is the error message I am getting it" At least one of the Form or sender fields is required, and neither was found."
Look here:
http://www.excelforum.com/excel-prog...n-outlook.html
This code should answer all your questions. Post #6 and #7.
http://www.rondebruin.nl/win/section1.htm
May help you understand..
Did any could rectify this code?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks