Solved

Syncing Confusion

Posted on 2014-02-09
5
275 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 45

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 45

Accepted Solution

by:
Jackie Man earned 500 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

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

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

Finding original email is quite difficult due to their duplicates. From this article, you will come to know why multiple duplicates of same emails appear and how to delete duplicate emails from Outlook securely and instantly while vital emails remai…
This article describes how to import an Outlook PST file to Office 365 using a third party product to avoid Microsoft's Azure command line tool, saving you time.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
CodeTwo Sync for iCloud (http://www.codetwo.com/sync-for-icloud?sts=6554) automatically synchronizes your Outlook 2016, 2013, 2010 or 2007 folders with iCloud folders available via iCloud Control Panel. This lets you automatically sync them with…

734 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