Improve company productivity with a Business Account.Sign Up

x
?
Solved

Syncing Confusion

Posted on 2014-02-09
5
Medium Priority
?
286 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 53

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 53

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

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Let us take a look at the scenario, you have a database that is corrupt and you run the ESEUTIL command only to find you are unable to repair it. How do you now get the data back?
This tutorial summarizes the causes behind"an unknown error prevented access to the PST File”.  It also suggests the various solutions to fix the problem.
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…
If you are looking for an automated tool which can generate reports for Outlook emails and other items from PST file, then you can go for Kernel PST Reporter tool. The reports which are created by this tool are helpful to analyze and understand PST …

606 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