タスクの送信時に警告を無効にしますが、コピーを保持しません。

Question

ExcelでOutlookタスクを割り当てています。タスクのコピーを保存していないので、タスクが保存されず、とにかく送信したいかどうかを尋ねるアラートが表示されます。

私はSendkeysを使用しています（わかりました、それは良い方法ではありません）。それは私のコンピュータ上で動作していますが、私の同僚のコンピュータでは動作しません。

これらのアラートを無効にすることはできますか？ここで

は私のコードです：

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

あなたがあなた自身のリストでタスクをしたくない場合は、その後、削除し、通常の方法を割り当てます。

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