Home Page - www.tele-pro.co.uk - Ecommerce Integration


Scripts > ActiveAppointment

ActiveAppointment is a VB module for Outlook, and enables Outlook Calendar to be used as a Windows command scheduler.

Add the code below to the Outlook 'ThisOutlookSession' module.

Create an Appointment with the Category 'ActiveAppointment', and add the command as a single line in the body. The appointment might look like this:

The command in the body of the appointment runs when reminder fires.

Note: The reminder must be set for the appointment, and also Security must not be set to 'High'.

Download the code as text

ActiveAppointment.bas

'ActiveAppointment.bas
'njms 29.06.2003
'Enables Outlook Calendar to be used as Command Scheduler

'add this code to Outlook VB Project\ThisOutlookSession
'create an Appointment with the Category "ActiveAppointment"
'Command runs when reminder fires - reminder must be set
'add the shell cmd as a single line in the body

'Functions:
'Application_Reminder
'ActiveAppointment
'WSHRun

Private Sub Application_Reminder(ByVal Item As Object)
'Reminder event
If (TypeOf Item Is AppointmentItem) And _
(Item.Categories = "ActiveAppointment") Then _
Call ActiveAppointment(Item)
End Sub

Public Function ActiveAppointment(ByVal appt As AppointmentItem)
'handle ActiveAppointment
Dim b As String
b = appt.Body 'get cmd
appt.ReminderSet = False
appt.Close (False) 'close reminder popup
Call WSHRun(Trim(b), 1, False) 'run cmd
End Function

Public Function WSHRun(strCmd As String, bVisible As Integer, bWait)
'Shell run
Dim WSHShell
Set WSHShell = CreateObject("wscript.Shell")
WSHShell.Run strCmd, bVisible, bWait
Set WSHShell = Nothing
End Function

 

See Also

Go Internet Payment Invoicing System
Go HTTP Session Request
Go Software Downloads
Go Script Programmers Required
 

Keywords

Script, program, free scripts, programming, JavaScript, Active Server Pages, ASP, XML, VBScript, CGI, Perl, PHP, web development, Outlook, automation, scheduler, command, task schedule, appointment

Your Feedback is Important

Why not let us know your feedback, or any suggestions you have? Your opinion and feedback is very important to us and to future website visitors, as it enables the continual improvement of products, services, scripts and software available from this website.

Anonymous

Use our Internet Invoicing System to accept payment for invoicesInternet Payment Invoicing System

Our Internet Payment Invoicing System enables you to email a link to your clients and makes it easy to pay you online. Set up an online payment directly from MS Outlook. More info...

Top | Home | ECommerce | Hosting | Site Map | Search | © 2003-6 | Contact