WDForge.org - Forums

Envoi Email CDO ou Exchange pour éviter Message Sécurité

Sujet: Envoi Email CDO ou Exchange pour éviter Message Sécurité
par mbsl sur 10/3/2005 10:29:36

Bonjour,

L'envoi de mail de mon appli ne fonctionne qu'en mode MAPI chez un client. En mode SMTP/POP3, la connexion est correcte mais une erreur (L'expéditeur est incorrect...) est générée systématiquement.

Le mode SMTP/POP3 est cependant fonctionnel chez d'autres clients...

Je pensais donc rajouter l'envoi par MAPI.Le problème est que l'appli fonctionne comme un service et peut envoyer un très grand nombre de mail. Le message de sécurité généré au moment de l'envoi est donc bloquant.

Je me suis tourné vers la msdn qui m'a renvoyé sur CDO (Collaboration Data Objects).

L'exemple VB est le suivant :

'Create variable
Dim objAddressee
'Point it to a CDO addressee object
Set objAddressee = CreateObject("CDO.Addressee")
'Set the address to send to
objAddressee.emailaddress = "someone@microsoft.com"
'Declare the message variable, Msg
Dim Msg
'Since this is VBScript, you must use the CreateObject method.
Set Msg = CreateObject("CDO.Message")
With Msg
.To = "someone@microsoft.com"
.From = "userX@microsoft.com"
.Subject = "Lunch meeting"
.TextBody = "I have attached the suggested menu."
.AddAttachment "file://c:/menu.doc"
.Send
End With

L'objet CDO.Message est inconnu pour Windev !

Remarque : Je ne peux pas utiliser d'active X

Quelqu'un a t il rencontré ce même problème d'envoi de mail ? Quelle est la solution ?

MERCI c'est extrémement urgent

Mickaël