[MichelXld]

bonjour

Je ne sais pas ce que tu appelles un reminder mais voici une macro qui crée un nouveau rendez vous dans Outlook:

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 = #8/7/2006 9:30:00 PM#     ' Attention : format mois/jours/année
    .Duration = 30 'minutes
    .Categories = "Amis"
    .Save
End With
 
Set myOlApp = Nothing
End Sub

Bonne journée
MichelXld