Pb Avec OE 2003 Envoi Mail Automatique

Question

Bonjour Tous le Monde,

Il s'agit d'un petit problème au niveau d'un envoi de mail automatique via Outlook 2003, 

Lorsque j'exécute la macro, un message m'apparaît sur Outlook :

Un programme tente d'envoyer automatiquement du courrier électronique en votre nom.
L’autorisez-vous à poursuivre ?

Si cette action est inattendue, il se peut qu'il s'agisse d'un Virus : dans ce cas, choisissez Non.

Si je clique le bouton Oui, le mail est envoyé normalement, si je clique sur le bouton Non, pas d'envoi.

Ce que je souhaite savoir :

Est ce qu'il y a une possibilité de désactiver ce message et l'envoi se fait automatiquement sans avoir le message ci-dessus.

Ci-dessous la macro que j'utilise :



Sub envoi_mail()



Sheets("Classeur").Select
recap = Range("IL3").Value
Sheets("Classeur1").Select
titre = Range("C2:I5").Value
outil = ActiveWorkbook.Name



ThisWorkbook.Sheets("Classeur1").Copy
trame = ActiveWorkbook.Name
Sheets(1).Unprotect "ddss"
Range("A:A").ClearContents
Range("B:X").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("C2:I5").Value = titre
Range("a1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs bb
ActiveWorkbook.Close



Windows(outil).Activate
Sheets("Classeur1").Select



destinataires = Range("a1").Value
objet_mail = Range("a2").Value
en_copie = Range("a7").Value
en_copie_cachee = "
[mailto:m.benghorbel@gmail.com 
m.benghorbel@gmail.com
]
"
corps_mail = "Bonjour," & vbCrLf & "Ci joint " & Range("a3").Value & " de " & Range("a4").Value & "." & vbCrLf & "Cordialement," & vbCrLf & "Med"



Dim MonOutlook, MonMessage As Object
Dim Corps As String
    
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)



MonMessage.To = destinataires
MonMessage.cc = en_copie
MonMessage.bcc = en_copie_cachee
MonMessage.Subject = objet_mail
MonMessage.body = corps_mail
MonMessage.Attachments.Add recap
MonMessage.Send
Set Raccourci = Nothing
Set MonOutlook = Nothing



Sheets("Classeur").Select
Range("a1").Select



End Sub

cs_Jack · Answer

Salut Ce message est lié à la sécurité. Dans les version précédentes de Outlook et Oulook Express, on pouvait désactiver cette surveillance. D'après les forums que je viens de consulter (tu as fait pareil, j'espère) posant la même question, il semble que l'utilisation de l'ActiveX/DLL nommée "Extended MAPI" au lieu de "Simple MAPI" règle ce problème en anglais Vala Jack, MVP VB NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Pb Avec OE 2003 Envoi Mail Automatique

1 réponse

Votre réponse

Discussions similaires