Maximum Mails That can be sent frm outlook

Status
Not open for further replies.

grinning_devil

Cyborg Agent
If i wanna send 1000 mails from outlook 2003 in one go , will that be possible?
Is there any limit to it ??

pls do let me have the web site address with ur post..
and dont post like this --
yes i think u can...
shuld be possible ...
etc
etc
:wink:
 

QwertyManiac

Commander in Chief
Yes its possible, also for more mass try this >
Mass Mail

But sendin so many at once will trigger a spam rater i think...
 
OP
G

grinning_devil

Cyborg Agent
lol....i checked that already...
actually i want to know if i mail 1k users from outlook,will that be possible??
mean is there any limit to number of users we can send a mail to ??
 

ilugd

Beware of the innocent
Possible from outlook. It is simple if you know vba.

or you can use another language and create an outlook message object and all that stuff. I have done that from excel to send the SAME email to DIFFERENT people. I created a sheet with the names and email addresses etc. Then i used the code to send it. I will find where i have the code and post it.

Ok, so the problem is that for each email, outlook asks you that a program wants to send mails. Press the Cancel button to cancel. And what is more that you have to wait for around 5 seconds before each one is sent. So if you want to do it for 1000 email, be prepared to wait for 5000 seconds or something.

BTW, what are you trying to make? a mail bomber? Anyway let me know. But since i can think of quite a few legal applications, i will go ahead and post the code, however please note why i made this program and make the changes appropriate for your situation yourself. Since you are an active contributor to the forum, i think you can handle it. If you need any help, just let us know.

Here is the code.
Oops, first the excel column structure

1. Name of the person to whom you are sending.
2. Data field
3. Email address
4, 5 Other Data fields

So here is the code.
Code:
Private Sub cmdOK_Click()
On Error Resume Next
Dim wsReport As Worksheet
Dim BodyText As String
Dim rwReport As Integer, rwI As Integer
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
Set wsReport = ThisWorkbook.Sheets("Sheet2")
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
    Set oOutlookApp = CreateObject("Outlook.Application")
    bStarted = True
End If
rwReport = 1
Do While wsReport.Cells(rwReport, 1) <> "" Or wsReport.Cells(rwReport, 5) <> ""
    If wsReport.Cells(rwReport, 3) = "" Then
        wsReport.Cells(rwReport, 4).Font.Bold = True
    Else
        Set oItem = oOutlookApp.CreateItem(olMailItem)
        With oItem
            'Set the recipient for the new email
           .To = wsReport.Cells(rwReport, 3)
            .Subject = "AY Annual Report 2005 information required"
            BodyText = "Dear " & wsReport.Cells(rwReport, 1) & vbCr _
              & "Greetings from #### ####, New Delhi!" & vbCr _
              & "Please find below the list of languages/programmes for which we have not yet received the annual letter response monthwise report for 2005. Please do send the same at the earliest. If you have already sent the mail, please forward it again to ########.###" & vbCr
            BodyText = BodyText & ">" & wsReport.Cells(rwI, 5) & vbCr
            rwI = rwReport + 1
            Do While wsReport.Cells(rwI, 1) = "" And wsReport.Cells(rwI, 5) <> ""
                BodyText = BodyText & ">" & wsReport.Cells(rwI, 5) & vbCr
                rwI = rwI + 1
            Loop
            rwReport = rwI - 1
            BodyText = BodyText & vbCr & "Thanking you." & vbCr _
              & "Yours Sincerely," & vbCr & vbCr & "Jeba Singh Emmanuel" _
              & vbCr & "Assistant Media Director, Radio AY"
            .Body = BodyText
            .Send
        End With
    End If
    rwReport = rwReport + 1
Loop
If bStarted Then
    'If we started Outlook from code, then close it
    oOutlookApp.Quit
End If
Set oItem = Nothing
Set oOutlookApp = Nothing
Unload Me

End Sub
 

ilugd

Beware of the innocent
LOL, as i was writing the long post, you seem to have reposted, so i am just answering. I don't know if outlook rejects such an attempt. I think you just have to try and find out.

Good question.
 
OP
G

grinning_devil

Cyborg Agent
thanx a lot ilugd for the trouble man...
i was a little curious on the number of emails that can be sent from outlook...there has to be some limit!
 

ilugd

Beware of the innocent
most probably not. They develop such software for major corporations which may need to send emails to thousands of customers. They want developers to develop plugins (?) for outlook to extend its functionality. Since microsoft was never known for its ethics anyways, so i would be surprised if they had a limit.

Implementation wise, the feature (spam filtering in outgoing mails) is the responsibility of the smtp server (or whichever) and not of the client.
 
OP
G

grinning_devil

Cyborg Agent
damn iam looking for some freeware options across the net,and iam just coming across some sharewares....

do post back in case you do come acros any freeware..
 

ilugd

Beware of the innocent
Aha, i was pounding my brains because i couldn't remember the name of the software which i once used over 2 years ago.

Just remembered it.

Try googling for Postcast server. Should work if you want to send mail to a lot of your clients and don't want to deal with a cluttered sentitems folder.
 

ilugd

Beware of the innocent
press alt+[F11]. You will get the vba ide. Create a new form, place a buttoon with the name cmdok and press f7 while the button is selected. You are ready to go.

by the way, in my excel file the data which i automated was on sheet 2.
 
Status
Not open for further replies.
Top Bottom