Your technology certification is waiting. Enroll in Cloud Class ®
Open in new window
An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.
One of a set of tools we're offering as a way of saying thank you for being a part of the community.
Sub addCalItemfromRule(mai As MailItem)
Sub addCalItem(Optional mai As MailItem)
Dim strDate As String
Dim calitem As Object
If mai Is Nothing Then
If TypeName(Application.ActiveWindow) = "Inspector" Then
Set mai = Application.ActiveInspector.CurrentItem
ElseIf TypeName(Application.ActiveWindow) = "Explorer" Then
Set mai = Application.ActiveExplorer.Selection(1)
strDate = InputBox("Please Enter the date for the Calendar entry ... or blank to skip", "Shortcut to Mail Item in Calendar")
If strDate <> "" Then
If IsDate(strDate) Then
.AllDayEvent = True
.Start = DateValue(strDate) + TimeSerial(9, 0, 0)
.ReminderMinutesBeforeStart = 15
.ReminderSet = True
.Subject = mai.Subject
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.