Synapse email přes seznam.cz – Delphi – Fórum – Programujte.com

Zdravím Vás.
Mám internet od providera který má i poštovní server a toto mi funguje.

function SendMail(
      User, Password,
      MailFrom, MailTo,
      SMTPHost, SMTPPort: string;
      MailData: string): Boolean;
    var
      SMTP: TSMTPSend;
      sl:TStringList;
    begin
      Result:=False;
      SMTP:=TSMTPSend.Create;
      sl:=TStringList.Create;
      try
        sl.text:=Maildata;
        SMTP.UserName:=User;
        SMTP.Password:=Password;
        SMTP.TargetHost:=SMTPHost;

        SMTP.TargetPort:=SMTPPort;
        SMTP.AutoTLS:=true;
        if SMTP.Login then
        begin
          result:=SMTP.MailFrom(MailFrom, Length(MailData)) and
             SMTP.MailTo(MailTo) and
             SMTP.MailData(sl);
          SMTP.Logout;
        end;
      finally
        SMTP.Free;
        sl.Free;
      end;
    end;


procedure TForm1.Button1Click(Sender: TObject);
begin
SendMail('borisek', 'heslo',
  'muj email', 'muj email',
  'smtp server providera','25',
  'Test');
end;

Bych to ale chtěl posilat přimo přes smtp.seznam.cz
Jsem si zkoušel nastavit v mém poštovním klientovi port 25 bez šifrovaní a funguje.
Přes synapse to nefunguje.
Když nastavim smtp server providera tak ok.
Když nastavim smtp.seznam.cz nefunkční.
Asi tady bude problem a nevim jak zapnout.

https://napoveda.seznam.cz/cz/email/imap-pop3-smtp/
Dále je u tohoto serveru nutné zapnout funkci "SMTP autentifikace" (ověřování uživatelského jména a hesla na SMTP serveru).

 

Co znamená "nefunguje"? Jakou chybu to hlásí?

Tu autentifikaci dělá Login a neměl by se seznamem mít problém. Zkus to odkrokovat nebo něčím monitorovat provoz (Wireshark) a podívej se na čem to klekne.

#1 Borisek
máš tam 

if SMTP.login, tak si přidej else, a v obou větvíc si dej msgbox v then "přihlášení úspěšné" v else si zobraz chybu

a to samé u resultu 

#3 MilanL

Je tam if SMTP.login, takže jsem přidal else.
Jak v něm přes ShowMessage vypišu tu chybu?
Jsem našel  ShowMessage(smtp.EnhCodeString);

Připojen obrázek.

Připojen obrázek.

#4 Borisek
nejdřív stačí zjistit jestli ti login projde true nebo false

jinak zkus tohle, je tak krok po kroku sledování těch fází spojení

http://www.ararat.cz/synapse/doku.php/public:howto:smtpsend

nebo podle verze delphi použij indy

Zatim nejsem doma, tak nemohu zkusit ale indy jsem zkoušel a funguje ale nějak nemohu pořešit češtinu v odeslane zpravě.

#6 Borisek
no pokud nejde čeština, je potřeba to překódovat.

např. https://stackoverflow.com/questions/9844250/not-able-to-send-utf-8-email-using-delphi-indy

#7 MilanL
Tak diakritika funguje  
Dik. 

IdMessage1.ContentType:='text/plain';
IdMessage1.CharSet:='UTF-8';

Už jsem to nedavno zkoušel, ale měl jsem přehozene poředi.

http://www.ararat.cz/synapse/doku.php/public:howto:smtpsend
Nemohu přijit na to, co tam schazi.
E2003 Undeclared identifier: 'AddToLog'

#8 Borisek
to bude nějaká vlastní funkce, která se stará o ten log, bud zobrazení na konzoli / nebo textové (memo pole ve formu okna) / případně ukládá do souboru.