Possible to add reminders or flags within a cell?

%3CLINGO-SUB%20id%3D%22lingo-sub-1739627%22%20slang%3D%22en-US%22%3EPossible%20to%20add%20reminders%20or%20flags%20within%20a%20cell%3F%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1739627%22%20slang%3D%22en-US%22%3E%3CP%3EI'm%20creating%20a%20training%20document%20in%20Excel%20and%20would%20like%20to%20add%20a%20flag%20or%20reminder%20that%20would%20show%20up%20in%20my%20Outlook%20calendar%20or%20send%20an%20email.%26nbsp%3B%20Is%20this%20possible%3F%26nbsp%3B%20I've%20been%20exploring%20my%20options%20but%20just%20don't%20find%20anything.%26nbsp%3B%20Am%20I%20just%20missing%20it%3F%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1739627%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1739791%22%20slang%3D%22de-DE%22%3ESubject%3A%20Possible%20to%20add%20reminders%20or%20flags%20within%20a%20cell%3F%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1739791%22%20slang%3D%22de-DE%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F817959%22%20target%3D%22_blank%22%3E%40LoriB600%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22tlid-translation%20translation%22%3E%3CSPAN%20class%3D%22%22%3EYou%20can%20create%20appointments%20directly%20from%20Excel%20in%20Outlook%20with%20VBA.%3C%2FSPAN%3E%20%3CSPAN%20class%3D%22%22%3EThe%20following%20is%20a%20VBA%20code%20that%20you%20can%20easily%20adapt%20to%20your%20needs.%3C%2FSPAN%3E%20%3CSPAN%20class%3D%22%22%3ESo%20you%20can%20read%20the%20parameters%20from%20cells.%3C%2FSPAN%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22tlid-translation%20translation%22%3E%3CSPAN%20class%3D%22%22%3EHere%20is%20a%20small%20example%3A%3C%2FSPAN%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3EOption%20Explicit%0A%0ASub%20Event_Outlook()%0A%0ADim%20ol%2C%20OutApp%20As%20Object%2C%20apptOutApp%20As%20Object%0A%0ASet%20ol%20%3D%20CreateObject(%22Outlook.Application%22)%0ASet%20apptOutApp%20%3D%20ol.CreateItem(1)%0AWith%20apptOutApp%0A%20%20%20%20'.Start%20%3D%20'Start%20of%20the%20appointment%2C%20date%20and%20time%20in%20different%20cells%0A%20%20%20%20'.End%20%3D%20'End%20of%20the%20appointment%0A%20%20%20%20.Subject%20%3D%20%22Projectmeeting%22%20'Betreff%0A%20%20%20%20'.Duration%20%3D%20'Duration%2C%20in%20minutes%20if%20fixed%0A%20%20%20%20.body%20%3D%20%22%20Hello%20everybody%2C%22%20%26amp%3B%20vbCrLf%20%26amp%3B%20vbCrLf%20%26amp%3B%20_%0A%20%20%20%20%20%20%20%20%20%20%20%20%22%20this%20is%20an%20invitation%20to%20the%20project%20meeting%20%22%0A%20%20%20%20.RequiredAttendees%20%3D%20%22max%40mustermann.de%3B%20john%40doe.com%22%20'%20Email%20addresses%0A%20%20%20%20.Location%20%3D%20%22Meeting%20room%22%20'Place%20of%20the%20appointment%0A%20%20%20%20.Categories%20%3D%20%22Projectmeeting%22%20'Assign%20Category%0A%20%20%20%20.ReminderSet%20%3D%20False%20'Set%20reminder%0A%20%20%20%20.ReminderMinutesBeforeStart%20%3D%2043200%20'Number%20of%20minutes%20in%20which%20the%20reminder%20before%20the%20_%0AAppointment%20appears%0A%20%20%20%20.ReminderPlaySound%20%3D%20True%20'%20The%20reminder%20tone%20is%20played%20%0A'%20%20%20%20.Save%20'can%20set%20or%20not%20set%0A%20%20%20%20.Display%20'Open%20the%20appointment%20in%20Outlook%0A%0AEnd%20With%0ASet%20apptOutApp%20%3D%20Nothing%0ASet%20OutApp%20%3D%20Nothing%0A%0AEnd%20Sub%0A%0A%E2%80%9Aungetested%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20would%20be%20happy%20to%20know%20if%20I%20could%20help.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ENikolino%3C%2FP%3E%3CP%3EI%20know%20I%20don't%20know%20anything%20(Socrates)%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CFONT%20size%3D%222%22%3E*%20Kindly%20Mark%20and%20Vote%20this%20reply%20if%20it%20helps%20please%2C%20as%20it%20will%20be%20beneficial%20to%20more%20community%20members%20reading%20here.%3C%2FFONT%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1739998%22%20slang%3D%22en-US%22%3EBetreff%3A%20Possible%20to%20add%20reminders%20or%20flags%20within%20a%20cell%3F%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1739998%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F722750%22%20target%3D%22_blank%22%3E%40Nikolino%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20wish%20I%20understood%20this!%3C%2FP%3E%3CP%3ELooks%20like%20it's%20an%20option%20but%20for%20me%20this%20is%20very%20complicated.%26nbsp%3B%20Might%20just%20not%20be%20a%20simple%20solution%20and%20I%20was%20certainly%20hoping%20there%20might%20be%20and%20I%20was%20just%20missing%20it.%3C%2FP%3E%3CP%3EAny%20other%20suggestions%3F%3C%2FP%3E%3C%2FLINGO-BODY%3E
New Contributor

