Problem z wysyłaniem @ synapse-gmail

0

Witam próbuje wysłać @ poprzez synapse ,
kompilacja przebiega bez problemu jednak program wypluwa błąd, próbowałem zmieniać port jednak bez rezultatu,
jakieś rady.

 procedure TUstawienia.WyslijMaila;

var
  EMail: TSMTPSend;
  TrescMaila: TStrings;
  Msg: TMimeMess;
  MimePart: TMimePart;
  tmpStr: UTF8String;
begin
  TrescMaila:= TStringList.Create;
  TrescMaila.Add('Treść maila.test');

  Msg:= TMimeMess.Create;
  Msg.Header.From:= '"NADAWCA MAILA"<[email protected]>';
  Msg.Header.ToList.Add('[email protected]');
  tmpStr:= 'Test';
  Msg.Header.Subject:= tmpStr;
  Msg.Header.XMailer:= '[email protected]com';
  Msg.AddPartHTML(TrescMaila,nil);
  Msg.EncodeMessage;

  EMail:= TSMTPSend.Create;
  EMail.UserName:= '[email protected]';
  EMail.Password:=  'Haslo do konta nadawcy';
  EMail.TargetHost:= 'smtp.gmail.com';
  EMail.TargetPort:= '465';
  EMail.AutoTLS:= True;

  if EMail.Login then
    begin
      if EMail.AuthDone then
      begin
        EMail.MailFrom('[email protected]', Length('[email protected]'));
        EMail.MailTo('[email protected]');
        Application.ProcessMessages;
        if EMail.MailData(Msg.Lines) then
          EMail.Logout;
      end
    else
      begin
        ShowMessage('Błąd podczas wysyłki maila.');
        EMail.Free;
        TrescMaila.Free;
        Msg.Free;
        Exit;
      end;
    end
  else
    begin
      ShowMessage('Błąd podczas wysyłki maila.2');
      EMail.Free;
      TrescMaila.Free;
      Msg.Free;
      Exit;
    end;
  ShowMessage('Mail wysłany pomyślnie.');
  EMail.Free;
  TrescMaila.Free;
  Msg.Free;
end;
0

jednak program wypluwa błąd

A może byś był łaskawy i podał nazwę błędu?

0

wypluwa blad podany w kodzie 'Błąd podczas wysyłki maila.2'

0

Ale poniższy fragment kodu zawiera dane poczty wychodzącej wiec dane POP raczej nie wiele tu dadzą. Chyba ze się mylę.


  EMail:= TSMTPSend.Create;
  EMail.UserName:= '[email protected]';
  EMail.Password:=  'Haslo do konta nadawcy';
  EMail.TargetHost:= 'smtp.gmail.com';
  EMail.TargetPort:= '465';
  EMail.AutoTLS:= True;
0

Racja. Mój błąd :P .

Zobacz sobie (jeżeli jeszcze nie patrzyłeś)
http://support.google.com/mai[...]wer.py?hl=pl&answer=13287
http://www.synapse.ararat.cz/doku.php/public:howto:smtpsend

poza tym, ja bym sobie zajrzał debuggerem do środka synapse i zobaczył czy na uwierzytelnieniu się wywala czy na połaczeniu czy na czymś innym jeszcze.

0

Próbowałem juz zmieniać SSL na TSL a co za tym idzie również port wychodzący z debugiem jeszcze się nie bawiłem, ale faktycznie spróbuje.

0

Jeszcze zapomniałem powiedzieć że synapse ma jakąś opcję wyrzucania błędów jako wyjątków i jakieś procedury zwracające ostatni błąd. Ja bym je zapytał co się stało.

0

Bulid programu wykazuje błąd w procedurze , procedure TBlockSocket' biblioteki 'blckscok', skonczyły mi się pomysły.

0

Bulid programu wykazuje błąd w procedurze , procedure TBlockSocket' biblioteki 'blckscok', skonczyły mi się pomysły.

Czy ty wiesz że TBlockSocket to klasa a nie procedura? poza tym: Blcksock. I jaki build???

Kolego, zobacz jaki jest błąd po loginie, tam powinno być coś ciekawego. Albo ustaw sobie rzucanie wyjątków a potem sobie go wyśtwietl. Bo teraz gadasz jakieś głupoty których nie jestem w stanie zrozumieć. Mów po polsku.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0