Désactiver le message d'alerte lors d'envoi de mail depuis Excel VBA

[mintri]

Bonjour le forum,

Je viens vers vous pour un petit souci, n'ayant pas trouvé la solution ailleurs sur le net.

J'ai écrit une petite macro qui me permet d'envoyer un mail depuis Excel, cependant lorsque celle-ci s'exécute, Outlook vient me demander une confirmation, pensant qu'il s'agit potentiellement d'un virus. Ayant potentiellement plusieurs centaines de mails à envoyer, j'aimerais éviter de devoir cliquer inutilement 100 fois sur le même bouton avant qu'Outlook n'envoie le mail, d'autant plus qu'il y a un petit temps de chargement à chaque fois...

Est-il possible de retirer ce message d'alerte ? Pour info, le morceau de code principal que j'utilise :


For i = 2 To last Step 1

Dim ol As Object, myItem As Object

Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)

myItem.To = Cells(i, 1).Value
myItem.Subject = "Reporting Centre de coût num " & Cells(i, 1).Offset(0, 1).Value
myItem.Body = "Bonjour," & vbCrLf & vbCrLf & "Vous trouverez le mois de " & Cells(1, 5).Value & vbCrLf & vbCrLf & "Merci d'en prendre connaissance et de me faire un retour en cas de problème concernant votre centre de coût." & vbCrLf & vbCrLf & "Bien cordialement."

'Fichier à attacher :

myItem.Attachments.Add ActiveWorkbook.Path & "\" & Cells(i, 1).Offset(0, 1).Value & ".pdf"
myItem.Send

Set ol = Nothing

Next

------
Merci par avance !

 

[xltools]

Re : Désactiver le message d'alerte lors d'envoi de mail depuis Excel VBA

Bonjour,

En début de procédure, placez : Application.DisplayAlerts = False

Et en fin de procédure, placez : Application.DisplayAlerts = True

Bon courage !

Hanane.

 

[mintri]

Re : Désactiver le message d'alerte lors d'envoi de mail depuis Excel VBA

Bonjour Hanane,

J'avais déjà essayé mais malheureusement cela ne fonctionne pas (surement du au fait que cela provienne d'Outlook et non d'Excel). J'ai toujours ce message qui me bloque

Merci tout de même !

 

[xltools]

Re : Désactiver le message d'alerte lors d'envoi de mail depuis Excel VBA

Il y a sinon des solutions à installer sur le PC client du type Express ClicYes.
Ca me semble être un éléphant pour écraser une fourmi, mais ça vaut peut être le coup d'essayer

A program is trying to send e-mail on your behalf. Stop this message with ClickYes.

 

[tototiti2008]

Re : Désactiver le message d'alerte lors d'envoi de mail depuis Excel VBA

Bonjour mintri, Bonjour xtools,

C'est une protection Outlook pour piéger les virus et donc ce n'est pas facilement contournable
Sinon, il y a peut-être la solution d'envoyer les mails avec CDO
Sending mail from Excel with CDO

 

[mintri]

Re : Désactiver le message d'alerte lors d'envoi de mail depuis Excel VBA

Bonjour xltools, tototiti2008,

Merci pour votre aide, l'installation d'un logiciel tiers est quasiment impossible dans ma boite du coup je vais essayer de me pencher sur le code de tototiti (même s'il a l'air relativement balèze...).

Si quelqu'un a une autre solution en attendant, je suis preneur aussi

 

[mintri]

Re : Désactiver le message d'alerte lors d'envoi de mail depuis Excel VBA

Je viens d'essayer mais je ne vois absolument pas comment le configurer pour envoyer un mail depuis un serveur Microsoft Exchange... Je vais me pencher dessus cet après-midi mais j'ai l'impression que ça va être difficile...