begin process at 2012 02 09 02:49:49
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > AJOUT D'UN RDV DANS UN "SOUS CALENDRIER D'OUTLOOK"

AJOUT D'UN RDV DANS UN "SOUS CALENDRIER D'OUTLOOK"


 Information sur la source

Note :
9,2 / 10 - par 5 personnes
9,20 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :outlook, calendrier, rdv, calendar, meeting Niveau :Initié Date de création :13/09/2005 Vu :13 996
Auteur : mpsi

Ecrire un message privé
Commentaire sur cette source (16)
Ajouter un commentaire et/ou une note

 Description

Salut à tous.
J'ai tellement galéré pour pouvoir ajouter un RDV à ce que j'appelle un sous calendrier outlook que voici le petit pout de code qui permet ce miracle...
Voici ce que j'appelle un "sous-calendrier" : Lorsque vous êtes dans outlook et que vous créez un ou plusieurs nouveaux calendriers, ceux-ci se placent sous le calendrier par défaut de Outlook.
Des bout de codes permettant d'ajouter, supprimer, modifier ou trouver des RDV dasn le calendrier "Principal " ne manquent pas, mais pour ce qui est des sous calendrier...
Voici le code:
PS : N'oubliez pas de rajouter la référence "Outlook à votre projet...

Source

  • 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
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

 Conclusion

Je reste à votre disposition...


 Sources de la même categorie

Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
Source avec Zip Source .NET (Dotnet) PENSE BÊTE par alpha5
Toutes les sources de la catégorie Divers

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) CALENDRIER ANNUEL NORME ISO par Prog1001
Source avec Zip Source avec une capture Source .NET (Dotnet) OUTLOOK ICAL EXPORTER par xsimo
CRÉATION/CANCEL MEETING SUR CALENDRIER D'UN AUTRE QUE CELUI ... par mitsh666
MACRO POUR EXPORTER LE CALENDRIER COMPLET OUTLOOK EN FORMAT ... par lettredinfo
Source avec Zip Source avec une capture SYNCHRONISATION DES SOUS CALENDRIERS OUTLOOK DANS LE CALENDR... par Sbt

Commentaires et avis

Commentaire de wakrim le 06/02/2006 19:37:20

Bonjour,

comment je peux visualiser et ajouter les rendez vous aux agendas des autres utilisateurs( agenda partagé outlook)

merci d'avance

Commentaire de mpsi le 07/02/2006 08:51:44

Bonjour,

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+

Commentaire de coati94 le 28/03/2006 18:35:55

Super pour ce code merci,
Je cherche comment supprimer un RdV dans outlook, dans le calendrier principal, peux tu m'aider ?

Commentaire de Pollagoras le 27/05/2006 12:16:21

Super le code...

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".

Commentaire de gfortin9 le 14/06/2006 02:05:29

Dans ce code

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- ))

Commentaire de crashyear le 25/10/2006 09:45:08

Bonjour,

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?

Commentaire de crashyear le 25/10/2006 12:10:35

C'est bon j'ai trouvé comment faire :
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...

Commentaire de niox83 le 04/01/2007 20:00:25

Bonjour votre bout de code est trés interesant.Mais je voudrai l'adapter a l'agenda electronique que je veux developper en VB6.0:pourriez vous m'aider?

Commentaire de crashyear le 05/01/2007 08:05:47

Bonjour,
je peux essayer de t'aider si tu veux mais qu'as tu besoin?
A+

Commentaire de dchrist le 08/01/2007 11:43:46

Bonjour,
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

Commentaire de niox83 le 17/01/2007 19:28:43

j'ai pu trouvé le calendrier et l'inserer dans mon formulaire vb mais j'ai rencontré un probléme pour la gestion des rendez-vous avec le meme calendrier.
si vous pouvez m'aider.

Commentaire de mitsh666 le 10/04/2007 14:20:05

Salut,

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+

Commentaire de bong03 le 27/06/2007 11:46:04

Bonjour,

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

Commentaire de faischier123456 le 19/01/2010 16:41:08

Bonjour,
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

Commentaire de annalulu le 29/07/2010 16:40:38

bonjour à tous!
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 !

Commentaire de Dixies50 le 12/01/2011 20:24:03

Bonjour ANNALULU

La solution est ici :http://support.microsoft.com/default.aspx?scid=kb;fr;160502&Product=accFra

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

outlook calendar [ par mraskin ] Bonjour,je suis entrain de me battre avec VBA et Outlook !mon but: filtrer par un programe VBA les entrées de calendrier, sur leur catégorie, et rense creation rdv dans outlook a partir de vb [:(!] [ par ebarraud ] bonjourj'ai crée dans outlook plusieurs calendrier : C1,C2,C3 ...je voudrais créer avec vb un rendez vous dans un de ces calendriers....j'utilise Dim Rendez vous Outlook [ par ymayeux ] Bonjour &#224; tous,J'enregistre de multiples rendez vous pour plannifier des employ&#233;s malheureusement tous ces&nbsp;RDV se retrouvent aussi dans Ajout RDV dans Outlook depuis VB Access [ par ] Bonsoir,Dans une base access j'enregistre des RDV Clients qui sont ajout&#233; automatiquement dans le Calendrier Outlook &#224; l'aide du code VB ci- Supprimer un rdv du calendrier Outlook [ par DarkCid ] Yaoh ! L&#224;, j'ai vraiment un big probl&#232;me que je n'arrive pas &#224; r&#233;soudre. Je dois modifier le calendrier Outlook suivant les modifi OLE Calendrier Outlook [ par annethe ] Bonjour,J'ai trouv&#233; dans ce site comment on pouvait ajouter un rdv avec ole; mais c dans le calendrier par d&#233;faut de Outlook.Dans outlook, j VBS Access et calendrier outlook [ par sisi187 ] Bonjour,J'ai un projet ou je dois lier un formulaire&nbsp;avec le calendrier d'outlook. En fait nous avons sur notre intranet un formulaire (cod&#233; Help! VBA-Outlook Appointment!! Envoyer un rdv dans un autre calendrier que celui par défaut [ par BrianBellamy ] Je crois que le titre est suffisament &#233;vocateur... Pour une application, je dois cr&#233;er plusieurs calendrier dans lesquels on doit pouvoir in Calendrier d'un autre utilisateur Outlook [ par tatayet95 ] Salut,Comment ouvrir le calendrier d'un autre utilisateur dans Outlook (calendrier dont je suis d&#233;l&#233;gu&#233;s).Je voudrais lire ses RDV et & outlook 2002 : exporter des elements du calendrier [ par hydrocephale ] bonjour,j'ai besoin d'exporter regulierement vers une feuille excel un certain nombre d'elements du calendrier d'outlook. cela se fait sans probleme e


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,749 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)