Dear,
i think this is based on office latest version.
can this possible in MSOFFICE 2003,
Do the needful
Regards,
Sudhir Ingale
On Sat, Aug 21, 2010 at 8:28 AM, ashish koul <koul.ash...@gmail.com> wrote:
> Sub bdaymessages()
>
> Dim I, K As Long
>
>
> Dim olApp As Outlook.Application
> Dim olMail As MailItem
>
> Dim SigString As String
> Dim Signature As String
>
>
> Application.ScreenUpdating = False
>
>
> Set olApp = New Outlook.Application
>
> 'it is counting the non blank cells in col a
>
> K = Application.WorksheetFunction.
> CountA(Sheets("Sheet1").Range("a:a"))
>
> For I = 2 To K
>
>
> If Day(Now) = Day(CDate(Range("c" & I).Value)) And Month(Now) =
> Month(CDate(Range("c" & I).Value)) Then
>
> Set olMail = olApp.CreateItem(olMailItem)
> With olMail
> .To = ActiveSheet.Range("b" & I).Text
> .Subject = "Happy Birthday Dear " & Range("a" & I).Text
> .Body = "Dear " & ActiveSheet.Range("a" & I).Text & vbCrLf &
> vbCrLf & " birthday message " & vbCrLf & ActiveSheet.Range("e" & I).Text
> .Display
> '.Send
>
> End With
>
> Set olMail = Nothing
>
> End If
>
>
> If (Year(Now) - Year(CDate(Range("D" & I).Value))) Mod 5 = 0 Then
>
>
> Set olMail = olApp.CreateItem(olMailItem)
> With olMail
> .To = ActiveSheet.Range("b" & I).Text
> .Subject = "Congratulations on completion of " & Year(Now) -
> Year(CDate(Range("D" & I).Value)) & " years of service"
> .Body = "Dear " & ActiveSheet.Range("a" & I).Text & vbCrLf &
> vbCrLf & " Congrats message " & vbCrLf & ActiveSheet.Range("e" & I).Text
> .Display
> '.send
> End With
>
> Set olMail = Nothing
>
> End If
>
>
>> Regards
>> Ashish koul
>> http://akoul.blogspot.com/
>>
>>
>>
>> On Sat, Aug 21, 2010 at 10:31 AM, Chandra Gupt Kumar <
>> kumar.bemlmum...@gmail.com> wrote:
>>
>>> Could you please share how it is possible.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> Regards,
>>>
>>>
>>>
>>> C.G.Kumar
>>>
>>>
>>>
>>>
>>>
>>> *From:* excel-macros@googlegroups.com [mailto:
>>> excel-mac...@googlegroups.com] *On Behalf Of *Vasant
>>> *Sent:* Friday, August 20, 2010 1:43 PM
>>> *To:* excel-macros@googlegroups.com
>>> *Subject:* Re: $$Excel-Macros$$ sending e mail based on data in column
>>> in excel
>>>
>>>
>>>
>>> Yes, it is possible to do
>>>
>>>
>>>
>>> Regards
>>>
>>> Vasant
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> On 8/20/10, *Chandra Gupt Kumar* <kumar.bemlmum...@gmail.com> wrote:
>>>
>>> Dear All,
>>>
>>>
>>>
>>> My requirements are as follows;
>>>
>>>
>>>
>>> 1. Based on date of birth (Col D), mail to be sent on particular
>>> day to respective office for good wishes.
>>>
>>> 2. Based on date of joining , congratulation mail to be sent if
>>> the concerned completes 5,10,15,20,25,35,40 years of service.
>>>
>>>
>>>
>>> It is possible to do so ?
>>>
>>>
>>>
>>> Regards,
>>>
>>>
>>>
>>> C.G.Kumar
>>>
>>>
>>>
>>> --
>>>
>>> ----------------------------------------------------------------------------------
>>> Some important links for excel users:
>>> 1. Follow us on TWITTER for tips tricks and links :
>>> http://twitter.com/exceldailytip
>>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>
>>> To post to this group, send email to excel-macros@googlegroups.com
>>>
>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> HELP US GROW !!
>>>
>>> We reach over 7000 subscribers worldwide and receive many nice notes
>>> about the learning and support from the group.Let friends and co-workers
>>> know they can subscribe to group at
>>> http://groups.google.com/group/excel-macros/subscribe
>>>
>>>
>>>
>>>
>>> --
>>> Regards
>>>
>>> Vasant
>>>
>>> --
>>>
>>> ----------------------------------------------------------------------------------
>>> Some important links for excel users:
>>> 1. Follow us on TWITTER for tips tricks and links :
>>> http://twitter.com/exceldailytip
>>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>
>>> To post to this group, send email to excel-macros@googlegroups.com
>>>
>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> HELP US GROW !!
>>>
>>> We reach over 7000 subscribers worldwide and receive many nice notes
>>> about the learning and support from the group.Let friends and co-workers
>>> know they can subscribe to group at
>>> http://groups.google.com/group/excel-macros/subscribe
>>>
>>> --
>>>
>>> ----------------------------------------------------------------------------------
>>> Some important links for excel users:
>>> 1. Follow us on TWITTER for tips tricks and links :
>>> http://twitter.com/exceldailytip
>>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>
>>> To post to this group, send email to excel-macros@googlegroups.com
>>>
>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> HELP US GROW !!
>>>
>>> We reach over 7000 subscribers worldwide and receive many nice notes
>>> about the learning and support from the group.Let friends and co-workers
>>> know they can subscribe to group at
>>> http://groups.google.com/group/excel-macros/subscribe
>>>
>>
>>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> HELP US GROW !!
>
> We reach over 7000 subscribers worldwide and receive many nice notes about
> the learning and support from the group.Let friends and co-workers know they
> can subscribe to group at
> http://groups.google.com/group/excel-macros/subscribe
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 7000 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
