Gerekenler: TIdSmtp TIdmessage TEdit1...5 TMemo Kod: Kod:
// Edit1 Host Adı Idsmtp1.host :=edit1.text; // Edit2 Kullanıcı Adı Idsmtp1.Username :=edit2.text; //Edit3 Kullanıcı Şifresi Idsmtp1.Password := edit3.text; // Sunucunuzun Auth'una gore değişir. idsmtp1.AuthenticationType:=atLogin; // Auth istemiyorsa atNone yapabilirsiniz // IdSMTP1.AuthenticationType:=atNone; // Sunucuya bağlanıyor. IdSMTP1.Connect; // Edit 4 Mailin nereye gideceği IdMessage1.From.Address := Edit4.text; // Edit4 Değiştirmenize gerek yok IdMessage1.Recipients.EMailAddresses:=edit4.text; // Edit5 Konu IdMessage1.Subject := edit5.text; idmessage1.CharSet:='iso-8859-9'; idmessage1.Encoding:=meMIME; idmessage1.ContentType:='text/plain'; //Memo1 Mesajınız IdMessage1.Body.Assign(Memo1.Lines); try IdSMTP1.Send(IdMessage1); finally IdSMTP1.Disconnect;
__________________