Empecher message avertissement Outlook lors de l'envoi de mail automatique en vb
cs_filiplarlibe
Messages postés21Date d'inscriptionjeudi 11 mars 2004StatutMembreDernière intervention18 septembre 2010
-
8 janv. 2007 à 15:52
mm -
26 mai 2014 à 09:57
Bonjour a tous,
j'ai un petit problème lors de l'envoi automatique d'un mail en vb access. Le mail s'envoie bien mais il y a un message d'avertissement d'outlook qui s'ouvre :
Un programme tente d'envoyer automatiquement des courriers en votre nom. (Virus) etc...
Est-ce que quelqu'un aurait une solution pour empêcher l'affichage de ce message.
Merci par avance.
A voir également:
Un programme tente d'envoyer un courrier en votre nom
Molenn
Messages postés797Date d'inscriptionmardi 7 juin 2005StatutMembreDernière intervention23 février 20117 8 janv. 2007 à 17:28
Il n'y a pas de solutions, tu es obligé d'avoir ce message (d'un autre côté, c'est logique : c'est sensé être une protection d'Outlook, si on peut l'enlever, bonjour la sécurité ^^). J'ai fouillé entre autre sur le site de Microsoft, je n'ai plus le lien, mais dans l'aide d'Outlook 2003, il est dit que cette option ne peut être désactivée.
Tu as donc 2 choix : Je suppose que tu génère tes mails et que tu les envois avec un .send
Donc soit tu fais .send et dans ce cas, faut attendre les 5 secondes et valider le message,
soit tu n'envois pas le mail et tu fais un .display pour faire apparaître ton mail à l'écran, charge à l'utilisateur d'appuyer sur Envoyer (je préfère cette solution, mes utilisateurs étaient convaincus que je tentais de leur refiler un virus avec la première solution, donc il faisait non à chaque fois )
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 8 janv. 2007 à 20:33
Salut
Cela fait partie des options de Outlook "Envoyer un message lorsqu'un autre logiciel tente d'envoyer un mail"
Suffit de supprimer cette surveillance dans Outlook ... à tes risques et périls !
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005 Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
cs_filiplarlibe
Messages postés21Date d'inscriptionjeudi 11 mars 2004StatutMembreDernière intervention18 septembre 2010 9 janv. 2007 à 08:48
Salut,
Merci pour vos réponses, Par contre est-ce qu'il n'existe pas un autre moyen d'envoyer un mail, une autre méthode qu'un .send pour justement éviter d'avoir un message de ce genre?
cavo789
Messages postés168Date d'inscriptionvendredi 9 janvier 2004StatutMembreDernière intervention28 juillet 20091 9 janv. 2007 à 13:05
Oui c'est tout à fait possible d'envoyer un mail sans passer par Outlook. Va faire un tour du côté de CDONTS.DLL. Attention : il faut que tu puisses paramétrer le nom du serveur d'email et son port et, en outre, il faut que ton PC (ton IP adress) soit connue et acceptée sur le mail serveur comme étant autorisé à envoyer des emails.
Beaucoup de conditions qui font que c'est une solution valable si tu possèdes ton propre mailserver.
C'est un début de code. Si tu remplies toutes les conditions que j'ai indiqué ci-dessous fais-moi signe et je prendrais le temps de te fournir un truc plus fournis.
Christophe
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_filiplarlibe
Messages postés21Date d'inscriptionjeudi 11 mars 2004StatutMembreDernière intervention18 septembre 2010 9 janv. 2007 à 15:39
Salut,
J'utilise un serveur Microsoft Exchange et le port je ne sais pas du tout. Est-ce que tu pourrais m'expliquer un peu plus dans le détail car je ne connais pas du tout ce que tu m'as dit auparavant. (CDONTS.DLL).
Peut tu m'aider s'il-te-plait?
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "moi@mon_mail.fr"
objEmail.To = "mon_destinataire@son_mail.fr"
objEmail.Subject = "Adresse IP du serveur"
objEmail.Textbody = " Bonjour, test mail, pas virus !"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Ici, tu dois donner le nom du serveur de mail c-à-d le nom de la machine où Exchange server est installé. Dans ma société, c'est le département IT qui me fournit cette info. Je suppose (=jamais essayé) que si Exchange server est installé sur ton PC que tu pourrais écrire "localhost"
Je ne suis pas sûr que les trois lignes ci-dessous sont obligatoires : normallement sur ton réseau d'entreprise, à défaut de spécifier les lignes ci-dessous, il reconnaît l'utilisateur connecté.
cavo789
Messages postés168Date d'inscriptionvendredi 9 janvier 2004StatutMembreDernière intervention28 juillet 20091 12 janv. 2007 à 07:16
Je n'ai peut-être pas été clair. J'écrivais ceci dans mon précédent post.
Ici, tu dois donner le nom du serveur de mail c-à-d le nom de la machine où Exchange server est installé. Dans ma société, c'est le département IT qui me fournit cette info. Je suppose (=jamais essayé) que si Exchange server est installé sur ton PC que tu pourrais écrire "localhost"
Et donc le mot FQDN_mon_serveur_smtp DOIT ETRE remplacé par le nom de ton serveur à toi. Ce nom est le nom de la machine où, sur ton réseau, Microsoft Exchange est installé.
Une fois encore ce nom doit t'être communiqué par ton département IT si tu développes pour une société sinon, à la maison, tu dois avoir une telle installation.
Tout autre chose : il y a quelques années, j'ai installé un programme nommé ASPeMail (tu le trouveras aisément sur internet) chez un client. Ce composant n'est rien d'autre qu'un ActiveX qui permet d'envoyer des mails et donc aussi via VB. Ensuite, une fois installé sur ton PC, tu dois installer un soft type mailserver. J'en avais trouvé un après de très longues recherches mais j'ai oublié le nom; sorry.
cs_filiplarlibe
Messages postés21Date d'inscriptionjeudi 11 mars 2004StatutMembreDernière intervention18 septembre 2010 12 janv. 2007 à 08:54
Je sais mais justement le problème c'est que j'ai remplacé le mot "FQDN_mon_serveur_smtp" par l'adresse IP du serveur et même par le nom du serveur Exchange mais j'obtiens le message d'erreur que je t'ai mis dans le précédent post.
Et j'ai bien obtenu l'adresse IP et le nom du serveur par le département IT.
Le problème c'est que je ne sais pas pourquoi il me met ce message la.
Message d'erreur :Le message n'a pas pu être envoyé vers le serveur SMTP. Le code d'erreur de transport était 0x800ccc15. La réponse du serveur était not available.
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 12 janv. 2007 à 08:56
Bonjour à tous
J'utilise le code ci-dessous, en production, sans problème et sans send d'alerte.
'------------------
'Paramètres du Mail
'------------------
Const Destinataires = "[mailto:xxxxx@yyy.fr xxxxx@yyy.fr]"
Const Emetteur = "[mailto:moi@yyy.fr moi@yyy.fr]"
Const cdoSendUsingPort = 2
'-------------------------------------------
'Adresse IP ou smtp du serveur de messagerie
'-------------------------------------------
Const strSmartHost = "smtp.zzzzz.fr" ' ou IP "172.17.xx.y"
Dim iMsg, iConf
'Create the message object.
Set iMsg = CreateObject("CDO.Message")
'Create the configuration object.
Set iConf = iMsg.Configuration
'Set the fields of the configuration object to send by using SMTP through port 25.
With iConf.Fields
.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Update
End With
'Set the To, From, Subject, and Body properties of the message.
With iMsg
.To = Destinataires
.From = Emetteur
.Subject = Sujet
.TextBody = Corps
.AddAttachment RepOut
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
ameliamoi
Messages postés1Date d'inscriptionmardi 9 janvier 2007StatutMembreDernière intervention12 janvier 2007 12 janv. 2007 à 09:46
Avec outllok 2003, on ne peut pas désactiver ce message d'avertissement.Cependant il est possible d'envoyer un mail automatiquement par CDO, aller à la page http://www.faqoe.com/rep/cs.php3, j'ai utilisé la solution 2 qui fonctionnee très bien.
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 12 janv. 2007 à 12:50
Euh...
Je m'abstiendrai do donner le code qui va avec, car je n'aime pas les dangers entraînés par les sous-classements !
Mais voilà le chemin logique, si vous y tenez : sous-classer ===>> intercepter ===> Transformer
Gaffe : si vous vous y amusez : pas de END, hein ? et pas d'interruption par le stop de l'IDE, non plus !
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 12 janv. 2007 à 13:14
Re,
Bonjour Jacques,
Evidemment, il ne faut pas mettre d'adresses Ip ou nominales exactes.
Simplement, comme moi, mettre des xxx, yyy ou ce qu'il veut !!!
Mon propos est que certains forumers font un copier/coller du code
proposé, le modifie (ou ne le modifie pas, d'ailleurs) et le code ne fonctionne pas !!!
D'où mon ajout de subject, textbody, htmltextbody,addAttachement...etc...
Une erreur sur les autres variables que "strSmartHost" provoque aussi une erreur sur le .Send
D'autre part, concernant les mails, une méthode, "ok" at home, ne fonctionnera pas obligatoirement
au boulot (et vice-versa).
Selon les contraintes (OS et client), j'utiliserai cdo, mailto, blat, ...
On en revient à l'illustrissime "moteur de recherche".
Et le programme bloque sur le .send.
Avec l'erreur :
Le message n'a pas pu être envoyé vers le serveur SMTP. Le code d'erreur de transport était 0x800ccc15. La réponse du serveur était not available.
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 12 janv. 2007 à 13:41
Re,
En reprenant le code (universellement utilisé) que j'ai proposé, mettre:
.Subject = "TEST" car "Sujet du message" provoque une erreur de synthaxe. voir %20%
Mais l'erreur ne doit pas venir de là !!!
le send parle de lui-même
Environnement: particulier ou entreprise ???
Et une recherche sur "0x800ccc15" n'a rien donné ?