Calendrier outlook

Soyez le premier à donner votre avis sur cette source.

Snippet vu 29 704 fois - Téléchargée 37 fois

Commenter

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
tariktarik Messages postés 12 Date d'inscription mardi 25 mai 2004 Statut Membre Dernière intervention 26 juillet 2006
11 janv. 2005 à 11:31
commant il va fanctioner,
mereci d'avance
BrianBellamy Messages postés 24 Date d'inscription jeudi 9 novembre 2000 Statut Membre Dernière intervention 1 avril 2005
22 mars 2005 à 09:24
Ce code gère sur une journée seulement. Est-il possible d'y mettre des variables de jours, d'heures et d'années afin qu'il puisse se balader un peu partout? Pouvez vous me dire où je pourrais les placer dans le code?

Merci d'avance
cs_Kike Messages postés 13 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 1 septembre 2005
1 sept. 2005 à 17:03
tdystart = VBA.Format(Now, "Short Date")
tdyend = VBA.Format(Now + 1, "Short Date")

BRIANBELLAMY va falloir mettre un peu plus de coeur à l'apprentissage du vb.... dans les deux lignes de codes extraites tu retrouves le chaoix des dates de debut et de fin de la recherche par le now fonction renvoyant la date et heure du jour sous le format complet (yyyy/mm/dd hh:mm:ss dans l'ordre je crois). Le code affecte donc aux deux variables tdystart et tdyend la date du jour et celle de demain dans un format sans heure uniquement 'short date'. la recherche s'effectue donc entre ces deux dates. donc si tu écris tdystart = une date format anglais MOIS jour année par exemple "09/23/2005" et si tu fais de même avec tdyend tu viens de changer les criteres de recherche
voilà c'est une explication pour un vrai débutant
BrianBellamy Messages postés 24 Date d'inscription jeudi 9 novembre 2000 Statut Membre Dernière intervention 1 avril 2005
3 sept. 2005 à 09:47
Depuis le temps, j'ai réussi à trouver le moyen. Merci quand même! ;)
C'était la première fois que je travaillais la relation Acces-Outlook et dans un délai de deux mois on est assez pris par la pression et les choses les plus flagrantes sont parfois celles qui m'ont échappé le plus facilement.
Enfin maintenant mon logiciel fonctionne et mon responsable de stage était content de moi ^^

3615 Mylife!

Bye
cecelecyborg Messages postés 16 Date d'inscription mercredi 10 septembre 2003 Statut Membre Dernière intervention 2 octobre 2007
2 oct. 2007 à 10:24
Merci beaucoup pour ce code qui m'a vraiment aidé :-)
Je mets 10/10
S'inscrire maintenant

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.