Alarm beim Senden der Aufgabe deaktivieren, aber keine Kopie behalten

Question

Ich weise Outlook eine Aufgabe über Excel zu. Da ich keine Kopie der Aufgabe gespeichert habe, wird eine Warnung angezeigt, die besagt, dass die Aufgabe nicht gespeichert wird und fragt, ob ich sie trotzdem senden möchte.

Ich habe Sendkeys verwendet (ich weiß, es ist kein guter Weg). Es funktioniert auf meinem Computer, aber nicht auf den Computern einiger meiner Kollegen.

Wäre es möglich, diese Warnungen zu deaktivieren?

Hier ist mein 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

Wenn Sie nicht wollen, um die Aufgabe in Ihrer eigenen Liste dann die normale Art und Weise zuweisen dann löschen.

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