It was me who shared this :-)).. Developed by one of my friend. His
name is Prasad Patkar...
On 4/10/09, Dave Bonallack <davebonall...@hotmail.com> wrote:
>
> Hi Roopesh,
> Thanks a lot.
> Regards - Dave.
>
> From: roopesh.ka...@gmail.com
> To: excel-macros@googlegroups.com
> Subject: $$Excel-Macros$$ Re: Macros in Outlook
> Date: Thu, 9 Apr 2009 08:00:32 +0530
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 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
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> _________________________________________________________________
> View photos of singles in your area Click Here
> http://a.ninemsn.com.au/b.aspx?URL=http%3A%2F%2Fdating%2Eninemsn%2Ecom%2Eau%2Fchannel%2Findex%2Easpx%3Ftrackingid%3D1046247&_t=773166080&_r=Hotmail_Endtext&_m=EXT
> >
>
--
With warm regards,
Subu
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
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
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