I'm creating a training document in Excel and would like to add a flag or reminder that would show up in my Outlook calendar or send an email.  Is this possible?  I've been exploring my options but just don't find anything.  Am I just missing it?

3 Replies

@LoriB600 

You can create appointments directly from Excel in Outlook with VBA. The following is a VBA code that you can easily adapt to your needs. You can also read the parameters from cells.

 

Here is a small example:

 

 

Option Explicit

Sub Event_Outlook()

Dim ol, OutApp As Object, apptOutApp As Object

Set ol = CreateObject("Outlook.Application")
Set apptOutApp = ol.CreateItem(1)
With apptOutApp
    '.Start = 'Start of the appointment, date and time in different cells
    '.End = 'End of the appointment
    .Subject = "Projectmeeting" 'Betreff
    '.Duration = 'Duration, in minutes if fixed
    .body = " Hello everybody," & vbCrLf & vbCrLf & _
            " this is an invitation to the project meeting "
    .RequiredAttendees = "max@mustermann.de; john@doe.com" ' Email addresses
    .Location = "Meeting room" 'Place of the appointment
    .Categories = "Projectmeeting" 'Assign Category
    .ReminderSet = False 'Set reminder
    .ReminderMinutesBeforeStart = 43200 'Number of minutes in which the reminder before the _
Appointment appears
    .ReminderPlaySound = True ' The reminder tone is played 
'    .Save 'can set or not set
    .Display 'Open the appointment in Outlook

End With
Set apptOutApp = Nothing
Set OutApp = Nothing

End Sub

‚ungetested

 

 

 

I would be happy to know if I could help.

 

Nikolino

I know I don't know anything (Socrates)

 

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.

 

@Nikolino 

 

I wish I understood this!

Looks like it's an option but for me this is very complicated.  Might just not be a simple solution and I was certainly hoping there might be and I was just missing it.

Any other suggestions?

@LoriB600 

 

If you're not comfortable with VBA, try this option.

Activate from Outlook: With Outlook you can be reminded of important appointments visually and acoustically in all programs.

 

Reminder function in Excel: How to proceed
Go to "View" in the menu.
Click the Toolbar, then Customize.
In the selection list go to “Categories” and then “Extras”.
Select “Create Microsoft Outlook Task”.
Hold down the mouse button and drag this command into your Word toolbar.
Release the mouse button and close this window.

 

I would be happy to know if I could help.

 

Nikolino

I know I don't know anything (Socrates)

 

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.