Rien à voir avec l'envoi d'un email.
Je veux seulement créer une tâche dans la liste des tâches Outlook de l'utilsateur.

Super, le premier script est ok
Pour info, pour une tâche (format de base) :
Dans cette option, la tâche est seulement créée et ouverte :
lole_task.Display
Si on veut faire çà de manière "transparente", remplacer le display
par:
lole_Task.Save
lole_task.Close (0)


Integer            li_ret
OLEObject         lole_outlook, lole_task, lole_expls

// Open Outlook
lole_outlook = CREATE OLEObject
If NOT Isvalid (lole_outlook) Then
    MessageBox ("Outlook", "Erreur lors de la création de l'objet OLE")
    Return - 1
End If
   
// Connect to New Remote Object
li_ret = lole_outlook.ConnectToNewObject ("outlook.application")
If li_ret <> 0 Then
    MessageBox("Outlook", "Erreur lors de l'ouverture de Outlook.")
    If isValid (lole_outlook) Then DESTROY lole_outlook
    Return -1
End If

// Maximized Outlook
/*lole_expls = lole_outlook.Explorers
For ll_i = 1 To lole_expls.count
    lole_expls.item(ll_i).windowstate = 0
next*/

// Create task
lole_Task = lole_Outlook.CreateItem (3)  // 3 means Task
lole_Task.Importance = 1           // 0=Low, 1=Normal, 2=High
lole_Task.Subject = "Subject"          // Subject
lole_Task.Body = "Body"
lole_task.Display
//lole_Task.DueDate = ...   
//lole_Task.ReminderTime = ...    // when task owner should be reminded
//lole_Task.Save
//lole_task.Close (0)


// Disconnect from Remote Object
lole_outlook.disconnectobject ()
If isValid (lole_task) Then DESTROY lole_outlook
If isValid (lole_outlook) Then DESTROY lole_outlook
GarbageCollect ()