Page 1 sur 1
[..] Message sécurité Outlook
Posté : mar. 18 nov. 2014 10:49
par Hugues
Bonjour,
Je génère d'un message Outlook (format HTML) pour l'envoyer automatiquement (sans l'afficher).
Sur mon poste de travail ok pas de soucis, mais lorsque j'utilise mon application sur un autre poste, il m'affiche cette fenêtre
.
Dans mon code, j'utilise
et cela me fait afficher cette fenêtre.
Et si j'utilise
, cela m'affiche mon message, mais n'est pas envoyer. Il faut que se soit l'utilisateur qui le fasse...
Est ce que quelqu'un aurait une idée? (sans passer par les ControlClick ou autre...)
Merci par avance.
Re: [..] Message sécurité Outlook
Posté : mar. 18 nov. 2014 10:50
par Y01
Bonjour,
Je suppose qu'avec un bout de code, ça aiderait à comprendre le problème.
Re: [..] Message sécurité Outlook
Posté : mar. 18 nov. 2014 10:55
par jguinch
Tu peux essayer un truc comme ça :
Code : Tout sélectionner
Local $oSecurityManager = ObjCreate("AddinExpress.Outlook.SecurityManager")
If IsObj($oSecurityManager) Then $oSecurityManager.DisableOOMWarnings = True
edit :
Sinon, peut-être dans la base de registre :
http://kb.politemail.com/?p=1039
Re: [..] Message sécurité Outlook
Posté : mar. 18 nov. 2014 11:54
par Hugues
Merci, mais...
J'ai omis de préciser que:
J'ai 3 postes avec la même session Windows , le même compte Outlook... Et ce qui est bizarre, c'est que sur 2 poste c'est OK mais sur le troisème, il continue de m'afficher cette p***** de fenêtre...
Re: [..] Message sécurité Outlook
Posté : mar. 18 nov. 2014 11:56
par Y01
Tous les postes tournent sur le même OS ?
Re: [..] Message sécurité Outlook
Posté : mar. 18 nov. 2014 13:04
par Hugues
Oui, ils tournent tous les 3 sous le même OS.
Re: [..] Message sécurité Outlook
Posté : mar. 18 nov. 2014 13:50
par Hugues
Voici mon code avec lequel j'envoye l'Email:
► Afficher le texte
Code : Tout sélectionner
#include <IE.au3>
#AutoIt3Wrapper_Run_AU3Check=n
Global $oOApp, $oOMail, $aItemEmail, $EmailTo
Global $olMailItem = 0, $olFormatRichText = 3 ,$olImportanceLow = 0 ,$olImportanceNormal = 1 ,$olImportanceHigh = 2 ,$olByValue = 1 ,$olFormatHTML = 2 ,$olFormatPlain = 1
_CheckOutlookAccount() ;Je vérifie si le poste à un compte Outlook
_ReadEmailTo() ;Je lit mon fichier ini pour récupérer les déstinataires du mail
_SendEmail() ;Je construis et envoye mon mail
Func _CheckOutlookAccount()
_IEErrorNotify()
$oOutlook = ObjCreate("Outlook.Application")
If Not IsObj($oOutlook) Then
MsgBox(16, "", "Impossible de créer l'objet Outlook!")
Exit
EndIf
$oNameSpace = $oOutlook.GetNameSpace("MAPI")
Global $oUser = $oNameSpace.CurrentUser
If Not IsObj($oUser) Then
MsgBox(16, "", "Vous n'avez pas de compte Outlook, vous ne pouvez pas utiliser cette application.")
Exit
EndIf
EndFunc
Func _ReadEmailTo()
Global $ReadSectionEmail = IniReadSection(@ScriptDir & "\ini\Config.ini", "Email")
If Not @error Then
For $j = 1 To $ReadSectionEmail[0][0]
$EmailTo &= $ReadSectionEmail[$j][0] & ";"
Next
EndIf
EndFunc
Func _SendEmail()
Local $oSecurityManager = ObjCreate("AddinExpress.Outlook.SecurityManager")
If IsObj($oSecurityManager) Then $oSecurityManager.DisableOOMWarnings = True
Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
$oOApp = ObjCreate("Outlook.Application")
$oOMail = $oOApp.CreateItem ($olMailItem)
;$oOMail.Save
With $oOMail
.To = $EmailTo
.Subject = "Email avec " & @AutoItVersion
.BodyFormat = $olFormatHTML
.Importance = $olImportanceHigh
.HTMLBody = "Ceci est le contenu de mon Message."
;.attachments.add(@ScriptDir & "\AttachedFiles\File_1.txt") ;Ajout pièce jointe.
;.Display
.Send
EndWith
$oOApp = 0
EndFunc