Une question concernant mon module VBA pour envoi des mail en masse.

Version imprimable

12/10/2010, 12h26
dariyoosh

Une question concernant mon module VBA pour envoi des mail en masse.

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):

Citation:

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
12/10/2010, 13h45
Chipss
Envoi ton mail de la façon ci dessous! Mais ce n'est pas tres securisé :/
Code:

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

toujours le même problème
Voici mon code

Code:

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
.
.
.

Code:

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 :)

14/10/2010, 16h03
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!

:?