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
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
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