Hi Jeetendra,
Appreciate your efforts putting here, but my requirements are little
different, which will not serve the purpose from your macro. Thanks for
your help
On Mon, Jun 4, 2012 at 5:06 PM, Jitendra singh <jeete2...@gmail.com> wrote:
>
>
> Option Explicit
>
>
>
> Function RangetoHTML(rng As Range)
>
> ' Changed by Ron de Bruin 28-Oct-2006
>
> ' Working in Office 2000-2010
>
> Dim fso As Object
>
> Dim ts As Object
>
> Dim TempFile As String
>
> Dim TempWB As Workbook
>
>
>
> TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") &
> ".htm"
>
>
>
> 'Copy the range and create a new workbook to past the data in
>
> rng.Copy
>
> Set TempWB = Workbooks.Add(1)
>
> With TempWB.Sheets(1)
>
> .Cells(1).PasteSpecial Paste:=8
>
> .Cells(1).PasteSpecial xlPasteValues, , False, False
>
> .Cells(1).PasteSpecial xlPasteFormats, , False, False
>
> .Cells(1).Select
>
> Application.CutCopyMode = False
>
> On Error Resume Next
>
> .DrawingObjects.Visible = True
>
> .DrawingObjects.Delete
>
> On Error GoTo 0
>
> End With
>
>
>
> 'Publish the sheet to a htm file
>
> With TempWB.PublishObjects.Add( _
>
> SourceType:=xlSourceRange, _
>
> Filename:=TempFile, _
>
> Sheet:=TempWB.Sheets(1).Name, _
>
> Source:=TempWB.Sheets(1).UsedRange.Address, _
>
> HtmlType:=xlHtmlStatic)
>
> .Publish (True)
>
> End With
>
>
>
> 'Read all data from the htm file into RangetoHTML
>
> Set fso = CreateObject("Scripting.FileSystemObject")
>
> Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
>
> RangetoHTML = ts.readall
>
> ts.Close
>
> RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
>
> "align=left x:publishsource=")
>
>
>
> 'Close TempWB
>
> TempWB.Close savechanges:=False
>
>
>
> 'Delete the htm file we used in this function
>
> Kill TempFile
>
>
>
> Set ts = Nothing
>
> Set fso = Nothing
>
> Set TempWB = Nothing
>
> End Function
>
>
>
>
>
> Function GetBoiler(ByVal sFile As String) As String
>
> 'Dick Kusleika
>
> Dim fso As Object
>
> Dim ts As Object
>
> Set fso = CreateObject("Scripting.FileSystemObject")
>
> Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
>
> GetBoiler = ts.readall
>
> ts.Close
>
> End Function
>
>
>
> Option Explicit
>
>
>
> Sub Send_Row()
>
> ' Don't forget to copy the function RangetoHTML in the module.
>
> ' Working in Office 2000-2010
>
> Dim OutApp As Object
>
> Dim OutMail As Object
>
> Dim cell As Range
>
> Dim rng As Range
>
> Dim Ash As Worksheet
>
>
>
> Set Ash = ActiveSheet
>
> On Error GoTo cleanup
>
> Set OutApp = CreateObject("Outlook.Application")
>
>
>
> With Application
>
> .EnableEvents = False
>
> .ScreenUpdating = False
>
> End With
>
>
>
> For Each cell In
> Ash.Columns("B").Cells.SpecialCells(xlCellTypeConstants)
>
> If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0, 1).Value)
> = "yes" Then
>
>
>
> Ash.Range("A1:O100").AutoFilter Field:=2, Criteria1:=cell.Value
>
>
>
> With Ash.AutoFilter.Range
>
> On Error Resume Next
>
> Set rng = .SpecialCells(xlCellTypeVisible)
>
> On Error GoTo 0
>
> End With
>
>
>
> Set OutMail = OutApp.CreateItem(0)
>
>
>
> On Error Resume Next
>
> With OutMail
>
> .To = cell.Value
>
> .Subject = " Month Target vs Achievement"
>
> .HTMLBody = RangetoHTML(rng)
>
> .Display 'Or use Send
>
> End With
>
> On Error GoTo 0
>
>
>
> Set OutMail = Nothing
>
> Ash.AutoFilterMode = False
>
> End If
>
> Next cell
>
>
>
> cleanup:
>
> Set OutApp = Nothing
>
> With Application
>
> .EnableEvents = True
>
> .ScreenUpdating = True
>
> End With
>
> End Sub
>
>
>
>
>
>
>
>
>
>
>
> ------------------------------------------------------------------------------END--------------------------------------
>
> REGARDS
> JITENDRA SINGH
> 9015340017
>
>
> On Mon, Jun 4, 2012 at 4:03 PM, Puttu * <puttu...@gmail.com> wrote:
>
>> Experts,
>>
>> Could you please please help on the below request.
>>
>> On Mon, Jun 4, 2012 at 2:00 PM, Puttu * <puttu...@gmail.com> wrote:
>>
>>> below is the required details for your reference once again.
>>>
>>> Sr. No. Task (Subject Name) First Reminder Date & Time Second
>>> Reminder Date & Time Final Reminder Date & Time Status Email Group 1 Status
>>> Mail 6/4/12 17:00 6/5/12 20:00 6/6/12 22:00 Inprogress
>>> puttu...@gmail.com
>>> puttu_...@yahoo.co.in <puttu...@gmail.com> 2 QC 6/5/12 17:00 6/5/12
>>> 17:00 6/6/12 22:00 Completed puttu...@gmail.com
>>> puttu_...@yahoo.co.in <puttu...@gmail.com> 3 Buddy Check 6/6/12 18:00 6/6/12
>>> 18:00 6/6/12 22:00 Completed puttu...@gmail.com
>>> puttu_...@yahoo.co.in <puttu...@gmail.com> 4 Release 6/7/12 17:00 6/7/12
>>> 5:00 6/6/12 22:00 Inprogress puttu...@gmail.com
>>> puttu_...@yahoo.co.in <puttu...@gmail.com> 5 Confirmation Mail 6/8/12
>>> 17:00 6/8/12 5:00 6/8/12 22:00 Completed puttu...@gmail.com
>>> puttu_...@yahoo.co.in <puttu...@gmail.com>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> Need a macro based on the given date and time in 1st, 2nd & Final
>>> reminder columns to all the email ID
>>>
>>>
>>> Subject mail should be content of cell text in the column B
>>>
>>>
>>> This Task list shouldn't be limited to only for row 6 it should be never
>>> ending (B:B)
>>>
>>>
>>> If Any Case column F status changed to Completed, after the 1st or 2 or
>>> Final Remider, then there would be no more reminder mails
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> On Mon, Jun 4, 2012 at 1:44 PM, Puttu * <puttu...@gmail.com> wrote:
>>>
>>>> Hello Experts,
>>>>
>>>> Any update on the below macro? Your help is much appreciated. Thanks
>>>>
>>>>
>>>> On Mon, Jun 4, 2012 at 12:19 AM, Puttu * <puttu...@gmail.com> wrote:
>>>>
>>>>> Hi Excel Experts,
>>>>>
>>>>> Need a help on the macro for automated email reminders. below is the
>>>>> requirements. Attached is sheet for your reference
>>>>>
>>>>>
>>>>> Need a macro based on the given date and time in 1st, 2nd & Final
>>>>> reminder columns to all the email ID Subject mail should be content
>>>>> of cell text in the column B This Task list shouldn't be limited to
>>>>> only for row 6 it should be never ending (B:B) If Any Case column F
>>>>> status changed to Completed, after the 1st or 2 or Final Reminder, then
>>>>> there would be no more reminder mails
>>>>> Please help me on this. Appreciated all you support
>>>>>
>>>>> --
>>>>> Putta
>>>>>
>>>>> --
>>>>> FORUM RULES (986+ members already BANNED for violation)
>>>>>
>>>>> 1) Use concise, accurate thread titles. Poor thread titles, like
>>>>> Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
>>>>> Advice will not get quick attention or may not be answered.
>>>>>
>>>>> 2) Don't post a question in the thread of another member.
>>>>>
>>>>> 3) Don't post questions regarding breaking or bypassing any security
>>>>> measure.
>>>>>
>>>>> 4) Acknowledge the responses you receive, good or bad.
>>>>>
>>>>> 5) Cross-promotion of, or links to, forums competitive to this forum
>>>>> in signatures are prohibited.
>>>>>
>>>>> NOTE : Don't ever post personal or confidential data in a workbook.
>>>>> Forum owners and members are not responsible for any loss.
>>>>>
>>>>>
>>>>> ------------------------------------------------------------------------------------------------------
>>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>>
>>>>> To unsubscribe, send a blank email to
>>>>> excel-macros+unsubscr...@googlegroups.com
>>>>
>>>>
>>>>
>>>>
>>>> --
>>>> Putta
>>>>
>>>
>>>
>>>
>>> --
>>> Putta
>>>
>>
>>
>>
>> --
>> Putta
>>
>> --
>> FORUM RULES (986+ members already BANNED for violation)
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>>
>> 2) Don't post a question in the thread of another member.
>>
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>>
>> 4) Acknowledge the responses you receive, good or bad.
>>
>> 5) Cross-promotion of, or links to, forums competitive to this forum in
>> signatures are prohibited.
>>
>> NOTE : Don't ever post personal or confidential data in a workbook. Forum
>> owners and members are not responsible for any loss.
>>
>>
>> ------------------------------------------------------------------------------------------------------
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> To unsubscribe, send a blank email to
>> excel-macros+unsubscr...@googlegroups.com
>
>
> --
> FORUM RULES (986+ members already BANNED for violation)
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
>
> 2) Don't post a question in the thread of another member.
>
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> NOTE : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
>
>
> ------------------------------------------------------------------------------------------------------
> To post to this group, send email to excel-macros@googlegroups.com
>
> To unsubscribe, send a blank email to
> excel-macros+unsubscr...@googlegroups.com
>
--
Putta
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
