vovka3003 wrote:Может нужно это?
Последний Ваш пример постоянно выдает ошибку (не допустимое значение конфигурации)...
решил вернуться к первым примерам ...
суть дела вот в чем, парраметры я передаю в php на хосте..
сам php
<?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]);//Получатель
if (array_key_exists($_REQUEST[sendFile], $_FILES)) {
$uploadfile = tempnam(sys_get_temp_dir(), sha1($_REQUEST[sendFile][sendFile]));
if (move_uploaded_file($_FILES[sendFile]['tmp_name'], $uploadfile)) {
$mail ->addAttachment($uploadfile, $_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 'спам';
}
рабочая функция MVDB
function mailerphp (Host,Username,Password,SMTPSecure,Port,mailFrom,mailTo,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('Subject='+Subject);
slParam.Add('mmessage='+mailMessage);
result:= HTTPPost('http://service-vv.ru/sendmail.php',slParam);
end;
если я правельно понял Ваши примеры то это должно быть так..
var
xhr:variant;
procedure Form1_OnClick (Sender: TObject);
begin
xhr:=0;
end;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
WinHttpPost('https://service-vv.ru/sendmail.php','{"pas": "1230","Host": "smtp.jino.ru", "Username": "key@service-vv.ru","Password": "1009831995qw","SMTPSecure": " ","Port": "587","setFrom": "key@service-vv.ru","addAddress": "sibprogsistem@mail.ru","Subject": "test","mmessage": "test"}');
end;
function WinHttpPost(Url,Data: string):variant;
begin
try
xhr.Open('POST',url,true);
xhr.SetRequestHeader('content-type','application/json; charset=utf-8');
xhr.Send(Data);
except
ShowMessage(ExceptionMessage);
end;
end;
begin
xhr := CreateOleObject('WinHTTP.WinHTTPRequest.5.1');
end.
но у меня опять ничего не происходит...