Hi,
I created a Appointment form in Outlook and put at default form of the Calendar folder items.
Now, I need to list the controls that i deployment of the Calendar folder items.
The following example show my code with the control named "numberofpeople" that i want to list :
OLEObject ole_outlook, ole_namespace, ole_folder
Long ll_max, ll_return
Integer ll_count, ll_ind
Datetime ldt_Start
ole_outlook = Create OLEObject
ll_return = ole_outlook.ConnectToNewObject("outlook.application"
If ll_return <> 0 Then
Destroy ole_outlook
Return
End If
ole_namespace = ole_outlook.GetNameSpace("MAPI"
ole_folder = ole_namespace.GetDefaultFolder(9)
ll_max = ole_folder.Items.Count
messagebox("Total", string(ll_max))
For ll_count = 1 To ll_max
ldt_Start = ole_folder.Items(ll_count).Start
MessageBox( "Subject: "+String(ole_folder.Items(ll_count).Subject), + &
"Body: "+String(ole_folder.Items(ll_count).Body) + &
"~nData: " + String(ldt_Start))
IF Date(ldt_Start) < Date(Today()) THEN
Continue
END IF
ll_ind = ole_folder.Items(ll_count).numberofpeople
Next
Thanks
I created a Appointment form in Outlook and put at default form of the Calendar folder items.
Now, I need to list the controls that i deployment of the Calendar folder items.
The following example show my code with the control named "numberofpeople" that i want to list :
OLEObject ole_outlook, ole_namespace, ole_folder
Long ll_max, ll_return
Integer ll_count, ll_ind
Datetime ldt_Start
ole_outlook = Create OLEObject
ll_return = ole_outlook.ConnectToNewObject("outlook.application"
If ll_return <> 0 Then
Destroy ole_outlook
Return
End If
ole_namespace = ole_outlook.GetNameSpace("MAPI"
ole_folder = ole_namespace.GetDefaultFolder(9)
ll_max = ole_folder.Items.Count
messagebox("Total", string(ll_max))
For ll_count = 1 To ll_max
ldt_Start = ole_folder.Items(ll_count).Start
MessageBox( "Subject: "+String(ole_folder.Items(ll_count).Subject), + &
"Body: "+String(ole_folder.Items(ll_count).Body) + &
"~nData: " + String(ldt_Start))
IF Date(ldt_Start) < Date(Today()) THEN
Continue
END IF
ll_ind = ole_folder.Items(ll_count).numberofpeople
Next
Thanks