Envoie de mail avec OE
stef
-
stef -
stef -
J'ai un script VB qui essaye d'envoyer automatiquement un mail avec outlook:
Set mpfMail = nspOutlook.GetDefaultFolder(olFolderOutbox)
Set olkMail = mpfMail.Items.Add 'Nouveau message
olkMail.To = dest 'Destinataire (1)
olkMail.Subject = "OBJET" 'Objet (1)
olkMail.Body = "MESSAGE"
olkMail.Send
Oulook XP me dit :
"un programme tente automatiquement d'envoyer des courriers en votre nom. Si cette action est inatendue, il se eput qu'il s'agisse d'un virus. Dans ce cas, choisissez non." 3 boutons sont alors proposés : oui, non, aide.
Comment faire pour ne plus faire afficher cette fenêtre qui empêche tout envoi automatique?
merci
Set mpfMail = nspOutlook.GetDefaultFolder(olFolderOutbox)
Set olkMail = mpfMail.Items.Add 'Nouveau message
olkMail.To = dest 'Destinataire (1)
olkMail.Subject = "OBJET" 'Objet (1)
olkMail.Body = "MESSAGE"
olkMail.Send
Oulook XP me dit :
"un programme tente automatiquement d'envoyer des courriers en votre nom. Si cette action est inatendue, il se eput qu'il s'agisse d'un virus. Dans ce cas, choisissez non." 3 boutons sont alors proposés : oui, non, aide.
Comment faire pour ne plus faire afficher cette fenêtre qui empêche tout envoi automatique?
merci
2 réponses
-
Bonjour stef, je suis dans le même cas que toi, as tu trouvé la solution à ton pb depuis?
Salutations!
Alex -
salu les gars
Ben je vous dirai bien d aller voir ds le niveau de securité de outlook
si il est élévé , ben faut le baisser et trouver le juse milieu entre un OE sécurisé mais pas trop pour laisser passer ton script ....
vive microsoft...
bon courage, et bill sait qu il en faut lol
++-
meme en changeant les parametres de securite de Outlook, le probleme n'est pas resolu.
Ce message est sur les dernieres version de Outlook.
Il faut utiliser un objet CDO a la place de l'objet mail de outlook.
EXEMPLE DE SCRIPT en VB :
Sub MailEnvoi(Destinataire As String, Sujet As String, Optional Correspondant_CC As String, Optional Correspondant_BCC As String, Optional CorpsDuTexte As String, Optional Attach As Variant)
Set objEmail = CreateObject("CDO.Message")
'Set objEmail = CreateObject("cdonts.NewMail")
objEmail.From = "XXXX"
objEmail.To = Destinataire
objEmail.CC = Correspondant_CC
objEmail.BCC = Correspondant_BCC
objEmail.Subject = Sujet
objEmail.TextBody = CorpsDuTexte
If Attach <> "" Then objEmail.AddAttachment Attach
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.7.1"
'"smtp.radissonSAS.com" 192.168.X.X"
'Server port (typically 25)
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End Sub
-
