Calendrier outlook

Soyez le premier à donner votre avis sur cette source.

Snippet vu 28 807 fois - Téléchargée 35 fois

Contenu du snippet

Ce code permet de recuperer les données d'un calendrier outlook
il n'est pas tres compliqué mais apres des recherches n'aboutissant pas je me suis penché sur l'affaire et voila :

Source / Exemple :


Sub DemoFindNext()
    Dim myOlApp As Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim tdystart As Date
    Dim tdyend As Date
    Dim myAppointments As Outlook.Items
    Dim currentAppointment As Outlook.AppointmentItem
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    tdystart = VBA.Format(Now, "Short Date")
    tdyend = VBA.Format(Now + 1, "Short Date")
    Set myAppointments = myNameSpace.GetDefaultFolder(olFolderCalendar).Items
    myAppointments.Sort "[Start]"
    myAppointments.IncludeRecurrences = True
    Set currentAppointment = myAppointments.Find("[Start] >= """ & tdystart & """ and [Start] <= """ & tdyend & """")
    While TypeName(currentAppointment) <> "Nothing"
       MsgBox currentAppointment.Subject
       Set currentAppointment = myAppointments.FindNext
Wend
End Sub

Conclusion :


J'espere que ca pourra aider quelques uns !!!

A voir également

Ajouter un commentaire

Commentaires

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.
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
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
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
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
Afficher les 18 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.