Public Folder Apointment

J

James Bond

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
 
S

Sue Mosher [MVP-Outlook]

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

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
D

Dave Kane [MVP - Outlook]

On line 25: to access a folder in Public Folders using GetFolderFromID you
need to supply the StoreID of the Public Folder store:
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 said:
Sorry.?

What do you mean?

What must I change?

Sincerely,
James


GetFolderFromID should also have a StoreID parameter if you're trying to
access a folder in Public Folders.
[quoted text clipped - 63 lines]
MFG
James
 
J

James Bond via OfficeKB.com

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

On line 25: to access a folder in Public Folders using GetFolderFromID you
need to supply the StoreID of the Public Folder store:
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)
[quoted text clipped - 13 lines]
 
S

Sue Mosher [MVP-Outlook]

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

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers


James Bond via OfficeKB.com said:
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

On line 25: to access a folder in Public Folders using GetFolderFromID you
need to supply the StoreID of the Public Folder store:
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)
[quoted text clipped - 13 lines]
MFG
James
 
J

James Bond via OfficeKB.com

Thany you very much.

I try it with StorID.

Sincerely,
James


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.
Hello Dave,
[quoted text clipped - 22 lines]
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top