Envoi de message avec VB script

Le
Julien Guibal
Bonjour

un de mes users developpe une VBA qui envoie des email avec Outlook 2003.
Or à chaque envoi le message de sécurité suivant apparait :
A program is trying to automatically send e-mail on your behalf. Do you want
to allow this? blablabla

Tant qu'il n'appuie pas sur 'Yes' le message ne disparait pas et ré-apparait
à chaque nouvel envoi de mail.

Que faire ?

Merci !
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Oliv'
Le #334880
*Julien Guibal *:
Bonjour

un de mes users developpe une VBA qui envoie des email avec Outlook
2003. Or à chaque envoi le message de sécurité suivant apparait :
A program is trying to automatically send e-mail on your behalf. Do
you want to allow this? blablabla...

Tant qu'il n'appuie pas sur 'Yes' le message ne disparait pas et
ré-apparait à chaque nouvel envoi de mail.

Que faire ?

Merci !


reprogrammer différemment :

voir ici

http://faq.outlook.free.fr/readarticle.php?article_id6
ou là

http://www.3stone.be/access/articles.php?lng=fr&pg
http://www.3stone.be/access/articles.php?lng=fr&pgˆ
et
http://www.3stone.be/access/articles.php?lng=fr&pg‰

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Julien Guibal
Le #334876
Merci pour toutes ces infos,

mais ca ne marche toujours pas me dit mon programmeur.
Il essaie d'envoyer ces messages avec notre serveur Exchange 2003.

Il a pris la library CDO Exchange.

Fallait mieux prendre CDO Library ?




*Julien Guibal *:
Bonjour

un de mes users developpe une VBA qui envoie des email avec Outlook
2003. Or à chaque envoi le message de sécurité suivant apparait :
A program is trying to automatically send e-mail on your behalf. Do
you want to allow this? blablabla...

Tant qu'il n'appuie pas sur 'Yes' le message ne disparait pas et
ré-apparait à chaque nouvel envoi de mail.

Que faire ?

Merci !


reprogrammer différemment :

voir ici

http://faq.outlook.free.fr/readarticle.php?article_id6
ou là

http://www.3stone.be/access/articles.php?lng=fr&pg
http://www.3stone.be/access/articles.php?lng=fr&pgˆ
et
http://www.3stone.be/access/articles.php?lng=fr&pg‰

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~






michel le sympa
Le #334820
Bonjour,
j'ai exactement le même problème.... que je n'ai pas encore résolu.
manifestement le symptome n'est pas lié à l'automation elle-même, dans un
premier temps.

Microsoft semble avoir collé après coup un patch de sécurité un peu lourd,
très probablement destiné à bloquer les actions des virus Vers sur la
messagerie. Cette mise à jour doit dater de ~octobre 2006. Toutes les
programmations antérieuers à cette date ne semblent donc pas avoir rencontré
ce problème, car le patch n'existait pas.
http://support.microsoft.com/kb/209948/
(voir le § "remarque" de cet article).
Cette solution de contournement Microsoft me semble très grossière et non
finie: Elle bloque les possibilités de mailing de la même façon...

à suivre?




*Julien Guibal *:
Bonjour

un de mes users developpe une VBA qui envoie des email avec Outlook
2003. Or à chaque envoi le message de sécurité suivant apparait :
A program is trying to automatically send e-mail on your behalf. Do
you want to allow this? blablabla...

Tant qu'il n'appuie pas sur 'Yes' le message ne disparait pas et
ré-apparait à chaque nouvel envoi de mail.

Que faire ?

Merci !


reprogrammer différemment :

voir ici

http://faq.outlook.free.fr/readarticle.php?article_id6
ou là

http://www.3stone.be/access/articles.php?lng=fr&pg
http://www.3stone.be/access/articles.php?lng=fr&pgˆ
et
http://www.3stone.be/access/articles.php?lng=fr&pg‰

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~






