CALENDRIER OUTLOOK
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
tscalendar Messages postés 2 Date d'inscription mercredi 22 octobre 2008 Statut Membre Dernière intervention 30 octobre 2008 - 30 oct. 2008 à 09:39
tscalendar Messages postés 2 Date d'inscription mercredi 22 octobre 2008 Statut Membre Dernière intervention 30 octobre 2008 - 30 oct. 2008 à 09:39
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
https://codes-sources.commentcamarche.net/source/28732-calendrier-outlook
30 oct. 2008 à 09:39
j'aimerai savoir si il est possible de faire pareil en C#
d'avance merci.
2 oct. 2007 à 10:24
Je mets 10/10
12 juin 2007 à 18:56
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
2 oct. 2006 à 15:44
Je cherche à automatiser, avec une macro sous Outlook 2002, la publication de mon calendrier en tant que page Web.
Merci pour votre aide
9 sept. 2006 à 23:18
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
20 mai 2006 à 09:10
j'ai besoin de créer un dossier de recherche (ou un équivalent) ds le calendrier outlook 2003, et on ne peut pas !
Pouvez-vous medire comment stocker une recherche dans le calendrier ?
(en fait, je dois récupérer tous les km effectués avec les RV de mon calendrier)
si qq'1 peut me guider, merci mille fois !
en clair, je ne sais pas si le code ci-dessus est valable pour moi, ni comment l'utiliser
merci de votre aide !
2 févr. 2006 à 14:02
merci d'avance!!
24 janv. 2006 à 10:59
19 janv. 2006 à 13:32
Effectivement, ça marche mieux.
J'ai par contre les variable VBA et olFolderCalendar qui ne sont pas défini.
Quels sont les références qu'il faut que j'ajoute ?
Merci
19 janv. 2006 à 13:16
ensuite ca devrais fonctionner
16 janv. 2006 à 16:14
je suis débutant en VB donc ne tapez pas trop fort si ma question est stupide
J'utilise Visual Basic 2005 express et il me dit 'type Outlook.Application not defined'. Il me manque une bibliotèque ou quelque chose comme ça ?
Merci d'avance
16 janv. 2006 à 15:39
Je suis archi débutant en VB... alors, ne me tapez pas dessus trop fort si ma question est stupide.
Bon, j'en viens au fait, j'utilise Visual Basic 2005 Express et le code ne marche pas du tout. Il me dit : type 'Outlook.Application' is not defined. Que me manque t'il ?
Merci d'avance
6 janv. 2006 à 14:15
merci quand meme.
14 sept. 2005 à 13:32
J'ai essayé mais le code ci-dessus ne me renvoi rien du tout.
currentAppointment vaut Nothing après le find !
Comme si le .find ne trouvait rien. Quelqu'un a t'il une idée ?
Merci
3 sept. 2005 à 09:47
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
1 sept. 2005 à 17:03
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
22 mars 2005 à 09:24
Merci d'avance
11 janv. 2005 à 11:31
mereci d'avance