odeslani mailu pres program v SSL

Autor Téma: odeslani mailu pres program v SSL  (Přečteno 988 krát)

Offline Kony

  • Plnoletý
  • ***
  • Příspěvků: 211
  • Karma: 1
    • Verze Delphi: Delphi 7
odeslani mailu pres program v SSL
« kdy: 20-05-2018, 14:18:26 »
snazim se rozchodit moznost odeslani mailu primo v programu pres SSL seznamu.. nasel sjem reseni v Indy10, ale to mi nechce fungovat.

potom jsem nasel reseni

Kód: Delphi [Vybrat]
  1. var
  2.   Mail: TSSLEmail;
  3. begin
  4.   if EditToEmail.Text <> '' then
  5.   begin
  6.     Mail := TSSLEmail.Create('mail.example.com', 465,
  7.       'me@example.com', '***');
  8.  
  9.     try
  10.       Mail.edSenderName := 'ABC Inc.';
  11.       Mail.edSenderEmail := 'abc@example.com';
  12.       Mail.edToEmail := EditToEmail.Text;
  13.       Mail.edSubject := EditSubject.Text;
  14.       Mail.edBody := MemoBody.Lines;
  15.  
  16.       Mail.SendEmail;
  17.  
  18.       EditToEmail.Text:='';
  19.       EditSubject.Text:='';
  20.       MemoBody.Clear;
  21.     finally
  22.       Mail.Free;
  23.     end;
  24.   end;
  25. end;

ale to mi nechce chodit

Offline vandrovnik

  • Hrdina
  • ****
  • Příspěvků: 447
  • Karma: 36
    • Verze Delphi: 10.2
Re:odeslani mailu pres program v SSL
« Odpověď #1 kdy: 20-05-2018, 16:28:27 »
Určitě to hodí nějakou chybovou hlášku, která často člověku napoví, co je špatně. Takže by bylo dobré tu hlášku sem dát.

Offline Kony

  • Plnoletý
  • ***
  • Příspěvků: 211
  • Karma: 1
    • Verze Delphi: Delphi 7
Re:odeslani mailu pres program v SSL
« Odpověď #2 kdy: 20-05-2018, 17:52:43 »
chyba 550

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 2165
  • Karma: 116
    • Verze Delphi: D2007, XE3, DX10
« Poslední změna: 21-05-2018, 14:45:48 od Radek Červinka »

Offline Radek Červinka

  • Administrátoři
  • Padawan
  • *****
  • Příspěvků: 2013
  • Karma: 89
    • Verze Delphi: D5,D2007, DXE, DXE2 + 2 poslední (Tokyo)
    • O Delphi v češtině
Embarcadero MVP - Czech republic

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 2165
  • Karma: 116
    • Verze Delphi: D2007, XE3, DX10
Re:odeslani mailu pres program v SSL
« Odpověď #5 kdy: 21-05-2018, 13:52:13 »
https://support.netregistry.com.au/articles/nr/550-Relay-Not-Permitted
A ja bych prisahal, ze jsem mu vcera nebo kdy to bylo postnul link www.serversmtp.com/en/smtp-error a kdyz se ted divam, tak nepostnul, to stari je hrozna vec :-(

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 3405
  • Karma: 35
    • Verze Delphi: XE7 professional
Re:odeslani mailu pres program v SSL
« Odpověď #6 kdy: 21-05-2018, 13:59:22 »
Citace
to stari je hrozna vec
O akej starobe to píšeš :o :o :o  Veď si v najlepších rokoch 8)
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Online Delfin

  • Guru
  • *****
  • Příspěvků: 1060
  • Karma: 52
  • SW konzultant
    • Verze Delphi: 2009, Tokyo
Re:odeslani mailu pres program v SSL
« Odpověď #7 kdy: 21-05-2018, 14:01:53 »
A ja bych prisahal, ze jsem mu vcera nebo kdy to bylo postnul link www.serversmtp.com/en/smtp-error a kdyz se ted divam, tak nepostnul, to stari je hrozna vec :-(

Postnul. Jen jako obrazek ;) Uvidis to kdyz budes prispevek citovat. SMF neni v tomto ohledu moc intuitivni ::)
I'm a soldier, so don't panic! I know the underground! I like WTFPL license! No more Google, go duck, go!

Offline Radek Červinka

  • Administrátoři
  • Padawan
  • *****
  • Příspěvků: 2013
  • Karma: 89
    • Verze Delphi: D5,D2007, DXE, DXE2 + 2 poslední (Tokyo)
    • O Delphi v češtině
Re:odeslani mailu pres program v SSL
« Odpověď #8 kdy: 21-05-2018, 14:47:05 »
Citace
Postnul. Jen jako obrazek ;) Uvidis to kdyz budes prispevek citovat. SMF neni v tomto ohledu moc intuitivni ::)

Upravil jsem odkaz od PF, aby nepřišel o kladné body.

Embarcadero MVP - Czech republic

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 2165
  • Karma: 116
    • Verze Delphi: D2007, XE3, DX10
Re:odeslani mailu pres program v SSL
« Odpověď #9 kdy: 21-05-2018, 15:29:41 »
Citace
to stari je hrozna vec
O akej starobe to píšeš :o :o :o  Veď si v najlepších rokoch 8)
Jj, presne jak se rika: "mladi v prd*li a do duchodu daleko", akorat ze drive to bylo bezobsazne rceni, dnes je to tvrda realita :'(

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 2165
  • Karma: 116
    • Verze Delphi: D2007, XE3, DX10
