Envoyer courriel sans logiciel (balaise)

[Tramber]

Dans ce message de Patrick, ce dernier a des velleités d'envoyer un mail sans Outlook et sans rien d'autre.

 

Un collègue bosse en ce moment sur des lignes de codes. Il est capable d'envoyer un mail en 3 coups de cuillères à pot, en 6 ou 7 lignes de code sans aucun logiciel.

 

Avez-vous révé vous-aussi d'y parvenir depuis AutoCAD.

J'y arrive avec Outlook, mais ce dernier me cause des tas de tracas pour des raions de sécurité ingérables. Ca marche mais faut se taper sans arrêt des messages d'alerte.

[Bred]

Un collègue bosse en ce moment sur des lignes de codes. Il est capable d'envoyer un mail en 3 coups de cuillères à pot, en 6 ou 7 lignes de code sans aucun logiciel.

 

... et ce code est sous quel format ?...

[Tramber]

prfff

 

chais pas !

[Patrick_35]

Salut

En vlisp

 

un exemple

(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")

(vlax-put-property outlk 'AddAttachment "c:/rep1/rep2/My_Attach.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)

 

Et en ce moment, je fait mumuse avec les activex et je perds des cheveux, mais c'est passionnant

Un petit cadeau, c'est la boite de dialogue pour le choix d'un répertoire

(defun DirBox(Titre Chemin / rep shobj)
 (setq shobj (vla-getinterfaceobject (vlax-get-acad-object) "Shell.Application"))
 (if (setq rep (vlax-invoke shobj 'browseforfolder 0 Titre 512 chemin))
   (setq rep (vlax-get-property (vlax-get-property rep 'self) 'path))
   (setq rep nil)
 )
 (vlax-release-object shobj)
 rep
)

 

Et en ce moment, je cherche pour une sélection multiple des fichiers. J'ai bien trouvé, mais ça fonctionne sous 16 bits. J'ai trouvé aussi pour le 32 bits, mais la sélection ne fonctionne que pour un fichier, mais je vais y arriver

 

@+

[Tramber]

Great job !

 

Mes mails semblent partir, mais pas arriver, apparemment. Après que j'ais fait des essais plus infructueux qui renvoyaient des erreurs.

 

Je m'en occupe et on finira par trouver. Sinon, je reviens.

[Patrick_35]

Salut

J'ai testé chez moi et je me suis envoyé deux messages et ça a fonctionné à merveille

Tu remarqueras que tes courriels peuvent être anonymes ou avec une adresse bidon

 

@+

[Tramber]

Yo, environ 20 minutes + tard !

 

Les messages sont passés !!!

 

cool Raoul :cool:

 

Mais problème :

 

(vlax-put-property outlk 'AddAttachment "c:/ab.txt") renvoie :

Le serveur ActiveX a renvoyé une erreur: Le type ne correspond pas

Nécessite une valeur positive 1., ou une option.

 

 

Outre ce petit problème d'attachement je me pose la question suivante :

Comment faire aussi un CCI (copie carbone invisible)

 

 

 

[Edité le 29/9/2006 par Tramber]

[Patrick_35]

En faisant une recherche par exemple avec google sur le mot CDO.Message tu vas trouver ces liens

http://www.faqoe.com/rep/cs.php3

http://www.eleves.ens.fr/wintuteurs/advanced/scripting.html

http://www.asp-php.net/ressources/codes/VBScript-Envoi+de+MAIL+via+CDO.aspx

et d'autres encore (ps : le premier donne la procèdure à suivre pour une pièce jointe)

Sinon j'avais aussi trouvé ces sites

http://www.paulsadowski.com/WSH/cdo.htm

http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000040

http://www.w3schools.com/asp/asp_send_email.asp

 

@+

[Tramber]

Pour le BCC ou CCI j'ai trouvé.

 

Mais pour l'attachement de pièce jointe, il y a une différence de syntaxe que je ne retrouve pas dans ton lisp.

Il y a toujours un = devant les string suaf pour l'attachement. Or dans le lisp, cela ne se traduit par aucun changement. Il y a vraiment un problème à déclarer un chemin entre guillemets.

 

Merci de me confirmer que ca marche pourtant sans erreur chez toi !

[Patrick_35]

Salut

c'est ici -->(vlax-put-property outlk 'AddAttachment "c:/rep1/rep2/My_Attach.txt")

mais c'est peut-être un problème de chemin. Un (vlax-put-property outlk 'AddAttachment "c:\\rep1\\rep2\\My_Attach.txt") peut fonctionner

Sinon, je ne pourrai pas re-tester avant Lundi soir

 

@+

[Tramber]

Je te confirme :

le type STRING ne correspond pas. Ca ne marche pas.

 

Le reste est nickel. Ceci dit, je veux justement créer des mails avec attachement.

[Patrick_35]

Et avec un (vlax-make-variant ...) pour le string ?

 

@+

[Invité Patrick]

Bon, comme je vois que vous en bavez pour envoyer un courriel sans logiciel; je vais vous aider, moi j'ai trouvé LA solution:

images/articles/facteur.gif

[Patrick_35]

C'est une solution, mais si c'est un CD, j'ai peur qu'il n'arrive pas forcement à bon port (et c'est sans compter sur les chasseurs)

 

@+

[Tramber]

Pas mieux. J'ai essayé qqes trucs genre ', quote, eval, un peu tout et n'importe quoi, mais on trouvera et je ne suis pas aux pièces.

 

LE problème avec la solution de Patrick, c'est non seulement la période de la chasse mais aussi la grippe aviaire.

Tiens, puiqu'on parle de poulet, je me suis fait flashé ce matin, première fois de ma vie !

[Patrick_35]

Ah, ça c'est terrible :(

Ce qui m'horripile le plus avec leurs radars, c'est le plus souvent sur les grands axes, là ou on peux rouler et sans de grands risques. Par contre, sur des départementales avec des traversés de village, RAS, pas un radar :o

C’est à se demander à quand les autoroutes sans limitations de vitesses, comme en Allemagne

Ca a le mérite de permettre de rouler, et quand c’est limité, c’est pour une bonne raison et du coup, on est respectueux des limitations :P

 

@+

 

[Oli553]

C’est à se demander à quand les autoroutes sans limitations de vitesses, comme en Allemagne

Benh pas demain, ils ont mis un radar sur l'A6 vers Auxerre (je sais plus où exactement) :mad:

 

[Edité le 29/9/2006 par Oli553]

[Pieroka]

sur radarsfixes.com tu peux avoir ses infos gratuitement :

 

carte des radars autour d'Auxerre

 

A6 - Km 175,4 - St-Cyr-les-Colons

Modèle : Automatique 2ème génération

Département : 89 - Yonne

Ville : St-Cyr-les-Colons

N° de route : A6

Km : Km 175,4 /

Sens : Sud -> Nord / Lyon -> Paris

Vitesse : 130km/h

Disposition : A droite

Flash : Avant

Description : Le radar est situé sur la droite de l'autoroute.

Entre le km 176 et 175, au point km 175.400

 

Pour en revenir au sujet du fil, les radars fixes, eux, arrivent à peu près à envoyer un courrier-amende sans l'intervention d'un poulet ! Ce qui n'empêche pas les erreurs, d'ailleurs...

[BTO]

Un collègue bosse en ce moment sur des lignes de codes. Il est capable d'envoyer un mail en 3 coups de cuillères à pot, en 6 ou 7 lignes de code sans aucun logiciel.

 

Salut ,

la méthode la plus simple depuis AutoCAD, c'est d'utiliser la commande mailto: qui est intégré à windows :

 

(command "start" "mailto:toto@fai.fr?cc=totobis@fai.us?subject=Salut?body=C'est%20un%20test")

 

donnée par Dave Fitz Patrick sur customization

par contre on ne peut pas joindre un fichier.

 

Bruno Toniutti

[Tramber]

par contre on ne peut pas joindre un fichier

 

Merci à toi, mais dans mon cas, c'est un impératif !

 

Il doit y avoir une solution car il y a une différence de syntaxte sur la méthode Addattachment, ca se voit quand on lit les liens de Patrick_35.

[BTO]

voila ce que j'utilise :

 

; 1.061001 Bruno Toniutti

(defun CreateMail (RecipientTxt SubjectTxt MessageTxt PathFileTxt / OutlookObj EmailObj)

(setq OutlookObj (vlax-get-or-create-object "Outlook.Application"))

(setq EmailObj (vlax-invoke-method OutlookObj 'CreateItem 0))

(vlax-put-property EmailObj 'Body MessageTxt)

(vlax-put-property EmailObj 'Subject SubjectTxt)

(vlax-put-property EmailObj 'to RecipientTxt)

(vlax-invoke-method (vlax-get-property EmailObj 'Attachments) 'Add PathFileTxt)

(vlax-invoke-method EmailObj 'Display 1)

(mapcar 'vlax-release-object (list OutlookObj EmailObj))

(gc)

(princ)

)

 

utilisation :

(CreateMail "toto@fai.fr" "essai" "\ntexte\ndu\nmessage\n" "D:\\_traitement\\toto.txt")

 

Bruno Toniutti

[Tramber]

(vlax-invoke-method (vlax-get-property courriel Obj 'Attachments) 'Add PathFileTxt)

 

Eh ben voilà !

 

Merci Bruno et grand merci à Patrick_35. Je pense que ca va bien marcher.

[Tramber]

 (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 "smtp.orange.fr") ; 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 "b@moulesfrites.fr")
 (vlax-Put-Property Outlk 'To "b@moulesfrites.fr")
 (vlax-Put-Property Outlk 'Subject "Subject")
 (vlax-Put-Property Outlk 'TextBody "Ceci est un message de test")
 
;;;  (vlax-put-property outlk 'AddAttachment "c:\ab.txt")
 (vlax-dump-object (vlax-get-property outlk 'Attachments) T)
 (vlax-invoke-method (vlax-get-property outlk 'Attachments) 'Add "c:\ab.txt")
 (vlax-put-property outlk 'HTMLBody "
c:\\pers.jpg  
")
 
 (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)

renvoie :

; erreur: valeur Lisp sans contrainte avec VARIANT de ce type: "c:ab.txt"

 

bouhh, ca marche pas

[Patrick_35]

Salut BTO

 

(vlax-get-or-create-object "Outlook.Application")

Là, tu te sert de Outlook

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

Là, je me sert des scripts

 

@+

[BTO]

la version affichée sur le site ne correspond pas à celle que j'ai diffusée !!

voici un nouveau message avec les tags du site pour le code :

 

(defun CreateMail (RecipientTxt SubjectTxt MessageTxt PathFileTxt / OutlookObj EmailObj)
 (setq OutlookObj (vlax-get-or-create-object "Outlook.Application"))
 (setq EmailObj (vlax-invoke-method OutlookObj 'CreateItem 0))
 (vlax-put-property EmailObj 'Body MessageTxt)
 (vlax-put-property EmailObj 'Subject SubjectTxt)
 (vlax-put-property EmailObj 'to RecipientTxt)
 (vlax-invoke-method (vlax-get-property EmailObj 'Attachments) 'Add PathFileTxt)
 (vlax-invoke-method EmailObj 'Display 1)
 (mapcar 'vlax-release-object (list OutlookObj EmailObj))
 (gc)
 (princ)
)

; utilisation
(CreateMail "toto@fai.fr" "essai" "\ntexte\ndu\nmessage\n" "D:\\_traitement\\toto.txt")

 

Pour Tramber : je ne sais pas d'où vient ton problème mais "c:ab.txt" ça ne fonctionne pas en lisp, tente avec :

"c:\\ab.txt" ou "c:/ab.txt"

 

Pour Patrick35 : oui c'est spécifique à outlook et je ne suis pas sur que ça fonctionne avec toutes les versions (en particulier avec la version express)

 

Bruno Toniutti

 

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