Pb sécurité outlook envoi mail auto vba
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:
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
