Excel To Outlook Link 1

[Ed2020]

I want to use MS Excel 2000 to link to my Outlook 2000 calendar and return any entries that contain a keyword.

I am sure this is possible, but I have no idea where to start. Does anyone have any pointers (or sample code) please?

Cheers,

Ed Metcalfe.

Please do not feed the trolls.....

 

[brucegn]

Hopefully this can get you started in the right direction

Sub GetCalendarItems()
'set reference in design mode to Microsoft Outlook xx.x
Dim objO As Outlook.Application
Dim objNS As NameSpace
Dim objCalendar As MAPIFolder
Dim objItem As AppointmentItem
Dim strSearchItem As String
Dim strSearchField As String

Set objO = New Outlook.Application
Set objNS = objO.GetNamespace("MAPI")
'get the calendar folder
Set objCalendar = objNS.GetDefaultFolder(olFolderCalendar)
strSearchItem = "Test" 'set the criteria to search for

'loop through all calendar items
For Each objItem In objCalendar.Items
'set search field to subject line, change to whichever field you want to search on. The intellisense should help you out here
strSearchField = objItem.Subject
If InStr(strSearchField, strSearchItem) > 0 Then
'if the item is found put into cell
Range("A1") = objItem.Subject
End If
Next


End Sub

 

[Ed2020]

Excellent. Thanks very much. Have a purple star!

Please do not feed the trolls.....