- Outlook 2016 reminders maintenance how to#
- Outlook 2016 reminders maintenance full#
- Outlook 2016 reminders maintenance code#
sometimes there's just the table without "best regards" and at other times my name is missing), not sure why since I can see that part is included in your code. for the reminder e-mails the bottom gets cut-off to a various degree (i.e. I've gathered just a handful of questions - it'd be really great if you could have a look:
Outlook 2016 reminders maintenance code#
I went through your code to see how it works, since I wanted to tweak the behavior a little bit to make it even more convenient to use. I've performed a couple of tests and the programming is superb! Thank you! HTMLBody = RangetoHTML(Worksheets(6).UsedRange) DeferredDeliveryTime = dC + TimeValue(rLT.Text) - TimeValue("1:00:00") Subject = "1H TO DEADLINE! #Res " & Join(Application.Transpose(Worksheets(6).Range(Worksheets(6).Cells(6, lResC), rT.Offset(-3))), " ")
Range("A3").Value = "Please be informed that there's 1h left to deadline for the below type 1 and type 2 task(s):" 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) 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 maintenance 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 maintenance 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.