Send email: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 533: | Line 533: | ||
A Unicon-specific solution is: |
A Unicon-specific solution is: |
||
<lang unicon>procedure main(args) |
<lang unicon>procedure main(args) |
||
mail := open("mailto:"||args[1], "m", "Subject : " |
mail := open("mailto:"||args[1], "m", "Subject : "||args[2], |
||
" |
"X-Note: automatically send by Unicon") | |
||
stop("Cannot send mail to ",args[1]) |
stop("Cannot send mail to ",args[1]) |
||
every write(mail , !&input) |
every write(mail , !&input) |
||
close (mail) |
close (mail) |
||
end</lang> |
end</lang> |
||
=={{header|Java}}== |
=={{header|Java}}== |