encap sdk probleme avec le scheme tcp
cr882510-Feb-2009/12:51:21+1:00
bonjour,

je voudrais faire un petit executable rebol pour l'envoie de mail avec parametre.

voici la source
rebol[]





#include %/H/rebol/rebol-sdk-276/source/mezz.r

#include %/H/rebol/rebol-sdk-276/source/prot.r





parms: system/options/args



either none? parms [

	to: []

	msg: ""

][

	to: load parms/1

	msg: parms/2

]



system-name: first parse read dns://127.0.0.1 "."



set-net [

		RobotMail@rebol.cc 

		"fdexchange" 

		"" 

		"161.165.45.120" 

		8080 

		generic

	] 



header: make system/standard/email [

        Subject: join "Message de " system-name

        Organization: "Sendmail.exe REBOL compilation"

        Content-Type: "text/html"

]



if (none? to) or (empty? to) [to: [test@test.cc]]

if (none? msg) or (empty? msg) [msg: "programme sendmail par rebol"]



send/header to msg header



voici mon probleme lors de l'execution du sendmail.exe
** Script Error: tcp has no value

** Where: open-proto

** Near: scheme: tcp

host: either all

** Press enter to quit...


ai je oublié quelque chose ??????

merci d'avance
cr882510-Feb-2009/14:57:23+1:00
bon
j'ai trouvé le probleme est la variable "TO"

je l'ai remplacé par TODEST

et c'est ok

merci

Login required to Post.


Powered by RebelBB and REBOL 2.7.8.4.2