Syncing Confusion

Client has Outlook 2010
Client has Iphone
Client has Syncing.net

Client is currently syncing his outlook to Icloud

Client is currently syncing 1ea) outlook folder with two others using syncing.net for Calendar

Now he wants to sync his Syncing.net folder to his Main Outlook folder so when his assistant enters an appointment in syncing.net --> it syncs with the Main Folder so It will sync with his  Iphone....

How do i sync his shared folder to his Main folder without the entire history of the Main folder syncing to the Shared folder?

Cjoego
Joseph SalazarVice President - Senior IT ConsultantAsked:
Who is Participating?
 
Jackie ManConnect With a Mentor Commented:
You need to have the following VBA script to do what you want, i.e. to auto copy the new calendar items from the Syncing.net Folder too the main folder.

Dim WithEvents curCal As Items
  
Private Sub Application_Startup()
   Dim NS As Outlook.NameSpace
   Set NS = Application.GetNamespace("MAPI")
   Set curCal = NS.GetDefaultFolder(olFolderCalendar).Items
   Set NS = Nothing
End Sub
  
Private Sub curCal_ItemAdd(ByVal Item As Object)
Dim cAppt As AppointmentItem
Dim moveCal as AppointmentItem
' On Error Resume Next
Set newCalFolder = GetFolderPath("display name in folder list\Calendar\Test")
 
If Item.BusyStatus = olBusy Then
 
Set cAppt = Application.CreateItem(olAppointmentItem)
 
With cAppt
    .Subject = "Copied: " & Item.Subject
    .Start = Item.Start
    .Duration = Item.Duration
    .Location = Item.Location
    .Body = Item.Body
End With
 
' set the category after it's moved to force EAS to sync changes
 Set moveCal = cAppt.Move(newCalFolder)
 moveCal.Categories = "moved"
 moveCal.Save
 
    End If
 End Sub
 
 
Function GetFolderPath(ByVal FolderPath As String) As Outlook.Folder
    Dim oFolder As Outlook.Folder
    Dim FoldersArray As Variant
    Dim i As Integer
         
    On Error GoTo GetFolderPath_Error
    If Left(FolderPath, 2) = "\\" Then
        FolderPath = Right(FolderPath, Len(FolderPath) - 2)
    End If
    'Convert folderpath to array
    FoldersArray = Split(FolderPath, "\")
    Set oFolder = Application.Session.Folders.Item(FoldersArray(0))
    If Not oFolder Is Nothing Then
        For i = 1 To UBound(FoldersArray, 1)
            Dim SubFolders As Outlook.Folders
            Set SubFolders = oFolder.Folders
            Set oFolder = SubFolders.Item(FoldersArray(i))
            If oFolder Is Nothing Then
                Set GetFolderPath = Nothing
            End If
        Next
    End If
    'Return the oFolder
    Set GetFolderPath = oFolder
    Exit Function
         
GetFolderPath_Error:
    Set GetFolderPath = Nothing
    Exit Function
End Function

Open in new window


Details are in the link below.

http://www.slipstick.com/developer/copy-new-appointments-to-another-calendar-using-vba/
0
 
Jackie ManCommented:
Which version of syncing.net?
0
 
Joseph SalazarVice President - Senior IT ConsultantAuthor Commented:
How about this....

When an Appointment is made in the Syncing.net Folder that it will Copy to his main folder
0
 
Joseph SalazarVice President - Senior IT ConsultantAuthor Commented:
The Icloud sync was broken and Needed to be repaired.

When it was done it doubled up on lots of things.

Waiting for the client to clean it up so we can test
0
 
Joseph SalazarVice President - Senior IT ConsultantAuthor Commented:
How do I apply the script to the Calendars I wish to sync?
0
All Courses

From novice to tech pro — start learning today.