Database Search

TechHome

Redemption

• Add Attachment to Journal Item
• Adding Contact Information into Outlook
• Compiled EXE Keeps Running Under Task Manager
• Copy Contacts Folder to Subfolder in Outlook
• Create a Folder under Personal Folders in Outlook
• Create Outlook Distribution List
• Creating Address Book XML File
• Current Contact Folder Items
• Delete Mail from Outlook using OLE
• Delete Outlook Contact
• Email Forwarder
• Embed an Image into an Outlook Email
• Empty Folder in Outlook
• Encrypt Message in Outlook
• Find Contacts in Outlook
• Find Folder with the String Mailbox
• Get Internet headers Field from Outlook Message
• Get Contact data form Contact Item Currently Selected in Outlook
• Get Contact Information In Outlook
• Get Internet headers Field from Outlook Message
• Get list of appointments
• Get member of Outlook Distribution List
• Get Outlook Contact information
• How to Send Mail from Outlook using OLE
• Identify Outlook Folder Type or Contents
• Import Excel Data into Outlook Contact Folder
• Launch Outlook and Make Visible
• List Subfolders
• Mark Messages as Read in Outlook using OLE
• ObjectEventAdd To Capture ItemSend Event
• OLE and OUTLOOK check mail
• OLE and OUTLOOK read mail other than inbox
• OLE and OUTLOOK read mail
• OLE MAPI Choose Folder
• OLE_Outlook- add Entry to Address book
• Outlook - Get Oldest Email Message
• Outlook constants
• Outlook Contacts to XML
• Outlook PST to MSG Export
• Outlook Quit Event
• Outlook Received Date
• Outlook Reply-To in OLE
• Outlook Sendmail OLE Example
• Outlook Version
• Read Open Active Outlook Message
• Recurse Outlook folders
• Redemption Causes WinBatch Studio to Crash
• Rename Personal Folder in Oulook
• Save file attachments in Outlook
• Save outlook attachments
• Send to Multiple Recipients
• Sort Email by Received Time
• TypeOf Equivalent
• Use Existing Instance Or Create a New One If Necessary
• Using OLE to resolve name in Outlook
• WinBatch and Redemption Issue
• Writing Appointments to Outlook

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Get list of appointments

Keywords:   Outlook calendar

Question:

Answer:

Hope this helps get you started

;---------------------------------------------------------------------------
; Outlook_Calendar
;---------------------------------------------------------------------------

;These variables help define a date search filter
StartDateUS = "5/23/1997"
EndDateUS = "5/23/2002"

olPrivate        = 2
olFolderCalendar = 9

objOutlook   = ObjectOpen("Outlook.Application")
objMAPI      = objOutlook.GetNameSpace("MAPI")
objCalendar = objMAPI.GetDefaultFolder(olFolderCalendar)
objItems    = objCalendar.Items

objCurrent   = objMAPI.CurrentUser
objName      = objCurrent.Name
;objName      = "Joe Shmoe"

restriction = StrCat('[Start] >= "',StartDateUS,'" And [End] <= "',EndDateUS,'"')
objRestrict = objItems.Restrict(restriction)
objRestrict.Sort("[Start]")
objFirst    = objRestrict.GetFirst

;check if there are any appointments
if objFirst != 0
	ApptSubject = objFirst.Subject
	ApptStart   = objFirst.Start
	ApptEnd     = objFirst.End
	ApptStatus  = objFirst.BusyStatus
	ApptADE     = objFirst.AllDayEvent
	
	if ApptADE == -1 then
	        ADEflag = "All Day Event"
	else
	        ADEflag = ""
	end if
	if objFirst.Sensitivity == olPrivate then ApptSubject = "PRIVATE"
	BusyStatus = ""
	switch ApptStatus
	        case 1
	                BusyStatus = "Tentative  %ADEflag%"
	                break
	        case 2
	                BusyStatus = "Busy  %ADEflag%"
	                break
	        case 3
	                BusyStatus = "Out of Office  %ADEflag%"
	                break
	end switch
	
	output = FileOpen("c:\temp\outlook.txt","WRITE")
	FileWrite(output,"4 week calendar")
	FileWrite(output,StrCat(ApptStart,@tab,ApptEnd,@tab,ApptSubject,@tab,BusyStatus))
	
	for i = 2 to objRestrict.Count
	        objFirst    = objRestrict.GetNext
	        ApptSubject = objFirst.Subject
	        ApptStart   = objFirst.Start
	        ApptEnd     = objFirst.End
	        ApptStatus  = objFirst.BusyStatus
	        ApptADE     = objFirst.AllDayEvent
	
	        if ApptADE == -1 then
	                ADEflag = "All Day Event"
	        else
	                ADEflag = ""
	        end if
	        if objFirst.Sensitivity == olPrivate then ApptSubject = "PRIVATE"
	
	
	        switch ApptStatus
	                case 1
	                        BusyStatus = "Tentative  %ADEflag%"
	                        break
	                case 2
	                        BusyStatus = "Busy  %ADEflag%"
	                        break
	                case 3
	                        BusyStatus = "Out of Office  %ADEflag%"
	                        break
	        end switch
	
	        FileWrite(output,"%ApptStart%  %ApptEnd%  %ApptSubject%  %BusyStatus%")
	next i
Else
  Message("Appointment checker","No Appointments found")
Endif

ObjectClose(objOutlook)
FileClose(output)

Article ID:   W14682

Filename:   Get list of appointments.txt

File Created: 2003:09:10:07:31:48

Last Updated: 2003:09:10:07:31:48