Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Syncing Confusion

Posted on 2014-02-09
5
Medium Priority
?
283 Views
Last Modified: 2014-05-19
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
0
Comment
Question by:Joseph Salazar
  • 3
  • 2
5 Comments
 
LVL 51

Expert Comment

by:Jackie Man
ID: 39849036
Which version of syncing.net?
0
 

Author Comment

by:Joseph Salazar
ID: 39852068
How about this....

When an Appointment is made in the Syncing.net Folder that it will Copy to his main folder
0
 
LVL 51

Accepted Solution

by:
Jackie Man earned 2000 total points
ID: 39852375
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
 

Author Comment

by:Joseph Salazar
ID: 39862062
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
 

Author Comment

by:Joseph Salazar
ID: 40038602
How do I apply the script to the Calendars I wish to sync?
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Changing a few Outlook Options can help keep you organized!
Mailbox Corruption is a nightmare every Exchange DBA wishes he never has. Recovering from it can be super-hectic if not entirely futile. And though techniques like the New-MailboxRepairRequest cmdlet have been designed to help with fixing minor corr…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
Whether it be Exchange Server Crash Issues, Dirty Shutdown Errors or Failed to mount error, Stellar Phoenix Mailbox Exchange Recovery has always got your back. With the help of its easy to understand user interface and 3 simple steps recovery proced…

877 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question