Empecher message avertissement Outlook lors de l'envoi de mail automatique en vb

cs_filiplarlibe Messages postés 21 Date d'inscription jeudi 11 mars 2004 Statut Membre Dernière intervention 18 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.
 

23 réponses

Polofourche Messages postés 1 Date d'inscription lundi 12 février 2007 Statut Membre Dernière intervention 12 février 2007
12 févr. 2007 à 15:24
Bonjour,
J'aurai une petite question :
pourquoi est-il nécessaire de faire appel au site de microsoft lors de la configuration de la procédure: http://schemas.microsoft.com/cdo/configuration/sendusing par exemple...

Merci d'avance si quelqu'un peut me répondre...


.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.XX.XXX.XXX"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
0
Socrate1964 Messages postés 1 Date d'inscription vendredi 12 octobre 2007 Statut Membre Dernière intervention 12 octobre 2007
12 oct. 2007 à 14:15
Un très grand merci à JMO pour ce code simple et efficace. J'ai ramé de longues heures en invoquant des objets Outlook car pour éviter le message d'avertissement Outlook il faut créer un formulaire .OFT personnalisé, le publier, puis le retrouver, associer ce formulaire à l'objet mail etc...tout cela sans succès !

Je ne peux donc que chaudement recommander cette solution !
0
sans changer de code, j'ai opté pour l'option Ne jamais m'avertir des activités douteuses (non recommandé) dans Outlook
Voir le menu Outils / Centre de gestion de confidentialité / Accès par programme
0
Rejoignez-nous