Envoi automatique d'emal en CCI sans popup ?

[heparti]

Bonjour,

Je créé ce sujet car je n'ai pas trouvé de réponse.

J'ai une macro qui fonctionne très bien en envoyant un email en CCI lors de tout envoi, mais il y a systématiquement une popup qui demande de cliquer sur "oui" ou "non".

Est-il possible de modifier cette macro pour ne plus avoir cette popup ou alors que l'appui sur "oui" se fasse systématiquement ?

Merci pour votre aide.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 

   Dim myRecipient As Outlook.Recipient
 
    If Not Item.Class = olMail Then GoTo fin
 
    Dim prompt As String
 
    ' ici renseigner le destinataire
 
 
 
    cci = "moemail@xxx.com"
 
    
 
    '########################Option CCI############################
 
    prompt = "Ajouter le cci " & cci & " à " & Item.Subject & "?"
Dim reponse
reponse = MsgBox(prompt, vbYesNoCancel + vbQuestion, "Sample")
 
If reponse = vbCancel Then
Cancel = True
Exit Sub
 
 
    ElseIf reponse = vbYes Then
 
        Set myRecipient = Item.Recipients.Add(cci)
 
        myRecipient.Type = olBCC
 
        myRecipient.Resolve
 
        If myRecipient.Resolved = False Then
 
            MsgBox "L'adresse Email n'est pas correcte !", vbCritical, "Erreur"
 
            Cancel = True
 
        End If
 
       End If
 
fin:
 
End Sub