![]() Set objFolder = colFolders.Item(arrFolders(I)) Set objApp = CreateObject("Outlook.Application") StrFolderPath = Replace(strFolderPath, "/", "\") ' "Public Folders\All Public Folders\Company\Sales" Public Function GetFolder(strFolderPath As String) As MAPIFolder ![]() Set GetCalendar = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar) Set myRecipient = myNamespace.CreateRecipient(strPath) Set myNamespace = Application.GetNamespace("MAPI") Public Function GetCalendar(strPath As String) As MAPIFolder Set fld = GetFolder("Personal Folders\DESTINATION") AppointmentItem ' Add new appointment to second calendar AppointmentItem Dim movedAppt As Outlook. Private Sub myOlItems _ItemAdd (ByVal Item As Object ) Dim copyAppt As Outlook. ![]() Set fld = GetCalendar ( "SOURCEMAILBOX" ) If Not fld Is Nothing Then Expand collapse popup Public WithEvents myOlItems As Outlook.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |