Envoyer courriel sans logiciel (balaise)

[BTO]

ça ne correspond toujours pas à ce que je diffuse !!

 

Je n'ai pas envi que mes variables contenant l'expression "m a i l " (sans espaces entres les lettres) soit remplacées par "courriel". Résultat la fonction correspondant au defun est fausse !

 

Bruno Toniutti[Edité le 2/10/2006 par BTO]

 

[Edité le 2/10/2006 par BTO]

[Tramber]

(setq attachments_list(list "c:\ab.txt"))
 (if(and (vl-consp  attachments_list)
	  (setq attachments_collection (vlax-get-property Outlk 'attachments)))
   (foreach item attachments_list
     (if (and (setq temp (findfile item)) (vl-file-systime temp))
(vlax-invoke-method attachments_collection 'add temp))))

 

En capitalisant un peu, ca a l'air d'enfin marcher !

[Tramber]

"c:\ab.txt" ça ne fonctionne pas en lisp

 

Toi, tu ne sais pas depuis combien de temps je suis là :D

 

Un message est parti, j'attends de voir et je vais adapter mes slashs, j'essaie toujours avec plusieurs variations mais justement là, le seul qui ne renvoie pas d'erreur, c'est le \.

Ce qui est inquiétant, j'en convient.

 

Quelle misère pour envoyer un fichier !

 

[Edité le 2/10/2006 par Tramber]

[BTO]

(if (and (setq temp (findfile item)) (vl-file-systime temp))
...

 

A quoi sert cette partie ?

 

Bruno Toniutti

[Tramber]

C'est surtout le findfile qui est important.

 

Ecoutez les gars. J'ai bien tout essayé, si je passe un chemin avec des / ou \\, l'erreur est toujours la même (VARIANT sans contrainte).

Si je passe un chemin avec \, alors le slash est oublié dans la moulinette et findfile ne renvoie rien (findfile "c:ab.txt") renvoie nil off course.

 

Je suis coincé et ne m'en sors pas.

Comment fait-on déjà pour simuler un \ ?

 

J'en ai marre :casstet:

[BTO]

C'est surtout le findfile qui est important.

 

ok, parce que je cherchais la différence avec :

(if (findfile item)

 

Je suis coincé et ne m'en sors pas.

J'en ai marre :casstet:

 

Il doit pas te manquer grand chose, a prioris tu as tout ce qui nécessaire. Des fois il faut laisser reposer, ça ira mieux demain ;)

 

BTO

[Patrick_35]

Et qui offre le champagne ???

 

(vlax-invoke outlk 'AddAttachment "Mon_Texte.txt")

 

@+

[Tramber]

And the winner is !

 

Ca a marché !

 

Euh, pas trop pour moi, le Champ' le matin !

[Invité ingoenius]

Je retente d'envoye un mail avec attachement, sans succes, le mail part et arrive a destination, mail impossible de faire l'attachement, j'ai relu tous ce post, mais il est possible d'avoir d'une seule traite le script complet avec vos correction finales, Tramber j'ai lu que a la fin ta version a marché tu peut stp remettre le lisp complet et corrigé ;-) ??

STP

 

ici mes test, mail l'attachement ne part pas avec

 

(defun c:mail ()
 
(setq Outlk (vlax-Create-Object "CDO.Message"))

(setq 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 "host.com") ; ex: smpt.aol.com
(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 "nom.prenom.com")
(vlax-Put-Property Outlk 'To "nom.prenom.com")
(vlax-Put-Property Outlk 'Subject "Plan")
(vlax-Put-Property Outlk 'TextBody "ci Joint le plan ")
;(vlax-invoke outlk 'AddAttachment (findfile "C:\export.txt"))



(setq attachments_list(list "C:\Documents and Settings\m.ingenuo\Bureau\export.txt"))
(if(and (vl-consp attachments_list)
(setq attachments_collection (vlax-get-property Outlk 'attachments)))
(foreach item attachments_list
(if (and (setq temp (findfile item)) (vl-file-systime temp))
(vlax-invoke outlk 'AddAttachment "C:\Documents and Settings\m.ingenuo\Bureau\export.txt"))))
 


;(vlax-invoke-method attachments_collection 'add temp))))

;(vlax-dump-object (vlax-get-property outlk 'Attachments) T)
;(vlax-invoke-method (vlax-get-property outlk 'Attachments) 'Add "C:\Documents and Settings\m.ingenuo\Bureau\export.txt")

;(vlax-invoke-method (vlax-get-property courriel Obj 'Attachments) 'Add PathFileTxt)
;(vlax-put-property Outlk 'AddAttachment "C://Documents and Settings//m.ingenuo//Bureau//export.txt")
;(vlax-put-property outlk 'AddAttachment "C:\Documents and Settings\m.ingenuo\Bureau\export.txt")  
;(vlax-put-Property Outlk 'AddAttachment "C:\Documents and Settings\m.ingenuo\Bureau\export.txt")
;(vlax-put-property outlk 'HTMLBody "< b r> < img src='image.jpg' > < br >")



 
(if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke (list Outlk 'Send)))
(princ "\nImpossible to send the message. No connection Internet")
)

(vlax-Release-Object Outlk)

)

[Patrick_35]

Salut

 

Sans tester, mais juste à la lecture des messages

 

(setq Outlk (vlax-Create-Object "CDO.Message"))

(setq 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 "ServerSMTP") ; ex: smpt.aol.com
(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 "My_email@server.com")
(vlax-Put-Property Outlk 'To "Recipient@server.com")
(vlax-Put-Property Outlk 'Subject "Subject")
(vlax-Put-Property Outlk 'TextBody "My Message")

[b](vlax-invoke outlk 'AddAttachment "Mon_Texte.txt")[/b]

(if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke (list outlk 'Send)))
(princ "\nImpossible to send the message. No connection Internet")
)

(vlax-Release-Object Outlk)

 

@+

[Invité ingoenius]

ca marche toujour pas!

dommage, le mail fonctionne c'est juste l'attachement qui vien pas :-(