Hello,

I have written an Function:

Public Function MakeAppointment(strOutlookFolderID As String, strSubject As
String, datDatum As Date, strLocation As String, strBody As String,
bolAllDay As Boolean, Optional strvon As String, Optional strbis As String,
Optional strOutlook As String) As String
5 On Error GoTo Handler
Dim olfolder As Outlook.MAPIFolder
Dim olApp As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim olns As Outlook.NameSpace
Dim myStoreID As String


10 Set olApp = CreateObject("Outlook.Application")
15 Set olns = olApp.GetNamespace("MAPI")
20 olns.Logon , , False, False
25 Set olfolder = olns.GetFolderFromID(strOutlookFolderID)

30 If Nz(strOutlook) = "" Then
35 Set objAppt = olfolder.Items.Add
40 Else
45 myStoreID = olfolder.StoreID
50 Set objAppt = olns.GetItemFromID(strOutlook, myStoreID)
55 End If

60 With objAppt
65 .Subject = strSubject
70 If Nz(Trim(strLocation)) "" Then
75 .Location = strLocation
80 End If
85 If bolAllDay = False Then
90 .start = CDate(datDatum & " " & strvon & ":00")
95 .End = CDate(datDatum & " " & strbis & ":00")
100 .AllDayEvent = False
105 Else
110 .start = datDatum
115 .AllDayEvent = True
120 End If

'recurring appointment
'.IsRecurring

125 .ReminderSet = False
130 .Body = strBody
'.Importance = olImportanceHigh
135 .Save
140 MakeAppointment = .EntryID
145 End With

150 olns.Logoff

155 Set objAppt = Nothing
160 Set olfolder = Nothing
165 Set olns = Nothing
170 Set olApp = Nothing
175 Exit Function
Handler:
Msgbox err.Number & vbnewline & err.Description
End Function

Sometimes I get an error in line 50, 25. I dont know why.
I think the IDs are right.

MFG
James

GetFolderFromID should also have a StoreID parameter if you're trying to access a folder in Public Folders.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"James Bond" u20653@uwe wrote in message news:5e7cc063ad1df@uwe...
Hello,

I have written an Function:

Public Function MakeAppointment(strOutlookFolderID As String, strSubject As
String, datDatum As Date, strLocation As String, strBody As String,
bolAllDay As Boolean, Optional strvon As String, Optional strbis As String,
Optional strOutlook As String) As String
5 On Error GoTo Handler
Dim olfolder As Outlook.MAPIFolder
Dim olApp As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim olns As Outlook.NameSpace
Dim myStoreID As String


10 Set olApp = CreateObject("Outlook.Application")
15 Set olns = olApp.GetNamespace("MAPI")
20 olns.Logon , , False, False
25 Set olfolder = olns.GetFolderFromID(strOutlookFolderID)

30 If Nz(strOutlook) = "" Then
35 Set objAppt = olfolder.Items.Add
40 Else
45 myStoreID = olfolder.StoreID
50 Set objAppt = olns.GetItemFromID(strOutlook, myStoreID)
55 End If

60 With objAppt
65 .Subject = strSubject
70 If Nz(Trim(strLocation)) "" Then
75 .Location = strLocation
80 End If
85 If bolAllDay = False Then
90 .start = CDate(datDatum & " " & strvon & ":00")
95 .End = CDate(datDatum & " " & strbis & ":00")
100 .AllDayEvent = False
105 Else
110 .start = datDatum
115 .AllDayEvent = True
120 End If

'recurring appointment
'.IsRecurring

125 .ReminderSet = False
130 .Body = strBody
'.Importance = olImportanceHigh
135 .Save
140 MakeAppointment = .EntryID
145 End With

150 olns.Logoff

155 Set objAppt = Nothing
160 Set olfolder = Nothing
165 Set olns = Nothing
170 Set olApp = Nothing
175 Exit Function
Handler:
Msgbox err.Number & vbnewline & err.Description
End Function

Sometimes I get an error in line 50, 25. I dont know why.
I think the IDs are right.

MFG
James

Sorry.?

What do you mean?

What must I change?

Sincerely,
James



Sue Mosher [MVP-Outlook] wrote:
GetFolderFromID should also have a StoreID parameter if you're trying to access a folder in Public Folders.

Hello,

[quoted text clipped - 63 lines]
MFG
James

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...g-vba/200604/1

On line 25: to access a folder in Public Folders using GetFolderFromID you
need to supply the StoreID of the Public Folder sto
Set olfolder = olns.GetFolderFromID(strOutlookFolderID,
strPublicStoreID)
If you call GetFolderFromID without supplying the StoreID parameter then it
will only succeed when you supply the EntryID of a folder in the default
mail store (i.e. a folder in the mailbox)

"James Bond via OfficeKB.com" u20653@uwe wrote in message
news:5e867eedb3fc2@uwe...
Sorry.?

What do you mean?

What must I change?

Sincerely,
James



Sue Mosher [MVP-Outlook] wrote:
GetFolderFromID should also have a StoreID parameter if you're trying to
access a folder in Public Folders.

Hello,

[quoted text clipped - 63 lines]
MFG
James

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...g-vba/200604/1

Hello Dave,

thanks.

But I have some questions:

strOutlookFolderID is the internal Outlook String from the folder.

But what is then strPublicStoreID? I think it is the same or?

Sincerely,
James


Dave Kane [MVP - Outlook] wrote:
On line 25: to access a folder in Public Folders using GetFolderFromID you
need to supply the StoreID of the Public Folder sto
Set olfolder = olns.GetFolderFromID(strOutlookFolderID,
strPublicStoreID)
If you call GetFolderFromID without supplying the StoreID parameter then it
will only succeed when you supply the EntryID of a folder in the default
mail store (i.e. a folder in the mailbox)

Sorry.?

[quoted text clipped - 13 lines]
MFG
James

--
Message posted via http://www.officekb.com

The combination of EntryID + StoreID is guaranteed to uniquely identify a particular folder. store ID is also a long string, similar to, but not the same as the Entry ID. You can get it from any folder in the Public Folders hierarchy.
--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"James Bond via OfficeKB.com" u20653@uwe wrote in message news:5e942b0a78f92@uwe...
Hello Dave,

thanks.

But I have some questions:

strOutlookFolderID is the internal Outlook String from the folder.

But what is then strPublicStoreID? I think it is the same or?

Sincerely,
James


Dave Kane [MVP - Outlook] wrote:
On line 25: to access a folder in Public Folders using GetFolderFromID you
need to supply the StoreID of the Public Folder sto
Set olfolder = olns.GetFolderFromID(strOutlookFolderID,
strPublicStoreID)
If you call GetFolderFromID without supplying the StoreID parameter then it
will only succeed when you supply the EntryID of a folder in the default
mail store (i.e. a folder in the mailbox)

Sorry.?

[quoted text clipped - 13 lines]
MFG
James

--
Message posted via http://www.officekb.com