S
Sean McPoland
Hi all,
I want to automate various processes through outlook to the Shared
Calendar in Sharepoint Services, using various bits of code I have found
around...I have come up with the following very basic Sub and Function
(where the meat is):
every time I run it however I get error Number: -2147352567 with
message: Invalid shared folder.
can anyone help? I think I've done everything right, just can't get past
the error...
the specific lines =
cro="stssync://tripleX/RBITCSPS/Lists/Calendar/calendar.aspx"
Set MAPIFolder = MAPISession.OpenSharedFolder(cro, Null, Null, Null)
Many thanks in advance
regards
Sean
'
' add a task/appointment to a calendar
'
Sub tester()
Dim x
x = FnAddtoCalendar
End Sub
Public Function FnAddtoCalendar() As Boolean
On Error GoTo ErrorHandler:
Dim MAPISession As Outlook.NameSpace
Dim MAPIFolder As Outlook.MAPIFolder
Dim MAPIMailItem As Outlook.MailItem
Dim blnSuccessful As Boolean
Dim cro As String
'Get the MAPI NameSpace object
Set MAPISession = Application.Session
If Not MAPISession Is Nothing Then
'Logon to the MAPI session
MAPISession.Logon , , True, False
'*****
cro = "stssync://tripleX/RBITCSPS/Lists/Calendar/calendar.aspx"
Set MAPIFolder = MAPISession.OpenSharedFolder(cro, Null, Null,
Null)
'*****
If Not MAPIFolder Is Nothing Then
Set MAPIFolder = Nothing
End If
MAPISession.Logoff
End If
'If we got to here, then we shall assume everything went ok.
blnSuccessful = True
ExitRoutine:
Set MAPISession = Nothing
FnAddtoCalendar = blnSuccessful
Exit Function
ErrorHandler:
MsgBox "An error has occured in the user defined Outlook VBA
function FnAddtoCalendar()" & vbCrLf & vbCrLf & _
"Error Number: " & CStr(Err.Number) & vbCrLf & _
"Error Description: " & Err.Description, vbApplicationModal
+ vbCritical
Resume ExitRoutine
End Function
*** Sent via Developersdex http://www.developersdex.com ***
I want to automate various processes through outlook to the Shared
Calendar in Sharepoint Services, using various bits of code I have found
around...I have come up with the following very basic Sub and Function
(where the meat is):
every time I run it however I get error Number: -2147352567 with
message: Invalid shared folder.
can anyone help? I think I've done everything right, just can't get past
the error...
the specific lines =
cro="stssync://tripleX/RBITCSPS/Lists/Calendar/calendar.aspx"
Set MAPIFolder = MAPISession.OpenSharedFolder(cro, Null, Null, Null)
Many thanks in advance
regards
Sean
'
' add a task/appointment to a calendar
'
Sub tester()
Dim x
x = FnAddtoCalendar
End Sub
Public Function FnAddtoCalendar() As Boolean
On Error GoTo ErrorHandler:
Dim MAPISession As Outlook.NameSpace
Dim MAPIFolder As Outlook.MAPIFolder
Dim MAPIMailItem As Outlook.MailItem
Dim blnSuccessful As Boolean
Dim cro As String
'Get the MAPI NameSpace object
Set MAPISession = Application.Session
If Not MAPISession Is Nothing Then
'Logon to the MAPI session
MAPISession.Logon , , True, False
'*****
cro = "stssync://tripleX/RBITCSPS/Lists/Calendar/calendar.aspx"
Set MAPIFolder = MAPISession.OpenSharedFolder(cro, Null, Null,
Null)
'*****
If Not MAPIFolder Is Nothing Then
Set MAPIFolder = Nothing
End If
MAPISession.Logoff
End If
'If we got to here, then we shall assume everything went ok.
blnSuccessful = True
ExitRoutine:
Set MAPISession = Nothing
FnAddtoCalendar = blnSuccessful
Exit Function
ErrorHandler:
MsgBox "An error has occured in the user defined Outlook VBA
function FnAddtoCalendar()" & vbCrLf & vbCrLf & _
"Error Number: " & CStr(Err.Number) & vbCrLf & _
"Error Description: " & Err.Description, vbApplicationModal
+ vbCritical
Resume ExitRoutine
End Function
*** Sent via Developersdex http://www.developersdex.com ***