Envoi automatique d'emal en CCI sans popup ?

heparti · 8 Février 2016

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.

Code:

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

Envoi automatique d'emal en CCI sans popup ?

heparti

XLDnaute Occasionnel

Discussions similaires