Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Help with script to send

From: psa102:toward at: 15-Aug-2004 17:33

Can someone help me with the script below. The error message is: "Component: "System Port" (30-Sep-2003/16:57:26) Script: "User Preferences" (20-May-2001/21:08:16-4:00) Script: "Send message with attachment script" (8-Aug-2004) ** Script Error: Invalid argument: ** Where: to-file ** Near: to file! :value" I presume the problem is that the words messagefile, addressfile, etc. are not properly typed or the argument values are not properly loaded into them. The first argument, messagefile, is the filename (drive,path, and filename) of a text file that contains the message to be sent. The message consists of lines, each 60 characters or less, ending with an 0D0A. The second argument, addressfile, is a text file with email addresses in it (one per line). Attachfile is a file with one or more filenames in it. This script is to be used to distribute messages with one or more attachments to a community email list. The Rebol file is loaded by a REXX script that is also included below. - - - - - - - - - - - REBOL [ Title: "Send message with attachment script" File: %sendattach6.r Author: "jwirt" Date: 8-8-04 Purpose: { Load an email script from command line, two arguments. Uses REBOL } ] arguments: parse/all system/script/args none addressfile: to-file first arguments messagefile: to-file next arguments attachfiles: to-file next arguments members: make block! message: make string! attachfiles: make block! message: read/lines messagefile members: load addressfile attachfiles: [%test1.txt %test2.txt] send/attach members message attachfiles .. . . . . . . . /* test shell for send attachment */ messagefile="message.txt" addrfile="localaddresses.txt" attachfile = "test1.txt" address cmd ok=directory("d:\rebol") rebol.exe sendattachtest6.r addrfile read messagefile attachfile address