Aller au contenu

Envoyer courriel sans logiciel (balaise)


Tramber

Messages recommandés

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.

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

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 ?...

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Lien vers le commentaire
Partager sur d’autres sites

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

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

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.

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

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

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

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]

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

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

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

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 !

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

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

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

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 !

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

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

 

@+

 

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

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]

L'urgent est fait, l'impossible est en cours. Pour les miracles, prévoir un délai.
"Il vaut mieux mobiliser son intelligence sur des conneries, que sa connerie sur des choses intelligentes" - Devise Shadok.
"ceux qui ne se souviennent pas du passé sont condamnés à le revivre" George Santayana

Ma bibliothèque de blocs électrique :symbole elec.dwg

Lien vers le commentaire
Partager sur d’autres sites

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...

Formateur Autocad - Revit - Sketchup - Photoshop

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

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.

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

(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.

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

 (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

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

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]

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité