Soyez le premier à donner votre avis sur cette source.
Snippet vu 17 617 fois - Téléchargée 28 fois
Public Function RDV() Dim OutObj as Outlook.Application Dim OutAppt as Outlook.AppointmentItem Dim MyCalendar as Outlook.Items Set OutObj = CreateObject("Outlook.Application") 'Concernant la ligne suivante après le ("MAPI") ' Folders.Item(1) : correspond au dossier Personnel ' Folders.Item(5) : correspond au dossier Calendrier standard ' Folders.Item(1) : correspond au sous calendrier, s'il y en a d'autre remplacer par le n° d'index... Set MyCalendar = OutObj.GetNameSpace("MAPI").Folders.Item(1).Folders.Item(5).Folders.Item(1).Items Set OutAppt = MyCalendar.Add(olAppointmentItem) With OutAppt .Start = Now 'Date et Heure du début du RDV .Duration = 60 'Durée du RDV en minute .Subject = "Test de RDV" .Body = "Essai de ligne n°1" & vbcrlf & "Essai de ligne n°2 .Location = "1, place du Capitole 31000 Toulouse" .ReminderSet = True .Save End With Set OutObj = nothing End Function
La solution est ici :http://support.microsoft.com/default.aspx?scid=kb;fr;160502&Product=accFra
merci de me venir en aide pour ajouter automatiquement un rendez vous de ACCESS2007 à OUTLOOK2007 .
ma table PROJET
les champs concernés:
Daterdv
heurerdv
ADRESSE
Remarques
RVDurée
Ces rendez-vous doivent venir sous le calendrier Franck dans outlook 2007
Il faudrait aussi vérifier qu'il n'y ait pas de rdv à la même date, même heure...
Merci beaucoup à ceux qui pourraient m'aider !
Je me permets de venir vers vous car je n'arrive pas à appliquer le code de CRACHYEAR, en effet je me pose plusieurs questions, dans le Set MyCalendar = à quoi correspond le "8" (Folders.Item(8)) et le "Salle" dans (Folders.Item(Salle).Items)
j'ai une erreur sur cette ligne (index de la matrice en dehors des limites) :-(
quand de supprime le Folders.item(Salle) alors il ajoute bien le rdv mais dans mon calendrier local et non dans le calendrier partagé comme je le souhaiterai.
D'avance merci de vos réponses
Cordialement
François
Je débute en VBA et en programmation objet (mais pas en programmation "des papys" ;) )
et je ne vois pas comment on utilise cette super fonction.
Quelqu'un pourrait-il éclairer ma lanterne ?
Merci.
Alf
C'est pas dans le but de te casser, peut-être qu'avec d'anciennes version à outlook 2003 c'est pas possible ou je sais pas, mais...
si tu sélectionne uniquement ton sous-calendrier et qu'ensuite t'effectue la rédaction d'un rendez-vous, il s'enregistre dans ton SOUS-calendrier... (J'avais la même peur avant de savoir...)
A+
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.