Паскаль / do9 / iriepas201 / Irie Pascal / samples / cdonts

//******************************************************************
// This program demonstrates the use of the CDONTS.NewMail COM object.
// The CDONTS.NewMail object was created by Microsoft to make
// sending email easy. This object is distributed with IIS, so
// if you are using IIS as your webserver and you want to use it to
// send email you can take a look at this program.
// As you can see using the CDONTS object is very simple, just
// create an instance, set a few properties, call the "send" method,
// and then dispose of the instance.
// NOTE: After you call "send" the instance is invalidated, so don't
// try calling "send" multiple times with the same instance.
//******************************************************************
program cdonts;
const
NORMAL = 1;
//LOW = 0;
//HIGH = 2;
var
objMail : object;
strFrom, strTo, strSubject, strBody : string;
begin
//Gather information about the message
write('Enter email address of person to receive this message');
readln(strTo);
write('Enter email address of person sending this message');
readln(strFrom);
write('Enter subject of this message');
readln(strSubject);
write('Enter body of the message');
readln(strBody);

//Send the message
objMail := CreateObject('CDONTS.NewMail');
objMail.from := strFrom;
objMail.('to') := strTo;
objMail.subject := strSubject;
objMail.Body := strBody;
objMail.Importance := NORMAL;
objMail.Send( , , , , );
dispose(objMail);

//NOTE: You don't have to set properties to send a message you can
// do everything in the call to "send", so in the example above
// the message could have been sent as follows
(*
//Send the message
objMail := CreateObject('CDONTS.NewMail');
objMail.Send(objFrom , objTo, objSubject, objBody, NORMAL);
dispose(objMail);
*)
end.