۱۷-دى-۱۳۹۰, ۱۹:۴۸:۵۷
دلفی یک محیط توسعه سریع میباشد که شما میتوانید در این محیط به راحتی برنامه های دلخواه خود را بنویسید شاید در زبانهای مختلف برای ارسال یک ایمیل ساده با https مثل سرور گوگل یا یاهو باید دهها خط کد بنویسید اما تو دلفی شما با چند خط کد میتونین این کارو انجام بدین
برای این کار یک کامپوننت idsmtp از سربرگ indy client و یک TIdSSLIOHandlerSocketOpenSSL از سربرگ indy io handlers و یک ismessage از سربرگ indy misc از سربرگ standard 3 عدد editbox و یک button به tفورم اضافه کنید در رویداد onlick دکمه کد زیر را قرار دهید
برای این کار یک کامپوننت 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;