<?php
 
require 'mail/PHPMailerAutoload.php';
 
$vernii_shifr = $_REQUEST[pass];
$pol_shifr = '1230';// пороль страницы

If($vernii_shifr == $pol_shifr){
$mail = new PHPMailer;
$mail -> isSMTP();
$mail->SMTPDebug = 2;
$mail->Debugoutput = 'html'; 
$mail ->Host = $_REQUEST[Host]; //smtp адрес
$mail ->SMTPAuth = true;
$mail ->Username = $_REQUEST[Username];    //Логин
$mail ->Password = $_REQUEST[Password];     //Пароль
$mail ->SMTPSecure = $_REQUEST[SMTPSecure];   
$mail ->Port = $_REQUEST[Port]; // порт
 
$mail ->setFrom($_REQUEST[setFrom]); 
$mail ->addAddress($_REQUEST[addAddress]);//Получатель
$mail ->addAttachment=($_REQUEST[sendFile]);  //Прикрепить файл 
$mail ->isHTML(False);
 
$mail ->Subject = $_REQUEST[Subject]; //Тема письма
$mail ->Body    = $_REQUEST[mmessage];//<b>HTML</b> версия письма
//$mail ->AltBody = 'fggg';//Текстовая версия письма, без HTML тегов (для клиентов не поддерживающих HTML)

//Отправка сообщения
if(!$mail->send()) {
    echo 'Ошибка при отправке. Ошибка: ' . $mail->ErrorInfo;
} else {
    echo 'Сообщение успешно отправлено';
}
} else {
echo 'спам';
}

procedure Form1_bsendFile_OnClick (Sender: TObject; var Cancel: boolean);
var
    s: string;
    openDialog : TOpenDialog;
begin
    openDialog := TOpenDialog.Create(form1);
    openDialog.Filter :='All file|*.*';
    openDialog.FilterIndex := 1;
    if openDialog.Execute then Form1.sendFile.Text:=openDialog.FileName;
    openDialog.Free;
end;


procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.SMTPSecure.Items.add('');
  Form1.SMTPSecure.Items.add('ssl');
  Form1.SMTPSecure.Items.add('tls');
end;

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin
  mailerphp( Form1.smtp.Text, Form1.login.Text , Form1.password.Text , Form1.SMTPSecure.Text , Form1.port.Text , Form1.from.Text , Form1.tTo.Text, Form1.sendFile.Text , Form1.subject.Text , Form1.mmessage.Text );
end;


function mailerphp (Host,Username,Password,SMTPSecure,Port,mailFrom,mailTo,sendFile,Subject,mailMessage: string ): string;
var
    slParam: TStringList;
    pass:string;
begin
    pass:='1230';  // пороль страницы
    slParam := TStringList.Create;
    slParam.Add('pass='+pass);
    slParam.Add('Host='+Host);
    slParam.Add('Username='+Username);
    slParam.Add('Password='+Password);
    slParam.Add('SMTPSecure='+SMTPSecure);
    slParam.Add('Port='+Port);
    slParam.Add('setFrom='+mailFrom);
    slParam.Add('addAddress='+mailTo);
    slParam.Add('sendFile='+sendFile);
    slParam.Add('Subject='+Subject);
    slParam.Add('mmessage='+mailMessage);

    HTTPPost('http://****/sendmail.php', slParam);
end;

$mail ->addAttachment=($_REQUEST[sendFile]);  //Прикрепить файл 

$mail ->addAttachment=($_REQUEST[sendFile]);  //Прикрепить файл 

$uploadfile = tempnam(sys_get_temp_dir(), sha1($_REQUEST[sendFile][sendFile]));
$mail ->addAttachment($uploadfile,$_REQUEST[sendFile]);  //Прикрепить файл 

$uploadfile = tempnam(sys_get_temp_dir(), sha1($_REQUEST[sendFile][sendFile]));
if (move_uploaded_file($_REQUEST[sendFile][sendFile], $uploadfile));
$mail ->addAttachment($uploadfile,$_REQUEST[sendFile]);  //Прикрепить файл 
}

$_REQUEST[sendFile][sendFile])