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

Reply via email to