Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
'Macro begins here Public WithEvents objReminders As Outlook.Reminders, _ WithEvents objCalendarItems As Outlook.Items Private Sub Application_Startup() Dim objNS As NameSpace Set objNS = Application.GetNamespace("MAPI") ' instantiate Items collections for folders we want to monitor Set objInboxItems = objNS.GetDefaultFolder(olFolderCalendar).Items Set objNS = Nothing Set objReminders = Application.Reminders End Sub Private Sub objReminders_ReminderFire(ByVal ReminderObject As Reminder) Dim objShell As Object, _ objAppointment As Object Set objShell = CreateObject("Wscript.Shell") If ReminderObject.Item.Class = olAppointment Then Set objAppointment = ReminderObject.Item 'Change the start interval on the next line as desired. The interval is in minutes. If DateDiff("n", Now, objAppointment.Start) <= 2 Then 'Change the triggering category name on the next line as desired. If objAppointment.Categories = "LaunchWeb" Then objShell.Run objAppointment.Location End If End If End If Set objAppointment = Nothing Set objShell = Nothing End Sub 'Macro ends here
|How to search a specific mailbox rule name in all mailboxes in Exchange 2010?||11||64|
|Google email problem||3||40|
|A couple of SPECIFIC Outlook 2016 Archive questions||7||37|
|Excel macro : save an outlook 2010 mail message to a folder||4||38|