michel le sympa
Le #334819
C'est la commande ".send" qui est interceptée maintenant par le patch de
sécurité outlook (elle ne l'était pas avant).
tenter la commande d'envoi du message par l'envoi de touches clavier
?(..sendkeys..?)
.. répondre si ça marche.


Merci pour toutes ces infos,

mais ca ne marche toujours pas me dit mon programmeur.
Il essaie d'envoyer ces messages avec notre serveur Exchange 2003.

Il a pris la library CDO Exchange.

Fallait mieux prendre CDO Library ?




*Julien Guibal *:
Bonjour

un de mes users developpe une VBA qui envoie des email avec Outlook
2003. Or à chaque envoi le message de sécurité suivant apparait :
A program is trying to automatically send e-mail on your behalf. Do
you want to allow this? blablabla...

Tant qu'il n'appuie pas sur 'Yes' le message ne disparait pas et
ré-apparait à chaque nouvel envoi de mail.

Que faire ?

Merci !


reprogrammer différemment :

voir ici

http://faq.outlook.free.fr/readarticle.php?article_id6
ou là

http://www.3stone.be/access/articles.php?lng=fr&pg
http://www.3stone.be/access/articles.php?lng=fr&pgˆ
et
http://www.3stone.be/access/articles.php?lng=fr&pg‰

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~








michel le sympa
Le #334816
Bon, je crois avoir fait le tour de la question (pour ce qui me concerne) ..
et j'ai trouvé une solution de contournement.

ce problème est déjà identifié par Microsoft.
http://support.microsoft.com/kb/262618/fr

ils le présentent comme étant le revers dommage mais "incontournable" pour
parer à l'action des virus comme "IloveYou". En vérité je ne sais pas quand
cette feature a rellement été mise en place, car en 2000 (voir la date de
l'article ci-dessus) il y avait déjà des implémentations dans le scope mais
on ne parlait pas encore de celui-ci.
Dans la mise à jour de janvier 2007 : cette-fois c'est clairement évoqué.
http://support.microsoft.com/kb/262700/EN-US/

Par contre je ne sais pas s'ils ont une solution (ou alors j'ai mal vu).
http://support.microsoft.com/kb/263296/EN-US/

Il est clair que c'est la méthode ".send" qui est interceptée, quelle que
soit l'endroit où elle se trouve en Vba (dans un applicatif hors outlook, ou
dans outlook lui-même - outils/macro/create -)

le contournement possible via Vba que j'ai trouvé consiste à reproduire
l'action d'envoi à partir de ce qu'on fait sur la console.
- il faut afficher à l'écran le message constitué
- il faut actionner le bouton envoi.
==> il faut donc remplacer la commande ".send" par
.Display
SendKeys ("%{v}")

Evidemment, cela oblige outlook à afficher tous les messages pendant le
mailing, cela le fait "mouliner" un peu, et cela le ralentit.
Mais le résultat est tout de même beaucoup plus rapide et satisfaisant que
d'attendre 5 secondes de cliquer sur "yes" à chaque départ de message.

Je crois que c'est acceptable .... jusqu'à une nouvelle évolution du produit.

Remarque : je ne viens pas souvent sur ce forum, mais j'ai vu que des
questions aussi interessantes sont abordées sur

http://support.microsoft.com/search/default.aspx?catalog=LCID%3D1036&spid%20&query=&adv=&mode=r&catúlse

je ne suis pas sûr que les 2 adresses se croisent, et ce serait dommage de
rater une solution à cause de cela.

@+
Michel.
===================================================

Bonjour,
j'ai exactement le même problème.... que je n'ai pas encore résolu.
manifestement le symptome n'est pas lié à l'automation elle-même, dans un
premier temps.

Microsoft semble avoir collé après coup un patch de sécurité un peu lourd,
très probablement destiné à bloquer les actions des virus Vers sur la
messagerie. Cette mise à jour doit dater de ~octobre 2006. Toutes les
programmations antérieuers à cette date ne semblent donc pas avoir rencontré
ce problème, car le patch n'existait pas.
http://support.microsoft.com/kb/209948/
(voir le § "remarque" de cet article).
Cette solution de contournement Microsoft me semble très grossière et non
finie: Elle bloque les possibilités de mailing de la même façon...

à suivre?




*Julien Guibal *:
Bonjour

un de mes users developpe une VBA qui envoie des email avec Outlook
2003. Or à chaque envoi le message de sécurité suivant apparait :
A program is trying to automatically send e-mail on your behalf. Do
you want to allow this? blablabla...

Tant qu'il n'appuie pas sur 'Yes' le message ne disparait pas et
ré-apparait à chaque nouvel envoi de mail.

Que faire ?

Merci !


reprogrammer différemment :

voir ici

http://faq.outlook.free.fr/readarticle.php?article_id6
ou là

http://www.3stone.be/access/articles.php?lng=fr&pg
http://www.3stone.be/access/articles.php?lng=fr&pgˆ
et
http://www.3stone.be/access/articles.php?lng=fr&pg‰

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~








Oliv'
Le #334728
*michel le sympa écrit *:
Bon, je crois avoir fait le tour de la question (pour ce qui me
concerne) .. et j'ai trouvé une solution de contournement.


Le code ci-dessous part sans message de sécurité (avec OL ouvert) :

Sub CreateHTMLMail()
'Creates a new e-mail item and modifies its properties

Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
'Create e-mail item
Set objMail = olApp.CreateItem(olMailItem)

With objMail
.To = ""
.Subject = "L'objet du message"
'Set body format to HTML
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><H2>The body of this message will appear in
HTML. .Save
'.Display
.Send
End With

End Sub


Par contre si on crée un message avec "NEW"
Dim Ol_App As New Outlook.Application

on aura un message de sécurité.

on peut aussi utiliser CDO comme dans les lien précités.


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Publicité
Poster une réponse
Anonyme