Wysyłanie e-mail przez synapse

0

Jak wyglada dzialajacy kod ktory wysyla e-mail logujac sie na poczte gmail? i zeby nie bylo ze nie szukalem to:

PRZYKŁAD 1
Komunikat "Jakis blad!"

if SendToEx('nadawca', 'odbiorca', 'tytul', 'smtp.gmail.com:465', Memo1.Lines, 'moj adres gmail', 'haslo') = True then
  begin
    ShowMessage('Wysłane OK.');
  end
  else
  begin
    ShowMessage('Jakiś błąd!');
  end;
end;

PRZYKŁAD 2
Dostaje komunikat "Other undefined Status". Sypie sie na Login, a raz udało mi się zalogować, ale błąd wyskoczył na StartTLS
http://www.synapse.ararat.cz/doku.php/public:howto:smtpsend

PRZYKŁAD 3
A tutaj to wcale bajka. Żadnych komunikatów plik wczytuje, w memo1 mam cały TMimemess ale maila na adres nadawcy nie dostaje za cholere.

var
  m:TMimemess;
  l:tstringlist;
  p: TMimepart;
begin
  m:=TMimemess.create;
  l:=tstringlist.create;
  try
    p := m.AddPartMultipart('mixed', nil);
    l.loadfromfile('c:\search.txt');
    m.AddPartText(l,p);
    m.AddPartBinaryFromFile('c:\search.txt',p);
    m.header.from:='moj adres e-mail';
    m.header.tolist.add('odbiorca');
    m.header.subject:='test message';
    m.EncodeMessage;
    memo1.lines.assign(m.lines);
    //if you wish to send it by SMTP too, then:
    SendToRaw('moj adres e-mail', 'odbiorca', 'smtp.gmail.com:465', m.lines, 'user', 'password');
  finally
    m.free;
    l.free;
  end; 
end;

Próbowałem też na porcie 587 jak i AutoTLS: true i FullSSL?

0

Przeanalizuj sobie kod z dołączonego archiwum. Na o2.pl wysyła i loguje się prawidłowo. Także dostosuj sobie kod do swoich potrzeb :)

EDIT: sprawdziłem i na gmaila również się loguje. Dla próby wysłałem sobie do siebie maila na o2.pl - doszedł. Podejrzewam, że problem jest w tym, iż podajesz błędny numer portu. Ja ustawiłem wszystko tak, jak podano tutaj: http://porady.it/konfiguracja_poczty_gmail_onet_wp.php - czyli na pewno port musi być: 587. Być może też nie dołączyłeś prawidłowych bibliotek do obśługi szyfrowania. W katalogu z moim kodem one są.

0

Zamiast smtp.gmail.com ja miałem smtpgmail.com i się dziwię czemu nie działa heh. Port można ustawić 587 jak i 25

Jednak to nie to pospieszyłem się. Z twojego programu wysyla normalnie a z powyzszych przykladow nie chce.

Zapomnialem do uses dodac paru modulow i skopiowac dwie biblioteki do folderu z projektem. Przyzwyczajony, ze Delphi zaraz wyje a Lazarus cisza siedzi. Działa

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