Vba inscrire un rendez-vous outlook dans un calendrier partagé depuis excel? +
salut tlm
Messages postés12Date d'inscriptionjeudi 17 août 2006StatutMembreDernière intervention17 septembre 2008
-
26 août 2008 à 20:52
salut tlm
Messages postés12Date d'inscriptionjeudi 17 août 2006StatutMembreDernière intervention17 septembre 2008
-
17 sept. 2008 à 11:16
Salut la communauté !
J'aimerais pouvoir ajouter un rendez-vous dans le calendrier outlook d'un de mes collaborateur. J'ai pu voir qu'il était possible de le faire sur notre calendrier, mais je n'ai pas trouvé de solution pour le faire sur un calendrier partagé.
Attention: Ce n'est pas une demande de rendez-vous que j'aimerais inscrire, mais bien un rendez-vous.
J'aimerais aussi savoir comment utiliser créer un evenement qui se lance à chaque apparition d'un formulaire excel. Le but est de remplir une liste à choix de celui-ci par rapport à une colone de donnée excel.
youpiyoyo
Messages postés539Date d'inscriptionvendredi 6 juin 2003StatutMembreDernière intervention14 juillet 2010 27 août 2008 à 11:04
Salut,
Voici un exemple de comment faire un rendez-vous. pour ton calendrier partager il faut que tu créés un Namespace et que tu récupères le folder de ton calendrier partagé, il devrait avoir un nom, s'il ne change pas met le en dur, sinon voici un exemple:
Dim myOlApp As New Outlook.Application
Dim appitm As Outlook.AppointmentItem
Set appitm = myOlApp.CreateItem(olAppointmentItem)
appitm.Subject = "vba test"
appitm.Start = Now
appitm.End = Now
appitm.Body = "test"
appitm.Display
si tu es dans excel n'oubli pas les ref vers outlook.
@+
youpi :)
youpiyoyo
Messages postés539Date d'inscriptionvendredi 6 juin 2003StatutMembreDernière intervention14 juillet 2010 27 août 2008 à 14:02
essaye un truc du genre
Dim myOlApp As New Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim appitm As Outlook.AppointmentItem
Set myNamespace = myOlApp.GetNamespace("MAPI")
Dim CalendarFolder As Outlook.MAPIFolder
Set myRecipient = myNamespace.CreateRecipient("le Nom de ton recipient")
myRecipient.Resolve
If myRecipient.Resolved Then
Set CalendarFolder = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar)
Else
Exit Sub
End If
Set appitm = myOlApp.CreateItem(olAppointmentItem)
appitm.Subject = "vba test"
appitm.Start = Now
appitm.End = Now
appitm.Body = "test"
appitm.Display
salut tlm
Messages postés12Date d'inscriptionjeudi 17 août 2006StatutMembreDernière intervention17 septembre 2008 3 sept. 2008 à 17:35
Outlook 2003.
Je pense que le problème se trouve ici:
Set appitm = myOlApp.CreateItem(olAppointmentItem)
Parce que quand je fais:
appitm.display
Et que je regarde dans planification le seul utilisateur assigné est moi même.
youpiyoyo
Messages postés539Date d'inscriptionvendredi 6 juin 2003StatutMembreDernière intervention14 juillet 2010 4 sept. 2008 à 09:49
appitm.display n'affiche uniquement l'item que tu as crée donc ton erreur ne peut venir de la.
tu auras forcement des messages de securité c'est ce qui est pénible, mais est-ce que tu as bien fais attention a changer "le Nom de ton recipient"
sinon tu toujours un exit sub parce que le recipient ne sera jamais resolve. Je viens de retster le code que je t'ai donner il marche chez moi avec outlook 2003...
@+
youpi :)