Excel et outlook

[Demouret]

Bonsoir le forum...

J'ai bien trouvé ici le code de Michel qui permet d'alimenter Outlook en RDV depuis Excel.
Cela fonctionne très bien mais place les rendez-vous en demande de réunion. Rien de très grave mais si quelqu'un conaissait le code pour les rendez-vous je prefererais...

Merci
Bonne soirée à vous tous...


Sub NouveauRDV_Calendrier()
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
Dim myOlApp As New Outlook.Application
Dim MyItem As Outlook.AppointmentItem

Set MyItem = myOlApp.CreateItem(olAppointmentItem)

With MyItem
.MeetingStatus = olMeeting
.Subject = 'le forum xld'
.Body = '...description ....'
.Location = 'sur le chat'
.Start = #1/22/2006 9:30:00 PM# ' Attention : format mois/jours/année
.Duration = 30 'minutes
.Save
End With
End Sub

 

[MichelXld]

bonsoir

tu peux faire un essai en remplaçant la ligne

.MeetingStatus = olMeeting

par

.MeetingStatus = olNonMeeting


bonne soirée
MichelXld

 

[Demouret]

Merci Michel
C'est Nickel

:unsure: Saurais tu comment désactiver le rappel ??

Bonne soirée

 

[MichelXld]

rebonsoir

j'espere que cette adaptation pourra t'aider

With MyItem
.MeetingStatus = olNonMeeting
.ReminderSet = False
.Subject = 'le forum xld'
.Body = '...description ....'
.Location = 'sur le chat'
.Start = #3/28/2006 9:30:00 PM# ' Attention : format mois/jours/année
.Duration = 30 'minutes
.Save
End With


bonne soirée
MichelXld

 

[Demouret]

Merci beaucoup Michel

Grace à vous tous ma 'p'tite' appli commence à avoir de la gueule... B)

C'est cool

Merci
Bonne soirée...