#1
|
|||
|
|||
Can I make emails with reminders show up on the Calendar?
I've got a folder in Outlook called Estimates. Each time I get a bid request, I add a reminder to it and place it in the Estimates folder, which I have set up to sort by reminder (soonest first), then complete. Every email in the folder is arranged in order from top to bottom by reminder date, and then when I mark them complete, they automatically jump to the bottom. From there, I move the completed ones to another folder within the Estimates folder called Complete.
My question is this: is there any way I can have these emails with reminders attached to them show up in the calendar? When I am setting new reminders, it would be nice to be able to see how many reminders I already have for say, Tuesday, so I can maybe set one for Monday instead. As of right now, I have no earthly idea how many bids I have to do on a given day except for when the reminder alarm pops up every morning. Is what I'm asking possible or am I wanting Outlook to do something it can't? |
#2
|
||||
|
||||
The following macros will add a reminder and an appointment at the same time. You can choose how many days to add (to today) to place the appointment and reminder. Put the macros in the same (new) module, select a message and run the macro 'RemindMsg'. You can add this macro to the ribbon for ease of access.
You may need to use SelfCert.exe to sign the macro. Code:
Option Explicit Sub RemindMsg() Dim olMsg As MailItem On Error GoTo err_handler Set olMsg = ActiveExplorer.Selection.Item(1) FlagMessage olMsg lbl_Exit: Exit Sub err_handler: MsgBox Err.Number & vbCr & Err.Description & vbCr & vbCr & _ "Ensure you have a message selected before running the test macro!" GoTo lbl_Exit End Sub Public Sub FlagMessage(olItem As Outlook.MailItem) Dim strTime As String Dim strDays As String strDays = InputBox("Remind in how many days?") If strDays = "" Then strDays = 1 strTime = Now + Val(strDays) With olItem AddAppt .Subject & " - " & .SenderEmailAddress, strTime .MarkAsTask olMarkThisWeek .ReminderSet = True .ReminderTime = strTime .Save End With lbl_Exit: Exit Sub End Sub Public Sub AddAppt(strSubject As String, strTime As String) Dim objApt As AppointmentItem Set objApt = Application.CreateItem(olAppointmentItem) With objApt .ReminderSet = False .Subject = strSubject .Start = strTime .AllDayEvent = True .Save End With lbl_Exit: Exit Sub End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
Thank you very much!
That's just about perfect. Can I change the "remind me in how many days" box to ask for a specific date, along with the mini clickable calendar that pops up when you manually set reminders? |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
The entries on my Outlook Calendar are not showing up in my email as reminders | Sue K. | Outlook | 0 | 10-29-2014 07:01 AM |
Outlook 2013 calendar reminders disabled on my calendar but show on boss's when i send invites | WUPJ | Outlook | 0 | 08-06-2014 05:29 AM |
Calendar Reminders to Invitees | jdc15371 | Outlook | 0 | 06-26-2014 08:13 AM |
Outlook 2010 - Imported Calendar and Reminders | nickolasj80 | Outlook | 2 | 10-26-2011 01:34 PM |
Calendar Reminders Inoperative | ljleovic | Outlook | 0 | 08-10-2011 10:40 AM |