Discussion :

[krystal_059]

Bonjour,
j'ai créé une macro sous outlook 2003 qui envoie des mails.
A l'exécution de la macro, j'ai un problème avec la sécurité d'Outlook. Deux messages d'avertissement s'affichent :
"Un programme essaie d'accéder aux adresses de messagerie enregistrées dans Outlook. L'autorisez-vous à poursuivre ?" et "Un programme tente d'envoyer automatiquement des courriers en votre nom. L'autorisez vous à poursuivre ?".
J'aimerai ne pas devoir cliquer sur 'Yes' à chaque fois car il y a au minimum 50 mails à partir chaque semaine.
De plus, je ne peux pas télécharger le programme ClickYes puisque mon programme est à usage professionnel et doit pouvoir tourner sur plus de 400 postes.
Quelqu'un aurait-il une idée qui pourrait m'aider ? J'ai déjà parcouru plusieurs forums à la recherche d'une solution mais je ne l'ai pas trouvée.
En plus, je dois rendre ce projet à la fin du mois...
merci de votre réponse

Voici le 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Dim objOutlook As Outlook.Application 
Dim objOutlookMsg As Outlook.MailItem 
Dim objOutlookRecip As Outlook.Recipient 
Dim objOutlookAttach As Outlook.Attachment 
 
Public CorpsMail As String 
Public Mail As String 
Public Mail2 As String 
 
 
Sub MailItNow() 
 
Mail = "xxx@xxx.fr
Mail2 = "xxx2@xxx.fr
 
CorpsMail = "Bonjour" & ", " & vbCrLf & vbCrLf & _ 
"message" & vbCrLf & vbCrLf & _ 
"Cordialement" 
 
Call EnvoiMessage 
 
End Sub 
 
 
Sub EnvoiMessage(Optional Pieces_Jointes) 
 
On Error Resume Next 
 
Set objOutlook = CreateObject("Outlook.Application") 
 
Set objOutlookMsg = objOutlook.CreateItem(olMailItem) 
 
With objOutlookMsg 
.To = Mail 
.CC = Mail2 
.Subject = "..." 
.body = CorpsMail 
.Importance = olImportanceNormal 
 
For Each objOutlookRecip In .Recipients 
objOutlookRecip.Resolve 
If Not objOutlookRecip.Resolve Then 
Exit Sub 
End If 
Next 
 
.Send 
 
End With 
 
Set objOutlookMsg = Nothing 
Set objOutlook = Nothing 
 
End Sub

Configuration: Windows XP Internet Explorer 6.0 Excel 2003 Outlook 2003

[AlainTech]

A mon avis, la seule solution valable en entreprise pour envoyer des mails sans intervention est d'utiliser CDO.

Fais une recherche dans ce forum avec le mot clé CDO et tu devrais trouver ton bonheur.

[krystal_059]

Merci pour ta réponse mais je n'ai pas pu la tester.
J'ai reçu de nouvelles directives entre temps : les personnes qui vont l'utiliser préfèrent vérifier ce qui est écrit dans le mail et rajouter une pointe perso si besoin est.
Par conséquent, j'ai uniquement modifié le .Send en .Display et mon problème est réglé.
Ils vont surement mettre plus de temps pour l'envoi mais ce n'est plus mon problème.
S'ils souhaitent finalement que tout soit automatique, je penserai à ta solution.