Re:odeslani mailu pres program v SSL
« Odpověď #10 kdy: 21-05-2018, 15:31:00 »
Postnul. Jen jako obrazek ;) Uvidis to kdyz budes prispevek citovat. SMF neni v tomto ohledu moc intuitivni ::)
OMG, to snad ani neumim

Offline Radek Červinka

  • Administrátoři
  • Padawan
  • *****
  • Příspěvků: 2013
  • Karma: 89
    • Verze Delphi: D5,D2007, DXE, DXE2 + 2 poslední (Tokyo)
    • O Delphi v češtině
Re:odeslani mailu pres program v SSL
« Odpověď #11 kdy: 21-05-2018, 16:32:35 »
Postnul. Jen jako obrazek ;) Uvidis to kdyz budes prispevek citovat. SMF neni v tomto ohledu moc intuitivni ::)
OMG, to snad ani neumim


Jsi napsal misto tagu url tag img.
Embarcadero MVP - Czech republic

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 2165
  • Karma: 116
    • Verze Delphi: D2007, XE3, DX10
Re:odeslani mailu pres program v SSL
« Odpověď #12 kdy: 21-05-2018, 16:42:22 »
Jsi napsal misto tagu url tag img.
Aha, to jsem zrejme kliknul vedle. Jsem to ale pako.
Nj, prace kvapna, malo platna. Ja vzdycky tyhle veci resim mezi prací, kdyz musim chvili na neco pockat.

Diky za vysvetleni, pf

Offline < z >

  • Administrátoři
  • Guru
  • *****
  • Příspěvků: 1095
  • Karma: 41
    • Verze Delphi: 7, 2010
Re:odeslani mailu pres program v SSL
« Odpověď #13 kdy: 21-05-2018, 22:19:06 »
je jedno, jestli použijes Indy nebo wrapper

https://delphi.cz/post/Odesilani-mailu-pres-SMTP-Delphi-Indy.aspx

Kód: Delphi [Vybrat]
  1. var
  2.   smtp: TIdSMTP;
  3.   mess: TIdMessage;
  4. begin
  5.   smtp:=TIdSMTP.Create(nil);
  6.   mess:=TIdMessage.Create(nil);
  7.   try
  8.     // vycistit
  9.     mess.Clear;
  10.  
  11.     // FROM
  12.     mess.From.Address := '...';
  13.     mess.From.Name := 'ode me';
  14.  
  15.     // TO
  16.     with mess.Recipients.Add do begin
  17.       Address := '...';
  18.       Name := 'prijemce';
  19.     end;
  20.  
  21.     // Subject
  22.     mess.Subject := 'nazev';
  23.  
  24.     // pokud chceme poslat jen text
  25.     mess.Body.Text := 'text';
  26.  
  27.     smtp.MailAgent := 'agent';
  28.  
  29.     smtp.Host := 'smtp.seznam.cz';
  30.     smtp.Port := 465;
  31.     smtp.Username := '...@seznam.cz';
  32.     smtp.Password := '...';
  33.  
  34.     // SSL - je potreba nastavit IOHandler na TIdSSLIOHandlerSocketOpenSSL
  35.     smtp.IOHandler:=TIdSSLIOHandlerSocketOpenSSL.Create;
  36.     smtp.UseTLS:=utUseImplicitTLS;
  37.  
  38.     // připojeni
  39.     smtp.Connect;
  40.     // odeslani
  41.     smtp.Send(mess);
  42.     //odpojeni
  43.     smtp.Disconnect;
  44.   finally
  45.     mess.Free;
  46.     smtp.Free;
  47.   end;
  48. end;

Offline Kony

  • Plnoletý
  • ***
  • Příspěvků: 211
  • Karma: 1
    • Verze Delphi: Delphi 7
Re:odeslani mailu pres program v SSL
« Odpověď #14 kdy: 22-05-2018, 15:23:37 »
ted to mam takto a to funguje, ale pouze pres SMTP myho poskytovatele, ktery ma SMTP na portu 25 a bez loginu a hesla, ale potrebuji to rzochodit na SMTP treba googlu nebo seznamu

Kód: Delphi [Vybrat]
  1.     var
  2.       oMessage : TMimeMess;
  3.       p, oMultiPartAlt: TMimePart;
  4.     begin
  5.       oMessage := TMimeMess.Create;
  6.      with oMessage do
  7.      try
  8.       // od koho
  9.        Header.From := 'aaa@seznam.cz';
  10.        Header.ToList.Clear;
  11.       //komu
  12.        Header.ToList.Add('xxx@seznam.cz');
  13.        Header.CcList.Clear;
  14.        Header.Subject := 'Novy mail';
  15.        p := AddPartMultipart('mixed', nil);
  16.             AddPartText(Memo1.Lines, p);
  17.      //   AddPartBinaryFromFile('c:\test.pdf', p);
  18.        Header.XMailer := 'Muj program';
  19.        Header.Date := Now;
  20.        EncodeMessage;
  21.        if SendToRaw(Header.From, Header.ToList.CommaText, 'ns.YYYYYY.cz', Lines, '', '') then
  22.          ShowMessage('Mail byl úspěšně odeslán!')
  23.        else
  24.          ShowMessage('Mail se nepodařilo odeslat.');
  25.      finally
  26.        Free;
  27.     end;
  28.    end;

to poslani rpes indy me nechce nejak fungovat. tak to zkousim pres synapse, ale taky nejak tapu

 

S rychlou odpovědí můžete používat BB kódy a emotikony jako v běžném okně pro odpověď, ale daleko rychleji.

Jméno: E-mail:
Ověření:
Datový typ v Delphi, který má True a False: