home *** CD-ROM | disk | FTP | other *** search
- ; *****************************************************
- ; 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
-