Kurde kiedyś było dobze a teraz sie skopało.Nie moge wysłać maila.Znaczy wszystko podane adres idt.Klikam wyślij i wyskakoje okienko Socket Error # 10061 Conection Refused
A mozęsz jaśniej. uzywasz jakiegos komponentu? sam pisaleś wszystko? czy co?
A jak już nie wisz co, to pamiętaj, że zawsze jest PIWO! :-D [browar]
Uzywam idSMTP i mailmessage kod pzycisku wyślij
procedure TForm1.MBwyslijClick(Sender: TObject);
var
i : integer;
begin
Form2.CzytajPlik;
Mail.Host :=Form2.smtp;
Mail.Username :=Form2.login;
Mail.Password:=Form2.pass;
Mail.Connect;
try
// naglowek wiadomosci
MailMessage.From.Name :='';
// tutaj wpisujesz temat
MailMessage.Subject := Mtemat.Text;
MailMessage.Body.SetText ('');
// Tutaj wpisujesz adress docelowy
MailMessage.Recipients.EMailAddresses := Mdo.Text;
i:=0;
// a tutaj dodaje linie z memo do wyslania
while i
Kod masz w porzo!!!
Nie chodzi o niego!!!
Chodzi o to że gdy wpisujesz od np. [email protected] to mail.host jest aaa.pl
nie wiem dlaczego ale w NMSMTP pojawia się równierz ten błąd przy wpisaniu różnego hosta!!!
[browar]
To co na to poradzić ??