pasterthebig.blogg.se

1. #OUTLOOK 2016 REMINDERS NOT CLEARING HOW TO#
2. #OUTLOOK 2016 REMINDERS NOT CLEARING FULL#
3. #OUTLOOK 2016 REMINDERS NOT CLEARING CODE#

RD.AutoFilter Field:=lDLineC, Criteria1:=rLT.Text Worksheets(3).Range(Worksheets(3).Cells(1, lDLineC), Worksheets(3).Cells(10000, lDLineC).End(xlUp)).Copy 'If all are non-highlighted then no urgency mail RD.AutoFilter Field:=lDateC, Criteria1:=rLO.Text HTMLBody = RangetoHTML(Worksheets(5).UsedRange) DeferredDeliveryTime = dC + TimeValue("6:00") Subject = Format(dC, "dd.mm.yyyy") & " Email of " & Format(dC, "mmm") & Format(dC, "yy") Range("A3").Value = "Please find below a list of tasks for today:" Range("a5").PasteSpecial xlPasteColumnWidths RA.AutoFilter Field:=lDateC, Criteria1:=rLO.Text

Set outapp = CreateObject("Outlook.Application") Range("a2").End(xlDown)).SpecialCells(xlCellTypeVisible).EntireRow.Delete xlUp RD.AutoFilter Field:=1, Operator:=xlFilterNoFill 'In third sheet removing the non-highlighted rows Range("a1").End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlYes Worksheets(3).Range("a1").PasteSpecial xlPasteAll Worksheets(3).Range("a1").PasteSpecial xlPasteColumnWidths Worksheets(1).Range("a1").PasteSpecial xlPasteAll Worksheets(1).Range("a1").PasteSpecial xlPasteColumnWidths RAll.SpecialCells(xlCellTypeVisible).Copy LDLineC = rDLine.Column - rAll(1).Column + 1 LDateC = rDate.Column - rAll(1).Column + 1 Set rDLine = Application.InputBox(prompt:="Pls select the Dead Line Column.Any one cell", Type:=8) Set rDate = Application.InputBox(prompt:="Pls select the Date Column.Any one cell", Type:=8)

Set rRes = Application.InputBox(prompt:="Pls select the Res Column.Any one cell", Type:=8) Set rAll = Application.InputBox(prompt:="Pls select the Table", Type:=8)

#OUTLOOK 2016 REMINDERS NOT CLEARING CODE#

The code may be lengthy but basically it is only Filtering, Copying the filtered data, pasting if more than one row,removing duplicates. It will help you in tweaking and updating for future. Hope some small change can make the code final.īut pls go through each line. Run it on a different schedule and let me know.

I tested on a small sample that is why I could not find the bugs.Now have run on all table and no issue like above. There were two other problem which sorted out. I always wrongly expect the above is expected to give count of filtered rows.

#OUTLOOK 2016 REMINDERS NOT CLEARING FULL#

I understand full well that the above might not be much to work on, so I'd me more than happy to provide further info as needed - just let me know :).ĮDIT: Here is the sample file !AtsoeYc3XMyLpxH9Ht12zpTIWkOs DeferredDeliveryTime = Range("K2") & Range("J2" - 1) 'here I am trying to subtract 1H from the reference cells time Set OutApp = CreateObject("Outlook.Application") VbNewLine & "The selection is not a range or the sheet is protected.", vbOKOnly Set rng = Selection.SpecialCells(xlCellTypeVisible)

#OUTLOOK 2016 REMINDERS NOT CLEARING HOW TO#

Also I amīaffled to an extent when trying to "slice" the schedule so that each Email includes always the same headers + only the required tasks (for the daily "summary" or for the 1H-TO-DEADLINE reminder).Īny advise on how to tackle this would be greatly appreciated! Sub MECDailyMail() DeferredDeliveryTime can obtain data from specific reference cells, and how can I subtract 1H from such a reference. Several tasks' if they happen to share the exact same deadline).īelow is the code I started to write, admittedly there are some areas I have difficulties with. To simplify things, the source Excel file looks roughly like this:Īnd the schedule's time span is several days - my aim was to send a "summary" of tasks per given day on 6:00 AM Mon-Fri and then afterwards, exactly 1H before a given tasks deadline, a further reminder with just this particular task's details (or What I've been attempting to do recently is build a somewhat simple macro for sending email reminders based on an Excel file contents.