please find the link http://www.rondebruin.nl/mail/folder3/row.htm http://www.teachexcel.com/excel-help/excel-how-to.php?i=178460#1
try On Mon, Jul 25, 2011 at 2:27 PM, Manish <pansari.man...@gmail.com> wrote: > Any help Pls... > > - > Manish > > On Jul 20, 2:43 pm, Manish <pansari.man...@gmail.com> wrote: > > Thanks Ashish, > > > > Is it possible to attach the picture saved in computer?? > > Like, If I will mention the path of the image file in column E, and > > excel will send that image in the body of outlook mail. > > > > Also suggest me, I want to restrict the person, So they can not reply > > and forward my mail. > > As the option is available in MS Outlook, But is it possible to send > > mail thru excel with such permissions?? > > > > Regards, > > Manish > > > > On Jul 19, 9:35 pm, ashish koul <koul.ash...@gmail.com> wrote: > > > > > > > > > The easiest way to send an image in the body of outlook mail is to add > the > > > image on any photo sharing website like photobucket.com ,etc > > > > > and use the code in the attached workbook > > > > > or open this link > > > > >http://akoul.blogspot.com/2011/07/sending-birthday-images-messages-to. > .. > > > > > On Tue, Jul 19, 2011 at 1:38 PM, Manish <pansari.man...@gmail.com> > wrote: > > > > Dear EE, > > > > Dear Ashish, > > > > > > Its really helpful for me to understand the VBA. > > > > > > My requirement is 85% similar but I also want to add some selective > > > > greeting picture in body text after massage and before signature and > > > > also want to sent the mail thru excel with Permission “Do not > forward” > > > > and “Do not Reply”. > > > > > > Please suggest. > > > > > > Thanks, > > > > Manish > > > > > > ---------- Forwarded message ---------- > > > > From: ashish koul <koul.ash...@gmail.com> > > > > Date: Aug 21 2010, 3:27 pm > > > > Subject: $$Excel-Macros$$ sending e mail based on data in column in > > > > excel > > > > To: MS EXCEL AND VBA MACROS > > > > > > in reference select Microsoft outlook library > > > > > > 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 = "HappyBirthdayDear " & Range("a" & I).Text > > > > .Body = "Dear " & ActiveSheet.Range("a" & I).Text & vbCrLf & > > > > vbCrLf > > > > & " birthday message " & vbCrLf & ActiveSheet.Range("e" & I).Text > > > > .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 > > > > .Send > > > > End With > > > > > > Set olMail = Nothing > > > > > > End If > > > > > > Next I > > > > Set olApp = Nothing > > > > Application.ScreenUpdating = True > > > > End Sub > > > > > > Regards > > > > Ashish koulhttp://akoul.blogspot.com/ > > > > > > On Sat, Aug 21, 2010 at 2:09 PM, Chandra Gupt Kumar < > > > > > > kumar.bemlmum...@gmail.com> wrote: > > > > > Hey I have copied and pasted in new module, but it is showing > compile > > > > > error. If you don’t mind, could u please attach the code in > notepad. > > > > > > > Regards, > > > > > > > C.G.Kumar > > > > > > > *From:* excel-macros@googlegroups.com [mailto: > > > > > excel-macros@googlegroups.com] *On Behalf Of *ashish koul > > > > > *Sent:* Saturday, August 21, 2010 12:59 PM > > > > > > > *To:* excel-macros@googlegroups.com > > > > > *Subject:* Re: $$Excel-Macros$$ sending e mail based on data in > column in > > > > > excel > > > > > > > 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 = "HappyBirthdayDear " & 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-macros@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 athttp://www.excel-macros.blogspot.com > > > > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > > > > > 5. Excel Tips and Tricks athttp://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 athttp://www.excel-macros.blogspot.com > > > > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > > > > > 5. Excel Tips and Tricks athttp://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 athttp://www.excel-macros.blogspot.com > > > > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > > > > > 5. Excel Tips and Tricks athttp://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. > > > > ... > > > > read more »- Hide quoted text - > > > > - Show quoted text - > > -- > > ---------------------------------------------------------------------------------- > 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 > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > -- ---------------------------------------------------------------------------------- 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 <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel
