HI
Thanks you very much for the help but to clear it attaching an example
This is the format below where i need to send this type of mail everyday to
staff.Everytime i have to copy it and paste in new mail, i want a macro in such
a way that when i open then mail and run the macros it should automatically
paste this type of content .As we do in excel.i.e we just record the macros and
then run to obtain the recorded content in same way i need it in outlook please
help
Name
Roll no
% Percentage
Grade
xyz
2415
49%
B
uvs
3454
55%
B
dsf
45414
75%
A
sdd
4545
45%
C
--- On Thu, 9/4/09, Roopesh Kapur <roopesh.ka...@gmail.com> wrote:
From: Roopesh Kapur <roopesh.ka...@gmail.com>
Subject: $$Excel-Macros$$ Re: Macros in Outlook
To: excel-macros@googlegroups.com
Date: Thursday, 9 April, 2009, 8:00 AM
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
Connect with friends all over the world. Get Yahoo! India Messenger at
http://in.messenger.yahoo.com/?wm=n/
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
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
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
