AJOUT D'UN RDV DANS UN "SOUS CALENDRIER D'OUTLOOK"
cs_wakrim
Messages postés
3
Date d'inscription
jeudi 10 avril 2003
Statut
Membre
Dernière intervention
15 décembre 2006
-
6 févr. 2006 à 19:37
Dixies50 Messages postés 1 Date d'inscription samedi 8 janvier 2011 Statut Membre Dernière intervention 12 janvier 2011 - 12 janv. 2011 à 20:24
Dixies50 Messages postés 1 Date d'inscription samedi 8 janvier 2011 Statut Membre Dernière intervention 12 janvier 2011 - 12 janv. 2011 à 20:24
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/33776-ajout-d-un-rdv-dans-un-sous-calendrier-d-outlook
https://codes-sources.commentcamarche.net/source/33776-ajout-d-un-rdv-dans-un-sous-calendrier-d-outlook
12 janv. 2011 à 20:24
La solution est ici :http://support.microsoft.com/default.aspx?scid=kb;fr;160502&Product=accFra
29 juil. 2010 à 16:40
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 !
19 janv. 2010 à 16:41
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
27 juin 2007 à 11:46
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
10 avril 2007 à 14:20
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+
17 janv. 2007 à 19:28
si vous pouvez m'aider.
8 janv. 2007 à 11:43
Ce bout de code est très intéressant.
Pourrais-tu m'aider sur la création d'une liste de diffusion avec les contacts rattachés, SVP ?
Je n'arrive pas à intégrer mes contacts à ma liste de diffusion. Le flag RESOLVED reste toujours à FALSE.
<<<<<<<<<<<<<<<<<<<<
Set ObjOLApp = CreateObject("Outlook.Application")
' contrôle si le contact n'existe pas déjà dans OutLook
'If Mb_ExistGroupeOL(ObjOLApp, Contact) Then Exit Function
Set objGroupItem = ObjOLApp.CreateItem(7) '7 is Outlook specific and represents a Group document ( Liste de diffusion )
'Populate new objGroupItem fields
With objGroupItem
.Body = Groupe.ListDes
.DLName = Groupe.ListName
For Li_i = 1 To Groupe.NbMembers
Set tempitem Nothing: Set tempcont Nothing
Set tempitem = ObjOLApp.CreateItem(0)
Set tempcont = tempitem.Recipients
tempcont.Add Groupe.NameMembers(Li_i)
tempcont.ResolveAll
.AddMembers tempcont
.Save
Next
'Save the new group
.Save
End With
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Merci par avance.
Crdlt,
Dchrist
5 janv. 2007 à 08:05
je peux essayer de t'aider si tu veux mais qu'as tu besoin?
A+
4 janv. 2007 à 20:00
25 oct. 2006 à 12:10
Public Function CreerRDV(Deb As String, Duree As Integer, Sujet As String, Corps As String, Salle As Integer)
On Error GoTo AddAppt_Err
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Dim MyCalendar As Outlook.Items
Set outobj = CreateObject("outlook.application")
Set MyCalendar = outobj.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item(8).Folders.Item(Salle).Items
'MsgBox outobj.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item(8).Folders.Item(1)
Rem IL FAUDRAIT AUSSI VERIFIER SI IL N'Y A PAS DEJA UN RENDEZ-VOUS
'Ajout au calendrier d'un nouveau "Rendez-Vous"
Set outappt = MyCalendar.Add(olAppointmentItem)
With outappt
.Start = Deb 'Debut de la reservation
.DURATION = Duree 'En minute
.SUBJECT = Sujet 'Le sujet
.BODY = Corps 'Le texte de la reservation
.Location = "" 'Emplacement
.AllDayEvent = False ' Toute la journée oui/non
.ReminderSet = False ' S'il y a un rappel
.Save
End With
Set outobj = Nothing ' Retire de la mémoire les objets créer
CreerRDV = True
Exit Function
AddAppt_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
CreerRDV = False
Exit Function
End Function
A+ et j'espère que ca pourra servir un jour...
25 oct. 2006 à 09:45
Ce code est sympa sauf que j'aimerais l'adapter à mon application mais je ne sais pas comment faire.
En fait j'ai un calendrier qui est dans les "Dossiers Publics" d'outlook, et dans un répertoire nommé "Reservation". Je voudrais pouvoir enregistrer un rdv dans ce calendrier via cette fonction.
Quelqu'un a une idée?
14 juin 2006 à 02:05
Public Function RDV()
Dim OutObj as Outlook.Application
Dim OutAppt as Outlook.AppointmentItem
Dim MyCalendar as Outlook.Items
Set OutObj = CreateObject("Outlook.Application")
... snip ...
.ReminderSet = True
.Save
End With
Set OutObj = nothing
End Function
Est-il possible de contrôler le "Reminder" ?
Supposons que je le met à "Yes" > comment fait-on pour que le rappel soit trois jours avant ce rendez-vous??
Merci d'aider un débutant en programmation VBA pour Outlook 2003. 8- ))
27 mai 2006 à 12:16
Pour répondre à la question sur les agendas partagés, ça marche également en changeant le numéro de Folders.Item(...) par le numéro adhoc.
Le numéro peut être remplacé par le nom du folder "entre guillemets".
28 mars 2006 à 18:35
Je cherche comment supprimer un RdV dans outlook, dans le calendrier principal, peux tu m'aider ?
7 févr. 2006 à 08:51
Si je comprend bien, dans ton cas, il ne s'agit pas de sous calendriers... Et là, je ne sais pas.
Désolé. Toutefois,je te conseille de placer un point d'arret et un espion sur ton Outlook.Item et d'analyser l'arborescence qui en découle... Avec un peut de chance, tu trouveras ton bonheur.
A+
6 févr. 2006 à 19:37
comment je peux visualiser et ajouter les rendez vous aux agendas des autres utilisateurs( agenda partagé outlook)
merci d'avance