email coincé

[Tramber]

   (setq Outlk (vlax-Create-Object "CDO.Message") Serv (vlax-Get-Property (vlax-Get-Property Outlk 'Configuration) 'Fields))
 (vlax-Put-Property (vlax-Get-Property Serv
'Item "http://schemas.microsoft.com/cdo/configuration/sendusing") 'Value 2)
 (vlax-Put-Property (vlax-Get-Property Serv
'Item "http://schemas.microsoft.com/cdo/configuration/smtpserver") 'Value "smtp.orange.fr")
 (vlax-Put-Property (vlax-Get-Property Serv
'Item "http://schemas.microsoft.com/cdo/configuration/smtpserverport") 'Value 25)
 (vlax-Invoke Serv 'Update)  
 (vlax-Put-Property Outlk 'From de);"Moi " marche aussi !
 (vlax-Put-Property Outlk 'To vers); marche sans le To mais n'a pas l'air de fonctionner en Bcc, si en fait
 (vlax-Put-Property Outlk 'Bcc de); fonctionne mais à + 15 minutes !!! pour se l'envoyer soi-même
 (vlax-Put-Property Outlk 'Subject sujet)
 (vlax-Put-Property Outlk 'TextBody tbody)
 (foreach p fichattach(vlax-invoke outlk 'AddAttachment p));;;  (vlax-put-property outlk 'HTMLBody " c:\\pers.jpg  ")  
 (if (vl-catch-all-error-p (setq catchit(vl-catch-all-apply 'vlax-invoke (list outlk 'Send))))    
(princ "\nImpossible d'envoyer le message. Pas de connection Internet ? ")
   (progn(dos_beep 1)
     (princ(strcat"\nUn message envoyé (" (itoa(setq compt(1+ compt)))" au total) :"))
     (write-line(strcat vers " le "(car(donne_date (getvar"DATE")))" à "(cadr(donne_date (getvar"DATE")))
		 " -> "(VL-PRINC-TO-STRING(cdr attachments_listbase))
		 " -> "(VL-PRINC-TO-STRING subject)) feffec)))
 (vlax-Release-Object Outlk)  

 

Je donne tout mon code avec mes notes.

Il est évidemment peu intelligible dans son entier mais il me sert à envoyer des mails (DXF) depuis AutoCAD. C'est le vénérable Patrick_35 qui m'avait donné les premières indications.

Jusque là c'était facile mais j'ai un problème.

Depuis le changement de modèle mon catchit me renvoie :

"Le serveur a rejeté une ou plusieurs adresses de destinataires. La réponse du serveur était : 554 5.7.1 : Recipient address rejected: Missing Authentication\r\n"

 

Si necessaire, je veux bien y inclure le mot de passe de la boite mais je ne sais pas où et comment le faire.

C'est l'objet de mon message.

 

 

 

[Edité le 23/2/2010 par Tramber]

[Tramber]

Désolé pour le cadre du texte qui dépasse un peu les écrans peu larges. Je vais retaper un epu cela.

 

Mais pour info, je voulais juste donner le lien de la discussion.

 

Pour ceux qui veulent envoyer des mails depuis AutoCAD !

[Patrick_35]

Salut

 

C'est le vénérable Patrick_35

J'ai des cheveux blancs qui viennent de pousser :D

 

Jusque là c'était facile

Frimeur ;)

 

Le serveur a rejeté une ou plusieurs adresses de destinataires

Tu as vérifié les adresses via une méthode plus classique ?

 

je veux bien y inclure le mot de passe de la boite

Quelque chose comme ça ?

(vlax-Put-Property (vlax-Get-Property Serv 'Item "http://schemas.microsoft.com/cdo/configuration/sendpassword") 'Value "Passwxord")

(non testé)

 

ps : Source

 

@+

[Tramber]

Ca doit être la bonne syntaxe, c'était tout simple.

 

J'essaie par tous les moyens, avec ou sans le nom du détenteur du mot de passe (username), en placant bien le code avant (vlax-Invoke Serv 'Update),...en basuclant les orange et wanadoo (out se mélange depuis le changement de nom)....en ajoutant le champ SMTPAuthenticate à 1 (lu au fil de mes périgrinations sans trop comprendre)

C'est sans effet.

Bouh,

 

Si ca tombe c'est un anti-virus ou un truc comme ça.

 

Hop, je tiens au courant.

[Tramber]

 (vlax-Put-Property (vlax-Get-Property Serv
'Item "http://schemas.microsoft.com/cdo/configuration/sendsmtpauthenticate") 'Value 1)
 (vlax-Put-Property (vlax-Get-Property Serv
'Item "http://schemas.microsoft.com/cdo/configuration/sendusername") 'Value "blabla@orange.fr")
 (vlax-Put-Property (vlax-Get-Property Serv
'Item "http://schemas.microsoft.com/cdo/configuration/sendpassword") 'Value "password") 

 

J'ai ajouté tout ça au bon endroit mais rien ne passe :casstet:

 

Bon, je vais aller casser la gueule au responsable informatique. Mince ! Il ne travaille pas chez nous :cool:

[Tramber]

Bon, résultat des courses :

 

La orangebox a changé chez nous. Nous avons passé le problème de l'authentification (en la supprimant et en modifiant le SMTP).

 

Pour ceux que ca intéresse, les box pro sont beaucoup plus blindées que les box grand public. En passant de l'une à l'autre on s'est aperçu que MS Exchange n'étiat même pas au courant des transactions. C'est la boiboite qui bloque. L'informaticien s'en sort juste avec un bleu.

Et moi, je peux plus envoyer mes DXF d'un seul coup de bouton :mad2: