creation rdv Outlook

Je me réponds à moi même, j'ai trouvé la solution et elle peut servir à
d'autre.

Sub AjoutRDV()
Dim AppliOutlook As Outlook.Application
Dim NouveauRDV As Outlook.AppointmentItem

Set AppliOutlook = New Outlook.Application
Set NouveauRDV = AppliOutlook.CreateItem(olAppointmentItem)

With NouveauRDV
.Subject = "Test Nouveau RDV"
.Location = "lieu RDV"
.Start = "04/04/2006 09:00:00"
.Duration = 8.5 * 60 ' 510
.ReminderMinutesBeforeStart = 60 * 24
.BusyStatus = olOutOfOffice
.Body = "faut être à l'heure sinon t'es à la bourre"
.Sensitivity = olPrivate
.Save
' .Display
End With

End Sub

Si on valide la ligne "Display" en mettant la ligne "Save" en commentaire,
ça permet de visualiser la requête.

Jean


"Jean" <jj@free.fr> a écrit dans le message de news:
44315e78$0$18342$8fcfb975@news.wanadoo.fr...

Bonjour

A partir d'une macro Excel, comment puis-je créer un rendez-vous dans
Outlook pour la date du 20/04/2006 de 09h00 à 17h00?

Merci d'avance.

Jean