begin process at 2010 03 22 07:06:00
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

OLE, DDE, Automation

 > AUTOMATION OUTLOOK (CALENDRIER)

AUTOMATION OUTLOOK (CALENDRIER)


 Information sur la source

Note :
9,33 / 10 - par 6 personnes
9,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :OLE, DDE, Automation Niveau :Débutant Date de création :28/03/2002 Date de mise à jour :03/01/2003 14:34:38 Vu :33 123

Auteur : matgel

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

 Description

Cliquez pour voir la capture en taille normale
Ce code permet d'ajouter des appointment (événement calendrier dans Outlook).  C'est un bout de code simple mais utile pour ceux qui en auront besoin  !

Si quelqu'un désire que je place le code pour ajouter un appointment dans un folder différent que celui par défault, juste à m'envoyer un message et je me ferai un grand plaisir d'updater ma source pour vous !!!  @+
      

Source

  • Private Sub command1_Click()
  • On Error GoTo AddAppt_Err
  • Dim outobj As Outlook.Application
  • Dim outappt As Outlook.AppointmentItem
  • Set outobj = CreateObject("outlook.application")
  • Set outappt = outobj.CreateItem(olAppointmentItem)
  • With outappt
  • .Start = Now
  • .Duration = 10000 ' En minute
  • .Subject = " VOTRE SUJET"
  • .Body = " LE TEXTE DE VOTRE RENDEZ-VOUS "
  • .Location = "L'EMPLACEMENT"
  • .AllDayEvent = True ' 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
  • Exit Sub
  • AddAppt_Err:
  • MsgBox "Error " & Err.Number & vbCrLf & Err.Description
  • Exit Sub
  • End Sub
Private Sub command1_Click()
     
    On Error GoTo AddAppt_Err
        
    Dim outobj As Outlook.Application
    Dim outappt As Outlook.AppointmentItem
    Set outobj = CreateObject("outlook.application")
    Set outappt = outobj.CreateItem(olAppointmentItem)
    
    With outappt
            .Start = Now
            .Duration = 10000        ' En minute 
            .Subject = " VOTRE SUJET"
            .Body = " LE TEXTE DE VOTRE RENDEZ-VOUS "
            .Location = "L'EMPLACEMENT"
            .AllDayEvent = True     ' 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
         
      Exit Sub

AddAppt_Err:
         MsgBox "Error " & Err.Number & vbCrLf & Err.Description
         Exit Sub
      End Sub          

 Conclusion

N'oublier pas qu'il faut ajouter la référence Microsoft Outlook 9.0 object library au projet pour que le code ci-haut fonctionne !

Voilà, il faut savoir qu'on pourrait faire le même genre de truc pour une TASK, un MAIL ou encore toutes les choses que l'on fait avec OUTLOOK !!!          


 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) EXCELDOTNET : PROGRAMMER EXCEL EN DOTNET SANS VBA NI VSTO par Patrice99
Source avec Zip Source avec une capture AJOUTEZ VOTRE COMPLÉMENT À VISUAL BASIC 6 SANS ÊTRE CONTRAIN... par VBsearch
Source avec Zip PILOTER ACROBAT READER DEPUIS EXCEL ET VBA par jpduf
Source avec Zip Source avec une capture INTERCEPTER DES APPELS DE METHODE (SURCHARGE DE VTABLE) par Renfield
Source avec Zip Source avec une capture CYBER COUNTER V2 par makaveli244

Commentaires et avis

Commentaire de VBdevlop le 29/03/2002 22:03:12

Code très clair... Fonctionne très bien.. Merci !
VBDevlop !

Commentaire de captaincav le 02/08/2002 14:10:10

merci :)

par contre, j'aurais une question : comment faire pour ajouter un rendez vous sur le calendrier d'un autre utilisateur?

j'arrive à faire afficher le calendrier dans un autre utilisateur mais quand je veux lui mettre un rendez vous, ca le met en fait sur mon calendrier à moi et non sur le sien :(

tu sais comment faire?

je te remercie :)

Pierre

Commentaire de raphaelle37 le 02/10/2002 14:19:57

pas mal l'idée. saurais-tu comment récupérer les noms des champs d'outlook correspondant aux différents éléments qui compoent le carnet d'adresse (16 champs en tout!). cela me serait d'un très grand secours !
Raph

Commentaire de sebdata le 01/01/2003 15:18:41

ok très bien, mais je cherche à aller plus en VBA Outlook, cad récupérer les infos d'un rendez-vous sélectionné, soit par un clic droit sur le rendez-vous soit par du code classique appelé par un bouton, si quelqu'un peut m'aider ... ( je me permet de t'envoyer un mail)

Commentaire de Jula le 04/06/2003 16:36:21

