[MichelXld]

rebonjour à vous


Le principe est identique pour les taches:

'necessite d'activer la reference Microsoft Outlook xx.x Object Library
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.TaskItem
'
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olTaskItem)
With myItem
    .Status = olTaskInProgress
    .Importance = olImportanceHigh
    .DueDate = DateValue("10/19/07")
    .Body = "Rendez vous sur le forum"
    .TotalWork = 40
    .ActualWork = 20
    .Subject = "le titre"
    .Assign
    ' le nom doit exister dans le dossier d'adresses
    .Recipients.Add ("leNom lePrenom")
    .Save
    .Send
End With

Bonne journée
MichelXld