; *****************************************************
; Example23.ftp
; =============
; This example shows how to use the email message
; facilities TO SEND SELECTED FILES VIA EMAIL...
; -----------------------------------------------------
; NOTE: You must make appropriate changes to the
; script for it to work for you. You need to change
; at least the Mailhost, Sender's Address...
; Afterwards you can create a SendTo Menu item with
; this example. This will allow you to send files
; easily from Windows-Explorer via email to any
; recipient....
; -----------------------------------------------------
;
; Add the selected files as attachments to an email:
ALLPARAMS AddAttachment "%%ALLPAR%%"
; Various settings for the email to be correctly set:
Let EmailServer = "mail.yourhost.net"
Let EmailSender = "you@yourhost.net"
Let EmailSubject = "Files attached..."
INPUT A "Type in a short text for the message:"
Let EmailText = "%%A%%"
; We need to know where to send the message to:
INPUT A "Type the recipients email address:"
AddRecipient "%%A%%"
; Additionally, you can have CC recipients,
; but we'll skip it here:
;AddCCRecipient "CCrecipient@CCrecipients.net"
; At last: send the message according to above:
SendEmail