salut!
je suis débutante en asp.net et mon stage consiste à développer un site en intranet pour les employés, pour qu'ils puissent gérer les marchés, clients, rendez-vous, déplacements, etc.
mon patron veut que j'utilise les bd d'Outlook, notament les contacts.
ils travaillent en réseaux, avec un serveur Exchange

est-ce que tu peux m'aider?
il faut que l'utilisateur du site puisse consulter et modifier les données, comme les contacts, en temps réel (puisque d'autre utilisateurs peuvent s'en servir en même temps)

je te remercie à l'avance du temps que tu peux me consacrer

Jula.

ps:je ne connait pas vb, je n'ai travaillé qu'en C#

Commentaire de ctsmlv le 11/08/2003 17:18:19

salut !!
..on est tous très intéressé sur la façon de gérer les agendas de ses collaborateurs. Saurais-tu nous dire comment si faire pour voir la disponibilité des autres gens ?  d'avance, Merci.

ctsmlv

Commentaire de peug le 25/09/2003 09:42:52

Bonjour ! Il faut donc ajouter le composant OUTLCTL.DLL ? mais si l'utilisateur n'a pas Outlook 2002 ou encore s'il tourne sur une ancienne version... Tout ceci peut poser plein de soucis d'installation ! non? Doit-on alors diffuser le fichier OUTLCTL.DLL ? Merci de votre aide ! Peug

Commentaire de hackoustik le 22/12/2003 19:19:49

Bonsoir,
je voudrais savoir si tu serait en mesure de faire un code qui exporte la liste des contacts outlook dans un fichier texte, portant par exemple le nom ContactsOutlook.txt a enregistrer dans le repertoire ou ce trouve le prog, un system batch, qui juste tu execute le EXE et ta le TXT qui est creer, le truc balo, enfin jdis balo loll mais je ne sait pas comment le faire ;) je ne suis bon que en scripting mIRC ;) alors si tu peu maider sur ce coup ce serait cool ;)
aller bonne soirée.

Commentaire de cyretvirg le 24/12/2003 12:34:43

je cherche à shunter la sécurite outlook en utilisant la reference outlook 9 sous VB6, afin de ne pas avoir à cliquer sur "OUI" à chaque automatisme d'envoi de mail.... Qq'un connait ?

Commentaire de matgel le 24/12/2003 15:39:37

Va voir là :
http://www.dimastr.com/redemption/

Ou je sais qu'il existe un petit soft qui clic OUI automatiquement...
il s'appelle si ma mémoire est bonne CLICKYES... Voici le site :
http://www.express-soft.com/mailmate/clickyes.html

Voilà !!

Commentaire de Belle_ogive le 02/06/2004 09:46:26

Salut,
Excellent ton source mais sais tu le faire en php.

Merci

Commentaire de thierry p le 22/07/2004 16:12:57

Bonjour,

Je cherche à copier une demande de rdv directement dans le calendrier et à accepter le rdv.

Est-ce possible?

Merci d'avance

Commentaire de deuchman le 18/10/2004 10:28:34

Salut touti....
Dites moi, y a possibilité de gérer les doublons... ???
Merci, @+

Commentaire de titoulaps le 21/11/2004 13:25:44

Salut,
moi j'ai déjà fais pas mal de programmation avec visual basic dans EXCEL, mais je débute avec OUTLOOK.
et j'ai déjà du mal à faire fonctionner un bouton tout simple dans un nouveau formulaire créé par mes soins !
comment tu procèdes pour faire un telle chose ?
en fait la commande : "Private Sub command1_Click()" ne fonctionne pas, j'ai du oublier de selectionner quelque chose !
please, help me !

Commentaire de manuelth le 16/12/2004 22:37:13

bonjour
j'ai une messagerie outlook 2000
NOMx (par défaut)
et une seconde messagerie (bal)
NOMx2

je dois expédier un événement calendrier
de MOMx vers MOMx2

datedebut
datefin
objet
répétition 15mn
textbody " le teste "

merci si vous avez ce code car je ne parviens pas
je plante sur les objets outlook

merci encore

Commentaire de Squall____ le 20/12/2004 13:41:51

Salut Titoulaps. Pour répondre à ta question, "Private Sub command1_Click()" est une commande en VB qui se déclenche quand l'utilisateur clique sur le bouton appelé "command1". Je pense que tu dois développer en VBA (les macros) et donc, tu n'as pas d'objet bouton "command1" ! Remplace donc "Private Sub command1_Click()" par "private sub NOMMACRO". Cela devrais fonctionner.

Commentaire de Squall____ le 20/12/2004 13:46:47

Bonjour Matgel.

Je suis à la recherche du code permettant d'interragir (lire, effacer, modifier, checker) avec les tâches sous Outlook. Concrètement, je voudrais que mon code soit capable de vérifier si une tâche précise est présente dans mon Outlook et d'interragir avec elle si elle existe.

Quelqu'un pourrais m'aider ?

Commentaire de tilillou le 25/01/2005 15:14:21

