[Résolu][VBA Word] insertion de rendez-vous dans outlook

insertion de rendez-vous dans outlook [Résolu][VBA Word] - VB/VBA/VBS - Programmation

Marsh Posté le 25-02-2005 à 09:51:03    

Bonjour à tous,
 
J'ai encore un sujet tordu mais qui me sera très utile. Je voudrais pouvoir insérer des rendez-vous dans outlook depuis Word couplé à Excel pour faire du publipostage. Les données des rendez-vous sont dans Excel.
Est-il possible de créer des rendez-vous depuis Word dans Outlook ou depuis Excel ?
Si oui, comment faire ?
 
Merci de vos réponses.   :jap:


Message édité par Manu la Science le 03-03-2005 à 09:28:08

---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...
Reply

Marsh Posté le 25-02-2005 à 09:51:03   

Reply

Marsh Posté le 25-02-2005 à 09:53:42    

On peut, grâce à l'automatisation. Tu instancie un objet Outlook, et t'ajoute ton truc. Par contre j'ai jamais fais :(

Reply

Marsh Posté le 25-02-2005 à 10:56:08    

Pour ceux que cela intéresse, j'ai trouvé ce site qui en parle :
http://support.microsoft.com/defau [...] uct=accFra
Il me reste à l'adapter, ce qui n'a pas l'air si évident. Je posterai le résultat.


---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...
Reply

Marsh Posté le 25-02-2005 à 14:21:07    

J'ai essayé ceci après avoir mis Outlook dans les références de VBE de Word :

Code :
  1. Sub AjoutRV()
  2.     ' Ajouter un nouveau rendez-vous.
  3.        Dim outobj As Outlook.Application
  4.        Dim outappt As Outlook.AppointmentItem
  5.        Set outobj = CreateObject("outlook.application" )
  6.        Set outappt = outobj.CreateItem(olAppointmentItem)
  7.        With outappt
  8.           .Start = "26/02/2005 10:00"
  9.           .Duration = 120
  10.           .Subject = "Essai"
  11.           .Save
  12.        End With
  13.    ' Libérez la variable objet Outlook.
  14.    Set outobj = Nothing
  15.    MsgBox " Rendez-vous ajouté ! "
  16. End Sub


Le rendez-vous est ajouté si et seulement si outlook est lancé. Si je lance cette macro avec Outlook non lancé puis je lance Outlook (je vérifie l'absence de rendez-vous) et je relance la macro, 2 rendez-vous apparaissent pour le jour en question.
J'ai essayé de rajouter la commande "DoCmd.RunCommand acCmdSaveRecord" comme l'indique le lien dans le post précédent, mais la macro plante dessus en demandant un objet (erreur 424).
Je comprend que l'objet ne soit pas défini mais dans l'exemple du lien, il n'est pas défini et je ne comprend pas trop à quoi il sert.
 
Je demande à nouveau votre aide et vous remercie d'avance.   :jap:


---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...
Reply

Marsh Posté le 25-02-2005 à 14:22:29    

Normalement la fonction CreateObject lance un Outlook en arrière plan... Au lieu de metre outobj à Nothing, esaye d'abord de faire genre outobj.Application.Exit, ou un truc comme ça

Reply

Marsh Posté le 25-02-2005 à 14:39:53    

Merci pour ta réponse
J'ai essayé ceci : outobj.Application.Quit
Ca marche également et j'ai découvert qu'il faut un certain temps pour que les rendez-vous s'affiche dans Outlook (du genre presque une minute). En effet, avec le code donné ci-dessus, les rendez-vous sont bien passés mais il mettent du temps à "atterrir" dans Outlook...
Ceci paraît bizarre, mais bon ca marche...


---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...
Reply

Marsh Posté le 25-02-2005 à 14:42:54    

Gueeeeeet :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed