Solved

Syncing Confusion

Posted on 2014-02-09
5
262 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 41

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 41

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

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

Use these top 10 tips to master the art of email signature design. Create an email signature design that will easily wow recipients, promote your brand and highlight your professionalism.
Is your Office 365 signature not working the way you want it to? Are signature updates taking up too much of your time? Let's run through the most common problems that an IT administrator can encounter when dealing with Office 365 email signatures.
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …
To add imagery to an HTML email signature, you have two options available to you. You can either add a logo/image by embedding it directly into the signature or hosting it externally and linking to it. The vast majority of email clients display l…

746 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

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now