نمایش نسخه قابل چاپ
سلام دوستان
من دنبال یک برنامه می گردم که با دلفی بتوان ایمیل زد.خیلی جستجو کردم ولی هر چی سورس بود کار نمی کند.برام مهم هم نیست از چه ایمیلی بفرستم.فقط مهم است که کار کند و به ایمیل یاهو و یا جی میل ارسال کند.
البته اگر از سرور یاهو و یا جیمل باشه بهتر و لی اگر نشد یک سرور ایرانی هم باشه مشکل ندارم.فقط می خواهم بتواند بدون مشکل ارسال کند
ممنون می شوم کمکم کنید
دوستان خواهشن کمک کنید
سلام.
یه نمونه سورس براتون میزارم ، انشالله که به کارتون بیاد.
موفق و موید باشید
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
ممنونم ولی این سمپل کار نمی کند.این را داشتمنقل قول:
نوشته اصلی توسط admin [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
اگر امکان دارد سمپلی که کار می کند و از یاهو و جمیل امکان ارسال دارد را مرحمت بفرمائید
در [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید] این قطعه کد ها رو داده ، تست کنید و نتیجه رو همینجا اعلام کنید...
[Delphi - Send email using Gmail account over implicit SSL on 465 port - Example ]
کد:unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, EASendMailObjLib_TLB; // add EASendMail unit
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
oSmtp : TMail;
begin
oSmtp := TMail.Create(Application);
oSmtp.LicenseCode := 'TryIt';
// Your Gmail email address
oSmtp.FromAddr := 'gmailid@gmail.com';
// Add recipient email address
oSmtp.AddRecipientEx( 'support@emailarchitect.net', 0);
// Set email subject
oSmtp.Subject := 'simple email from gmail account';
// Set email body
oSmtp.BodyText := 'this is a test email sent from Delphi using Gmail';
// Gmail SMTP server address
oSmtp.ServerAddr := 'smtp.gmail.com';
// set direct SSL 465 port,
oSmtp.ServerPort := 465;
// detect SSL/TLS automatically
oSmtp.SSL_init();
// Gmail user authentication should use your
// Gmail email address as the user name.
// For example: your email is "gmailid@gmail.com", then the user should be "gmailid@gmail.com"
oSmtp.UserName := 'gmailid@gmail.com';
oSmtp.Password := 'yourpassword';
ShowMessage( 'start to send email ...' );
if oSmtp.SendMail() = 0 then
ShowMessage( 'email was sent successfully!' )
else
ShowMessage( 'failed to send email with the following error: '
+ oSmtp.GetLastErrDescription());
end;
end.
[Delphi - Send email using Gmail account over explicit SSL (TLS) on 25 or 587 port]
توضیحات انگلیسی اش هم تقریبا واضحه ...کد:unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, EASendMailObjLib_TLB; // add EASendMail unit
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
oSmtp : TMail;
begin
oSmtp := TMail.Create(Application);
oSmtp.LicenseCode := 'TryIt';
// Your Gmail email address
oSmtp.FromAddr := 'gmailid@gmail.com';
// Add recipient email address
oSmtp.AddRecipientEx( 'support@emailarchitect.net', 0);
// Set email subject
oSmtp.Subject := 'simple email from gmail account';
// Set email body
oSmtp.BodyText := 'this is a test email sent from Delphi using Gmail';
// Gmail SMTP server address
oSmtp.ServerAddr := 'smtp.gmail.com';
// set 25 port, if you want to use 587 port, please change 25 to 587
oSmtp.ServerPort := 25;
// detect SSL/TLS automatically
oSmtp.SSL_init();
// Gmail user authentication should use your
// Gmail email address as the user name.
// For example: your email is "gmailid@gmail.com", then the user should be "gmailid@gmail.com"
oSmtp.UserName := 'gmailid@gmail.com';
oSmtp.Password := 'yourpassword';
ShowMessage( 'start to send email ...' );
if oSmtp.SendMail() = 0 then
ShowMessage( 'email was sent successfully!' )
else
ShowMessage( 'failed to send email with the following error: '
+ oSmtp.GetLastErrDescription());
end;
end.
مهندس جان توضیحات انگلیسی اش که کاملا واضحه
الیته این کد یکم توضیحات تکمیلی احتیاج داره مثلا یونیت EASendMailObjLib_TLB از کجا باید دانلود کرد ([برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید])
چطور به پرژه اضافه کرد
تنظیمات امنیت جمیل
البته من تو این ویدیو هم این کد رو تست کردم هم تمام کارهایی که برای اجراش لازمه رو انجام دادم اگه کسی بعد از دیدن این ویدیو بازم مشکلی داشت مطرح کنه امیدوارم بتونم کمکش کنم
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
البته مهندس این کار رو با IdSMTP هم میشه انجام داد که جزو کامپننت های Indy که به صورت پیش فرض در دلفی وجود داره که تو اینجا یه توضیحاتی در موردش داده شده
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
عالی بود مهندس yanin عزیز
دیگه فکر نکنم آموزشی واضح تر و کامل تر از این پیدا بشه ...
نقل قول:
نوشته اصلی توسط yanin [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
خیلی عالی بود دوست عزیز
اما مشکل این کامپوننت پولی بودن آن است.من با این کامپوننت کار کردم و خیلی هم عالی جواب می دهد
چطوری آن را از trial بودن در آوریم.
باید این کامپننت رو از سایت خریداری کنی
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
ممنونم ولی من کریدیت کارت ندارم.می خواستم بدانم کرک شده اش نیست؟؟؟نقل قول:
نوشته اصلی توسط yanin [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
من کرک شده این کامپننت روسراغ ندارمنقل قول:
نوشته اصلی توسط h_mohamadi [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
سلام
من یه برنامه با دلفی نوشته شده .
میشه باهاش ایمیل زد.
نکته جالب اینجاس که با ایمیل دوستت میتونی به دوست دیگه ایمیل زد
مخصوص آدم های شوخ طبع است :rolleyes:
مناسبه؟