title: duplicate Appointments between 2 account calendars in outlook
body: <p>i need to sync my 2 calendars of my 2 accounts in outlook, is that possible?</p>
  <p>thanks</p>
  <p>I must insert a for each command for read all Appointments in calendar Account 1 and copy him to calendar of account 2.</p>
  <p>this is possible?</p>
  <p>My Start Is:</p>
  <pre><code>    Dim oApp As Outlook.Application
      Dim oCalFolder As Outlook.MAPIFolder
      Dim oAppt As Outlook.AppointmentItem
      Dim sOldText As String
      Dim sNewText As String
      Dim iCalChangedCount As Integer
  
      oApp = New Outlook.Application
  
      oCalFolder = oApp.Application.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
  
      For Each oAppt In oCalFolder.Items
  
          If Year(oAppt.Start) &gt;= Year(Now()) Then
              Debug.Print(String.Concat(&quot;APPUTAMENTO: &quot;, oAppt.Subject, &quot; INI: &quot;, oAppt.Start, &quot; END: &quot;, oAppt.End))
  
              ***-------
              INSERT CODE FOR ADD ITEMS TO CALENDAR OF ACCOUNT 2
              -------***
  
          End If
      Next
  
      oAppt = Nothing
      oCalFolder = Nothing
  </code></pre>