Discussion :

[dariyoosh]

Bonjour,

Je viens de créer un module VBA Excel (j'utilise Excel 2003) pour envoi de mail en masse. Le programme fonctionne correctement et les message sont tous envoyés.

Juste un problème au niveau de la vérification de sécurité: pour chaque destinataire le programme me demande (un MsgBox):

Un programme tente d'envoyer automatiquement des couriers en votre nom. L'autorisez-vous à poursuivre?

Et afin de pouvoir envoyer le message je dois cliquer sur "oui", sinon le programme bloque. Je suis allé dans le menu option>sécurité Excel pour mettre (temporairement) le niveau de la sécurité des macros a plus bas possible mais ça n'a pas résolu le problème. Quelqu'un a une idée comment se débarrasser de cet avertissement, lors de chaque envoi de mail?

Merci d'avance,
Dariyoosh

[Chipss]

Envoi ton mail de la façon ci dessous! Mais ce n'est pas tres securisé :/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
MonMail.Display
DoEvents
SendKeys "%{V}"

Chipss

[dariyoosh]

toujours le même problème
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
.
.
.
With currentMail
    .Display
     DoEvents
     SendKeys "%{V}"
     .To = wksh.Range("A" & cl)
     .Subject = "Information concernant votre nouveau compte messagerie"
     .Body = message
     .Send
End With
.
.
.

[Chipss]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
With currentMail
      .To = wksh.Range("A" & cl)
     .Subject = "Information concernant votre nouveau compte messagerie"
     .Body = message
End With
 
currentMail.Display
DoEvents
SendKeys "%{V}"

Ca plutot

[dariyoosh]

Effectivement je ne voix plus le message d'avertissement, mais un autre problème est survenu. Si j'ai N destinataires, alors je voix N fenêtre d'envoi message Outlook avec le bon adresse destinataire dans chacune. Je dois donc cliquer N fois pour envoyer manuellement chaque message!