Synapse. Отправка писем, используя SMTP.

[Кольша]

Всем привет!)
Появилась у меня на днях тут задача отправить письмо на email!
Порылся в нете нашел эту статью вроде бы все хорошо, но с аккаунта mail.ru письма отправляться не хочят, пробовал smtp.mail.ru:25 указывать все без толку..попробовал просто авторизоваться через smtpsend вроде логинюсь, а письмо не шлется..пробовал через smtp моего хостера все норм..Что же делать??Переходить на indy не резон...но если это только не последний вариант..

[xoodoo]

письма отправляться не хочят

Ну да, прямо вот так и говорят - "мы, письма, отправляться не хочаем"

а письмо не шлется

Прямо вот так и говорит тебе - "я, письмо, не шлёюсь" ?

Рассуждения и аргументы не программиста, но школяра.

[Кольша]

Я как бы привел тебе то, что я авторизовался через smtp, но письмо не отправляется.
Результат функции положительный, но письмо не приходит.
А кроме того, что я школяр есть что сказать?Или вы только и можете, что писать не грамотно, как питекантроп?

[Человек_Борща]

Значит авторизуетесь не правильно. Оно то вас авторизовало, но письма вы при такой авторизации отправлять не можете. И вообще где код?

[xoodoo]

писать не грамотно..питекантроп

Поучи меня еще, грамотей-гомосовремениус)
"Не грамотно" в данном контексте пишется слитно - заруби на носу.

Результат функции положительный

Какой функции-то ?
Где ты в примере функцию увидел ?
SendMail, если ты о ней, - это процедура, никакого результата она не возвращает и судить об успехе отправки попросту не по чему - автор сего "шедевра" используя ключевую во всей этой бодяге функцию SendToRaw как процедуру, нагло и бездумно игнорирует возвращаемый ею результат, который мог бы мгновенно прояснить причину недоставки.

через smtpsend

Там тоже чуть ли не каждый метод функциональный - если возвращает false, то resultcode и resultstring тут же даст исчерпывающую инф-цию об отказе.

[Кольша]

Код с использованием функции

function SendMail (pHost, pSubject, pTo, pFrom , pTextBody, pHTMLBody,L,P : string):bool;
    var tmpMsg : TMimeMess;
        tmpStringList : TStringList;
        tmpMIMEPart : TMimePart;
begin
    tmpMsg := TMimeMess.Create;
    tmpStringList := TStringList.Create;
    try
        // Headers
        tmpMsg.Header.Subject := pSubject;
        tmpMsg.Header.From := pFrom;
        tmpMsg.Header.ToList.Add(pTo);

        // MIMe Parts
        tmpMIMEPart := tmpMsg.AddPartMultipart('alternate',nil);
 
        if length(pTextBody)>0 then
           begin
             tmpStringList.Text := pTextBody;
             tmpMsg.AddPartText(tmpStringList, tmpMIMEPart);
           end
        else
          begin
            tmpStringList.Text := pHTMLBody;
            tmpMsg.AddPartHTML(tmpStringList, tmpMIMEPart);
          end;

        //if Form1.Edit1.Text<>'' then
          //  tmpMsg.AddPartBinaryFromFile(Form1.Edit1.Text,tmpMIMEPart)
        // ???????? ? ??????????
        tmpMsg.EncodeMessage;
        result:=smtpsend.SendToRaw(pFrom, pTo, pHost, tmpMsg.Lines, l, p);

    finally
        tmpMsg.Free;
        tmpStringList.Free;
    end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if sendmail('smtp.mail.ru','Test programm','admin@ksware.ru','ovchinnikovnikola@mail.ru','Ya test mail','','ovchinnikovnikola@mail.ru','*****') then
showmessage('YES') else showmessage('NO')
end;
// return False

Код авторизации через Tsmtpsend

var
s:Tsmtpsend;
begin
s:=Tsmtpsend.Create;
s.TargetHost:='smtp.mail.ru';
s.TargetPort:='25';
s.UserName:='ovchinnikovnikola@mail.ru';
s.Password:='*******';
if s.Login then
showmessage('YES') else showmessage('NO')
//return Yes

[Кольша]

xoodoo, вместо того, что высказывать свои не нужные мысли могли бы помочь!
Проблема решилась..нужно было имя PC писать английскими буквами..
Есть два варианта подправить модуль или переименовать комп.

[xoodoo]

[QUOTE]result:=smtpsend.Send/QUOTE]

И ты продолжишь нагло врать про положительный результат ?

нужно было имя PC писать английскими буквами

Нужно было не пальцы свои тут гнуть, а открыть tfc 821/2821 и проштудировать там синтаксис HELO/EHLO-команды.

не нужные мысли

Что в лоб что по лбу)

Да слитно же пишется это, школота унылая !

[Кольша]

Оо жизнерадостный дегенерат проснулся
Взял бы да и проштудировал!Хотя наверно с твоим мозгом это не возможно т.к. ты даже слово оригинальней придумать не можешь..(школота|школота унылая)

[Человек_Борща]

Есть два варианта подправить модуль или переименовать комп.

Тупо переводить имя ПК в транслит если его буквы в диапазоне А-Яа-я, не?

Больше ненависти!111111