Envoi de mail | Supprimer le message d'avertissement

Bonjour,

J'utilise un bout de code pour envoyer un TCD en fin de mois et dès que je l'envoi j'ai un message de sécurité

J'aimerai adapter mon code afin de me dispenser de la validation et ainsi automatiser la tâche à chaque premier jour ouvré du mois.

J'ai tenté avec displayalert en amont et aval mais non

Application.DisplayAlerts = False

Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = Range("N2").Value     'le destinataire
        .Cc = Range("Q2").Value     'En copie
        .Attachments.Add (sRep & "\" & sNomFic)
        .Subject = "Suivi " & mmm & " " & a   'Range("H1").Value   '"Sujet à définir"
            .Body = "Bonjour," _
            & Chr$(13) & Chr$(13) & _
            "Ci-joint le fichier de suivi de production du mois " & Format(DateSerial(Year(periode), Month(periode), 1), "mmmm") & "." _
            & Chr$(13) & Chr$(13) & _
            "Bonne réception."  'le corps du mail ..son contenu
'        .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
        .send    '  Envoie si on ne veut pas ajouter de choses sinon apostrophe et un envoie manuel
    End With

Application.DisplayAlerts = True

Une idée ?

Leakim

Bonjour leakim

Pour moi cela dépend de la stratégie de group qui a été appliqué

https://docs.microsoft.com/fr-fr/office/vba/outlook/how-to/security/security-behavior-of-the-outlook...