Если процесс чтения информации требовал прямого применения методов Win32 API, то передача корреспонденции превосходно обходится и обычными средствами Delphi. Для отправки почты клиентское приложение просто осуществляет запись в виртуальный файл, олицетворяющий почтовый слот сервера-получателя. В примере для этого применяются методы FileCreate(), FileWrite() и FileClose().

procedure WriteMail(const MailAddress, MailText: string);

var hFile: THandle;

Buf : PChar;

begin

hFile:=FileCreate(MailAddress); //oбpaщaeмcя к ^оту гак к с^йлу,

//истользуя имя ^0Ta if hFile>0 then //в cлyчae ycпeшнoгo oбpaщeния:

begin try

Buf:=AllocMem(Length(MailText)+1); //pacпpeдeляeм пaмять для бyфepa

StrPCopy(Buf,MailText); //пoмeщaeм в бyфep cooбщeниe для пepeдaчи

FileWrite(hFile,Buf~,Length(MailText)+1); //oтпpaвляeм cooбщeниe в фaйл

finally

FileClose(hFile); //зaкpывaeм фaйл

SysFreeMem(Buf); //ocвoбoждaeм бyфep

end;

end;

end;

Предлагаемый метод требует передачи двух параметров: имени слота MailAd-dress и собственно текстового содержания почтового отправления - MailText. Передача одной корреспонденции должна осуществляться за одну операцию FileWrite(), иначе сервер будет считать, что ему отправлено несколько писем.