Gmail DSender

[lord_viper]

دلفی یک محیط توسعه سریع میباشد که شما میتوانید در این محیط به راحتی برنامه های دلخواه خود را بنویسید شاید در زبانهای مختلف برای ارسال یک ایمیل ساده با https مثل سرور گوگل یا یاهو باید دهها خط کد بنویسید اما تو دلفی شما با چند خط کد میتونین این کارو انجام بدین
برای این کار یک کامپوننت idsmtp از سربرگ indy client و یک TIdSSLIOHandlerSocketOpenSSL از سربرگ indy io handlers و یک ismessage از سربرگ indy misc از سربرگ standard 3 عدد editbox و یک button به tفورم اضافه کنید در رویداد onlick دکمه کد زیر را قرار دهید

کد:

procedure TForm2.Button1Click(Sender: TObject);
begin
  idsmtp2.Username := Edit1.Text;
  idsmtp2.Password := Edit2.Text;
  idmsg1.Recipients.EMailAddresses := Edit3.Text;
  idsmtp2.Host:='smtp.gmail.com';
  idsmtp2.Port:=465;
  idsmtp2.UseTLS:=utUseImplicitTLS;

  idmsg1.ContentType:='Text/plain';
  idmsg1.CharSet:='utf-8';
  idmsg1.Encoding:=meMIME;
  idmsg1.Subject := 'Delphi Send Gmail';
  idmsg1.Body.Text :=Memo1.Text;

  idsmtp2.Connect;
  if idsmtp2.Connected then
  begin
  idsmtp2.Send(idmsg1);
  ShowMessage('send complete');
  idsmtp2.Disconnect;
  end
  else
  ShowMessage('not connected');
end;

[saeed7007]

SSL
TSL

[lord_viper]

dll هاشو تو system32 کپی کردین؟

با delphi xe2 کتابخانه اش کامله