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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu][VBA Word] insertion de rendez-vous dans outlook

Manu la Science

...la science ... pas toujours

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

Publicité

FlorentG

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

Manu la Science

...la science ... pas toujours

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

Manu la Science

...la science ... pas toujours

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

Code :

Sub AjoutRV()
' Ajouter un nouveau rendez-vous.
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application" )
Set outappt = outobj.CreateItem(olAppointmentItem)
With outappt
.Start = "26/02/2005 10:00"
.Duration = 120
.Subject = "Essai"
.Save
End With
' Libérez la variable objet Outlook.
Set outobj = Nothing
MsgBox " Rendez-vous ajouté ! "
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...

FlorentG

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

Manu la Science

...la science ... pas toujours

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

FlorentG

Gueeeeeet

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
executable de + de 7Mo [Résolu]	[résolu]tableau avec CSS, pb sous IE
Trier ListBox en Vba	Ressource (presque résolu)[résolu]
Insertion d'une image dans un drawgrid	cin desynchro! [resolu]
VBA-Combobox, la réponse du combobox	[resolu] [SWT et MVC] modifier une pripriété d'un GUI de l'extérieur ?
Comment envoyer des mails sous vb via outlook 2003	[Résolu][Perl/Gtk2] Récupérer les éléments d'un Gtk2::TreeView
Plus de sujets relatifs à : [Résolu][VBA Word] insertion de rendez-vous dans outlook

Page générée en 0.035 secondes