Hi All,
Please note that the below attachment is working fine. But when there is not
attachment, then If the cells ( Attachment & Doc ) are blank then the body
is found missing in the mail.
Please help.
Thanks & Regards,
Gurumurty Sastry K H
On 4/10/09, Subu <pns...@gmail.com> wrote:
>
>
> 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
>
> >
>
--
Thanks & Regards,
Gurumurty Sastry K H
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
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
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
