// Estblish an email conversation with the server
buffer = "HELO " + localhost
IF postmsg(buffer) = FAILURE THEN Return FAILURE
IF getreply() = FAILURE THEN Return FAILURE

// Set the sender email id
buffer = "MAIL FROM:" + sender
IF postmsg(buffer) = FAILURE THEN Return FAILURE
IF getreply() = FAILURE THEN Return FAILURE

// Set the target email id
buffer = "RCPT TO:" + receiver
IF postmsg(buffer) = FAILURE THEN Return FAILURE
IF getreply() = FAILURE THEN Return FAILURE

// Indicate to the server that we are sending the email data
buffer = "DATA"
IF postmsg(buffer) = FAILURE THEN Return FAILURE
IF getreply() = FAILURE THEN Return FAILURE

// Print message header according to RFC822 specs
// See http://ds.internic.net/rfc/rfc822.txt for more info
buffer = "X-Sender: " + sender + crlf
buffer = buffer + "X-Mailer: PBMailer 1.0" + crlf
buffer = buffer + "Reply-To: " + sender + crlf

IF mimesupport THEN
	buffer = buffer + "Mime-Version: 1.0" + crlf
END IF

buffer = buffer + 'Content-Type: text/plain; charset="windows-1251"' + crlf
buffer = buffer + "Content-Transfer-Encoding: quoted-printable" + crlf
buffer = buffer + "Date:" + Left ( DayName ( Today() ),  3  ) + ", " + &
				String ( Today(), 'dd mmm yyyy' ) + &
				String ( Now(), 'hh:mm:ss' ) + crlf

buffer = buffer + "From: " + sender + crlf
buffer = buffer + "Subject: " + subject + crlf
buffer = buffer + "To: " + receiver + crlf

// Set the CC field
// buffer = buffer + "Cc: " + cc + crlf

//Send an empty line to indicate end of email header
buffer = buffer + crlf

// Submit the email body
buffer = buffer + messagetext

//Add an indicator of the end of the message body
buffer = buffer + crlf + '.' + crlf
IF postmsg(buffer) = FAILURE THEN Return FAILURE
IF getreply() = FAILURE THEN Return FAILURE

if quitsession then
	// Quits out of the mail session
	buffer = "QUIT" + crlf
	IF postmsg(buffer) = FAILURE THEN Return FAILURE
	IF getreply() = FAILURE THEN Return FAILURE
end if

bSuccess = true

Return SUCCESS

//Login/password session
buffer = "LOGIN " + login + " " + password
IF postmsg(buffer) = FAILURE THEN Return FAILURE
IF getreply() = FAILURE THEN Return FAILURE