if memo1.Text='' then application.MessageBox('Lütfen geçerli bir mail adresi girin...', MB_OK) else begin
idsmtp1.Username:= '
xxx@gmail.com';
idsmtp1.HeloName:= '
xxx@gmail.com';
idsmtp1.Password:= 'sifrexxx';
idsmtp1.Host:= 'smtp.gmail.com';
idsmtp1.Port:= 465 ;
idmessage1.From.Address:= idsmtp1.Username;
idmessage1.Recipients.EMailAddresses:=memo1.text;
idmessage1.Subject:='deneme';
idmessage1.Body.Text:='basarılı';
try
try
idsmtp1.Connect(1000);
idsmtp1.Send(idmessage1);
except on E:exception do
end;
finally
if idsmtp1.Connected then idsmtp1.Disconnect;
end;
showmessage('Mailiniz '+memo1.Text+' adresine başarı ile yollanmıştır...[Servis yoluğundan dolayı geç gelebilir!]') ;
end;
end;
bu kodu kullanıyorum çalışıyordu. Hocam gmail de denedim port numarası olarak 465 girdim ama yollamıyor:(
anlamadığım daha önceden yolluyorduda şimdi noldu kodda bir hata olmaz. yoksa gmail için ek olarak bir ayar yapmama gerekiyormu.
forumda aradım ama tam anlamda böle bir konu olmadığı için soruyorum.