Groups > it.comp.lang.visual-basic > #19965

Leggere Appuntamenti Calendario di tutti gli account Outlook

Newsgroups	it.comp.lang.visual-basic
Date	2022-03-30 07:29 -0700
Message-ID	<f95ac989-631f-4386-841d-69d97cfd551an@googlegroups.com> (permalink)
Subject	Leggere Appuntamenti Calendario di tutti gli account Outlook
From	MAX Cubisino <max.cubisino@gmail.com>

Show all headers | View raw

Buongiorno,

io ho la necessità di dover leggere gli appuntamenti di un calendario principale dell'utente 1 e copiarli sul calendario principale dell'utente 2 in modo silente.

Ora, la parte lettura Appuntamenti la so;
la parte scrittura nuovo appuntamento, ce l'ho;

La cosa che mi manca è cambiare l'account. +/- il codice è questo:
     Try
         Dim oApp As Outlook.Application
         Dim oCalFolder As Outlook.MAPIFolder
         Dim oAppt As Outlook.AppointmentItem
         oApp = New Outlook.Application
         oCalFolder = oApp.Application.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
         For Each oAppt In oCalFolder.Items
             If Year(oAppt.Start) >= Year(Now()) Then
                 Debug.Print(String.Concat("APPUNTAMENTO: ", oAppt.Subject, " INI: ", oAppt.Start, " END: ", oAppt.End))
                 '--------------------------
                 '---    INSERT CODE FOR ADD ITEMS TO CALENDAR OF ACCOUNT 2
                 '--------------------------
             End If
         Next
         oAppt = Nothing
         oCalFolder = Nothing
     Catch ex As Exception
         MsgBox(ex.Message)
     End Try

Qualcuno può aiutarmi?

Grazie.

Saluti

Back to it.comp.lang.visual-basic | Previous | Next | Find similar

Thread

Leggere Appuntamenti Calendario di tutti gli account Outlook MAX Cubisino <max.cubisino@gmail.com> - 2022-03-30 07:29 -0700

csiph-web