Désactiver l'alerte lors de l'envoi d'une tâche sans en conserver une copie

Question

J'attribue une tâche Outlook via Excel. Comme je n'ai pas sauvegardé une copie de la tâche, une alerte indique que la tâche ne sera pas sauvegardée et demande si je veux l'envoyer quand même.

J'ai utilisé Sendkeys (je sais, ce n'est pas un bon moyen). Cela fonctionne sur mon ordinateur mais pas sur les ordinateurs de certains de mes collègues.

Serait-il possible de désactiver ces alertes?

Voici mon code:

Sub SendMail(dest As String, Echeance As String) 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
Dim i As Integer 
Dim nom As String 
Dim compte As Integer 
Dim myOlApp As Outlook.Application 
Dim myItem As Outlook.TaskItem 
Dim myDelegate As Outlook.Recipient 
Set myOlApp = New Outlook.Application 

For i = 1 To myOlApp.Session.Folders.Count 
    If myOlApp.Session.Folders.Item(i) = "_F_VTG-LBA ALCG-RAVEVAC" Then 
     compte = i 
     Exit For 
    End If 
Next i 


Set myItem = myOlApp.Session.Folders.Item(compte).Items.Add(olTaskItem) 

myItem.Assign 
Set myDelegate = myItem.Recipients.Add(dest) 

myDelegate.Resolve 
If myDelegate.Resolved Then 
    myItem.Subject = Task.titre 
    myItem.Body = Task.Mess 
    myItem.DueDate = Echeance 

    myItem.StartDate = Now 
    myItem.ReminderTime = True 'Rappel 
    myItem.Display 
    Application.DisplayAlerts = False 
    myItem.Send 

'Or 

    Application.Wait (Now + TimeValue("0:00:03")) 
    Application.SendKeys "^~" 'presses send as a send key 
    Application.Wait (Now + TimeValue("0:00:03")) 
    SendKeys "TAB", True 
    SendKeys "{ENTER}", True 
    i = 0 
End If 
Application.DisplayAlerts = True 
Application.ScreenUpdating = True 
End Sub 

Answer 1

Si vous ne voulez pas la tâche dans votre propre liste puis attribuez-lui la manière habituelle puis supprimer.

myItem.Display ' Do not uncheck the box 
myItem.Send 
myItem.Delete