Bardzo prosze wszystkich o pomoc
w buttonie mam takie coś:
SmtpCli1.Host:='smtp.wp.pl';
SmtpCli1.Port:='25';
SmtpCli1.HdrTo:='mój-mail.wp.pl';
SmtpCli1.MailMessage.Assign(Memo1.lines);
SmtpCli1.Connect;
SmtpCli1.Mail;
i kiedy chce wysłać tego meila to pokazuje się komunikat "SMTP component not ready" co mam zrobić :-/
a nie mozesz tego zrobic na komponencie NMSMTP z zakladki FASTNET ?
a nie mozesz tego zrobic na komponencie NMSMTP z zakladki FASTNET ?
Nie każda wesja Delphi ma takie coś :P Od D7 nie ma tego nawet w najdroższych produktach, a w D6 tylko w Personal
a nie mozesz tego zrobic na komponencie NMSMTP z zakladki FASTNET ?
Nie każda wesja Delphi ma takie coś :P Od D7 nie ma tego nawet w najdroższych produktach, a w D6 tylko w Personal
Jest na 100% w D6 Enterprise
Ja mam delphi 6 Personal Edition :-( i bardzo mało komponentów czy naprawde nikt nie wie co moge jeszcze zrobić w moim przykładzie
Please Help [stuk]
Więc tak:
polecenie Connect uruchamia procedurę łączenia i NIE CZEKA NA WYNIK więc kiedy program dochodzi do SMTP.Mail to jeszcze nie jest połączony
Zamiast komponentu SMTPCli użyj SyncSMTPCli i
// tutaj to co miałeś wcześniej, czyli UserName, MailMessage itd
SMTP.ConnectSync;
SMTP.HeloSync; // to bardzo ważne, bez tego nie wyśle
SMTP.MailSync;
SMTP.QuitSync;
ponadto, każda z powyższych funkcji zwraca wartość Boolean zależnie od tego czy się powiodła czy nie
PieterEr użyłem komponentu SyncSmtpCli i teraz nie występuja żadne błędy ale mail w ogóle sie nie wysyła (kiedy sprawdzam w outloku pisze brak nowych wiadomości).
Teraz kod jest taki:
Smtp.Host:='smtp.wp.pl';
Smtp.Port:='25';
Smtp.HdrTo:='[email protected]';
Smtp.MailMessage.Assign(Memo1.Lines);
Smtp.HdrSubject:='Wiadomość';
Smtp.ConnectSync;
Smtp.HeloSync;
Smtp.MailSync;
Smtp.QuitSync;
Showmessage('Wysłano');
;-(
zamiast MailSync wpisz:
if not SMTP.MailSync then MessageDlg('Wystąpił błąd: '+SMTP.ErrorMessage, mtError, [mbOK], 0);
i powinno ci wywalić dlaczego nie wysyła