Automatically Send Mass emails

[Abhijeet]

Hi

I have macro but that macro not send emails automatically please tell me how to do this

 

[Chihiro]

Works fine on my end.

... by chance did you forget to change .Display to .Send?

 

[Abhijeet]

My end its only Draft email Body but not send automatically

 

[Abhijeet]

Yes Chihiro

Its Work i just change this

If Sheet1.Range("G" & I).Value <> "" Then
                If Dir(Sheet1.Range("G" & I).Value) <> "" Then .Attachments.Add Sheet1.Range("G" & I).Value
            End If
            .Send ' or use .send
        End With
        Set olMail = Nothing

 

[Abhijeet]

But i want to avoid Allow Deny message box please tell me how to add Send Key in Code

 

[Deepak]

But i want to avoid Allow Deny message box please tell me how to add Send Key in Code

Have a read of...

http://www.slipstick.com/developer/change-programmatic-access-options/

 

[Abhijeet]

Yes I read this i do not have access in my Office so i want to use Send Keys in Code so please tell me how to do this

 

[Deepak]

Have u access to registry?

 

[Abhijeet]

No

 

[Abhijeet]

Please tell me how to do this with help of SendKeys in Code

 

[Nitesh Khot]

Please tell me how to do this with help of SendKeys in Code

Hi Abhijeeet,

change macro setting of outlook to always run macro save & exit and then run code in debug mode (F8) with ".send" ....send more than two mail in debug mode and then problem will solve....

I had same problem & now this resolved..

 

[Abhijeet]

but but which Sendkeys shall i use please tell me that

 

[Abhijeet]

I am Change this line but not work

.Send
SendKeys "%s", True

 

[Deepak]

Send keys are not reliable always...

However check these links.

http://www.vbforums.com/showthread.php?268485-SendKeys-with-Outlook-and-Access

http://www.vbforums.com/showthread.php?483679-RESOLVED-Sendkeys-from-Excel-to-Outlook

 

[Abhijeet]

I tried this but after .Send the code will stop its not work please tell me how to do this

 

[Nitesh Khot]

Dear Abhijeet...,

Run your macro in debug mode..i.e pressing F8...just send 2-3 mails by using F8 keys...then it will not ask you for allow/deny option.....If not then you have to turn on options as below :

 

[Abhijeet]

I know this option but no access me in my Company system so i need SendKeys add in code

 

[Nitesh Khot]

No Idea.....Try using F8 else you need to get access from System Administrators...

Thanks.

 

[Abhijeet]

Hi

Thanks for every one support my problem is solved now This is work

Sub send_email()
    Dim I As Long
   
    Dim olApp As Outlook.Application
    Dim olMail As MailItem
    Set olApp = New Outlook.Application
   
        For I = 2 To Sheet1.Range("A1048576").End(xlUp).Row

        Set olMail = olApp.CreateItem(olMailItem)
        With olMail
            .To = Sheet1.Range("B" & I)
            .CC = Sheet1.Range("C" & I)
            .BCC = Sheet1.Range("D" & I)
            .Subject = Sheet1.Range("E" & I)
            .Body = "Dear " & _
                    Sheet1.Range("A" & I) & "," & vbNewLine & vbNewLine & _
                    Sheet1.Range("F" & I) & vbNewLine & _
                    Sheet1.Range("H" & I)
            If Sheet1.Range("G" & I).Value <> "" Then
                If Dir(Sheet1.Range("G" & I).Value) <> "" Then .Attachments.Add Sheet1.Range("G" & I).Value
            End If
            .Display
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
 
        End With
        Set olMail = Nothing
    Next
     
    Set olApp = Nothing
End Sub