Bonjour magtel
j'ai vu ton code permettant d'ajouter des appointment
c'est tres interressant, mais comment faire pour envoyer à qq un msg sous forme de rendez dans sa boite aux lettre, le destinnataire peut soit accepter ou refuser le rendez-vous?
merci infiniment

Commentaire de manuelth le 25/01/2005 20:28:40

merci beaucoup pour cette procedure elle me servira dans le prog que je realise

mais je serais util d'avoir l'option autre utilisateurs
car dans mon systeme
j'ai mon compte perso et un compte generique ou je dois faire apparaitre les infos dans le calendrier
les recuperer et lancer une alerte si la date et depassee
par un formulaire expediees aux  adresses liees a cette boite generique
merci a l' avance

Commentaire de tatayet95 le 08/05/2005 12:23:37

Salut,

Comment faire pour lire et surtout écrire dans le calendrier d'un autre utilisateur.
Je n'arrive pas à trouver la solution et j'en ai réellement besoin pour le suivi d'un planning au boulot.

Merci

Commentaire de Kptain le 01/07/2005 14:49:11

Bonjour,
Petite question sur PC pas de probleme on trouve toutes les DLL et on peut creer tout ce que l'on veux dans outllok. Par contre je voudrais creer des rendez vous sur un pocket pc sous windows CE et la probleme pas de librairie??? Quelqu'un aurais une solution?
Merci d'avance.
Cyril

Commentaire de Kptain le 01/07/2005 14:49:33

Bonjour,
Tout d'abord merci, comme les autres je pense que la presentation nous a beaucoup apporte.
J'aurais juste une petite question, votre collegue lors de la presantation windows form de l'interface type outlook a presente une fenetre de propriete reprenant toutes les proprietes de tout les controles d'une form, celle ci permetant un renomage plus facile des controles. Impossible de trouver cette fenetre si vous pouviez me faire passer une piste ca serait sympa.
Merci d'avance
Cyril

Commentaire de yan01 le 31/08/2005 15:35:22

Bonjour Matgel,

Ton code est très intéressant, et je suppose qu'il a du servir à bcp d'entre nous...

De mon coté, je travaille sur Outlook... Je cherche à copier une tâche du répertoire par défaut vers un autre répertoire.
Il est important de signaler que le répertoire dans lequel je veux copier ma tâche se trouve sur un autre PC du réseau.

Je ne sais pas si cela rentre dans tes compétences, mais comme tu semblais être capable de produire un code pour ajouter un appointment dans un folder autre que le répertoire par défaut, je pensais que tu pourrais peut-être m'aider sur ce point.

En espérant que ma question soit suffisament claire,

Je te remercie

Yann

Commentaire de patatg le 04/11/2005 08:26:20

bonjour
mon entreprise veut que nous travaillons avec Outlook 2003 notamment en ce qui concerne la partie calendrier
elle souhaite que nous puissions savoir ce que fait l'autre partout dans l'entreprise meme lorsque l'on est pas devant un ordinateur  pour cela il faudrait pouvoir imprimer les calendriers partagés (tous sur une même page)  or on ne sait pas comment faire   pourriez-vous m'aider
merci
patrice

Commentaire de axel95 le 10/11/2005 12:42:57

Egalement intéresser pour l'impression de plusieurs calendrier sur la maême page ?

Commentaire de GG25 le 25/04/2007 14:03:57

Bonjour,Merci pour ce petit bout de prog qui est très intéressant!
J'aimerais savoir comment on fait pour consulter les rendez vous d'un autre utilisateur qui a partagé son calendrier. En effet, j'aimerais pouvoir exporter un certain nombre de calendrier dans une feuille Excel pour créer mon propre planning.
ça fonctionne très bien mais juste pour mes rendez-vous, je n'ai pas encore trouvé la commande pour accéder aux autres calendriers.
En tout cas merci d'avance pour votre aide et pour ce sujet!
GG

Commentaire de koulang le 20/09/2007 09:12:36

super c'est nickel, mais mon problème est que je cherche un prog qui permet d'importer des appointements à partir d'un fichier txt ou mdb.

Merci

Commentaire de tscalendar le 30/10/2008 09:49:16

bonjour,
j'aimerai savoir si il est possible de faire pareil en C#
d'avance merci.

Commentaire de Smyles le 01/04/2009 13:58:55

Je suis très intéressée par ce code vu que je dois synchroniser un planning dans les calendriers outlook des employés.

Commentaire de gfortin9 le 18/05/2009 19:59:02

Allô!

J'utilise un code très semblable inspiré de codes trouvés sur ce forum.
J'aimerais comprendre comment faire pour vérifier sur le rendez-vous existe déjà.
Car présentement, le code permet d'insérer autant de fois un rendez-vous qu'on l'exécute la macro.

Merci de vos bons conseils.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

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,437 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales