CALENDRIER OUTLOOK

Signaler
Messages postés
12
Date d'inscription
mardi 25 mai 2004
Statut
Membre
Dernière intervention
26 juillet 2006
-
tscalendar
Messages postés
2
Date d'inscription
mercredi 22 octobre 2008
Statut
Membre
Dernière intervention
30 octobre 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/28732-calendrier-outlook

tscalendar
Messages postés
2
Date d'inscription
mercredi 22 octobre 2008
Statut
Membre
Dernière intervention
30 octobre 2008

bonjour,
j'aimerai savoir si il est possible de faire pareil en C#
d'avance merci.
cecelecyborg
Messages postés
16
Date d'inscription
mercredi 10 septembre 2003
Statut
Membre
Dernière intervention
2 octobre 2007

Merci beaucoup pour ce code qui m'a vraiment aidé :-)
Je mets 10/10
lanavette
Messages postés
1
Date d'inscription
mercredi 5 mars 2003
Statut
Membre
Dernière intervention
12 juin 2007

Pour DoXt :

Très bien le code VB2005 pour Outlook 2007.

Comment récupérer aussi le commentaire du rendez-vous ?
A l'inverse, comment faire dans l'autre sens pour créer dans outlook 2007 un rendez-vous, son début, sa fin et son commentaire ?
Merci d'avance
Phil63
cdti18
Messages postés
1
Date d'inscription
lundi 2 octobre 2006
Statut
Membre
Dernière intervention
2 octobre 2006

Bonjour,
Je cherche à automatiser, avec une macro sous Outlook 2002, la publication de mon calendrier en tant que page Web.
Merci pour votre aide
doxt
Messages postés
15
Date d'inscription
mercredi 11 août 2004
Statut
Membre
Dernière intervention
7 septembre 2009

Salut, bon en Vb.Net.2005 ca donne cela :
Moi j'ai office 2007 (beta)

(Attention d'ajouter la reference d'outlook)

Private Sub Connect2OutlookCalendar()

Dim myOlApp As Microsoft.Office.Interop.Outlook.Application
Dim myNameSpace As Microsoft.Office.Interop.Outlook.NameSpace
Dim tdystart As Date
Dim tdyend As Date
Dim myAppointments As Microsoft.Office.Interop.Outlook.Items
Dim currentAppointment As Microsoft.Office.Interop.Outlook.AppointmentItem
myOlApp = CreateObject("Outlook.Application")
myNameSpace = myOlApp.GetNamespace("MAPI")

tdystart = Format(Now, "Short Date")
tdyend = Format(Now.AddDays(1), "Short Date")

myAppointments = myNameSpace.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderCalendar).Items
myAppointments.Sort("[Start]")
myAppointments.IncludeRecurrences = True
currentAppointment = myAppointments.Find("[Start] >= """ & tdystart & """ and [Start] <= """ & tdyend & """")

While (TypeName(currentAppointment) <> "Nothing")
MsgBox(currentAppointment.Subject & currentAppointment.Start.ToString & "=>" & currentAppointment.End.ToString)
currentAppointment = myAppointments.FindNext
End While
End Sub