See below. this freeware clicks yes 
automatically:http://www.snapfiles.com/get/clickyes.html

_________________________________________________________________________________________________
"There are known knowns. These are things we know that we know. There are known 
unknowns. That is to say, there are things that we know we don't know. But 
there are also unknown unknowns. There are things we don't know we don't know." 




________________________________
From: Roopesh Kapur <roopesh.ka...@gmail.com>
To: excel-macros@googlegroups.com
Sent: Thursday, 9 April, 2009 8:00:32 AM
Subject: $$Excel-Macros$$ Re: Macros in Outlook


Dave,
 
Below is the code of the macro in the file that Mudassar. I am attaching 
another file that I use for bulk mailing, I have a requirement where in on a 
given day I need to send over 1000 emails and that database of mine is growing 
each day, I cannot afford to sit and press “Yes” on the security warning so I 
have altered the code to suit my need and it works perfect. Pls read the code 
carefully as there are some fine points that you need to read properly.
 
Regards,
Roopesh Kapur
Sub send(i As Integer)
 
Set myOlApp = CreateObject("Outlook.Application")
Set mail = myOlApp.CreateItem(olMailItem)
Set attach = mail.Attachments
 
Worksheets(2).Select
mail.To = Cells(i, 1)
mail.CC = Cells(i, 2)
mail.BCC = Cells(i, 3)
mail.Subject = Cells(i, 4)
mail.Body = Cells(i, 5)
If Cells(i, 6) <> "" Then
    attach.Add "" & Cells(i, 6) & ""
End If
mail.send
 
End Sub
 
Sub email()
   Dim count As Integer
   Dim i As Integer
   Dim ok As Boolean
   Dim errcount As Integer
   Dim message As String
   
    Worksheets(1).Select
    count = Cells(11, 8)
    Worksheets(2).Select
    ok = True
    errcount = 0
    For i = 2 To count + 1
        If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i, 3) = "" Then
           ok = False
           errcount = errcount + 1
        End If
    Next i
    If ok = True Then
        For i = 2 To count + 1
            send (i)
        Next i
    Else
        message = MsgBox("You should have atleast one address in TO,CC or BCC 
field (" & errcount & " errors detected.)", vbOKOnly) = vbOK
    End If
End Sub
 

________________________________

From:excel-macros@googlegroups.com [mailto:excel-mac...@googlegroups.com] On 
Behalf Of Dave Bonallack
Sent: Thursday, April 09, 2009 7:33 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Re: Macros in Outlook
 
Thanks.
 

________________________________

Date: Wed, 8 Apr 2009 18:42:25 -0700
From: alokeshwar.tiw...@yahoo.com
Subject: $$Excel-Macros$$ Re: Macros in Outlook
To: excel-macros@googlegroups.com

 There is no password.. see attached 


_________________________________________________________________________________________________
"There are known knowns. These are things we know that we know. There are known 
unknowns. That is to say, there are things that we know we don't know. But 
there are also unknown unknowns. There are things we don't know we don't know."
 
 

________________________________

From:Dave Bonallack <davebonall...@hotmail.com>
To: "excel-macros@googlegroups.com" <excel-macros@googlegroups.com>
Sent: Thursday, 9 April, 2009 7:07:51 AM
Subject: $$Excel-Macros$$ Re: Macros in Outlook

Hi Mudassar,
Thankyou for posting the email workbook.
Could you please tell us the VBA password so we can see how it works?
Regards - Dave.
 

________________________________

From: johnplaye...@gmail.com
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Re: Macros in Outlook
Date: Wed, 8 Apr 2009 11:05:08 +0500
Please find the attached file. Maybe helpful for you.
 
I didn't remember who share. But its better one I have seen ever.
 
 
Regards,
 
Mudassar Ramzan
----- Original Message ----- 
From:shashank bhosle 
To:excel-macros@googlegroups.com 
Sent:Tuesday, April 07, 2009 11:24 PM
Subject:$$Excel-Macros$$ Macros in Outlook
 
Hi 
  
I have to send a same mail frequently to all the employee.so i need to some 
macros where as i run the macro,the content to automatically apear in new mail 
  
  
Thanks and Regards 
Shashank Bhosle 
  
Life is all about Uncertaity 
 

________________________________

Add more friends to your messenger and enjoy! Invite them now.</A





________________________________

Add more friends to your messenger and enjoy! Invite them now.
</html



      Add more friends to your messenger and enjoy! Go to 
http://messenger.yahoo.com/invite/
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at 
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 

To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain  @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---

Reply via email to