ارسال ایمیل با دلفی

[h_mohamadi]

سلام دوستان
من دنبال یک برنامه می گردم که با دلفی بتوان ایمیل زد.خیلی جستجو کردم ولی هر چی سورس بود کار نمی کند.برام مهم هم نیست از چه ایمیلی بفرستم.فقط مهم است که کار کند و به ایمیل یاهو و یا جی میل ارسال کند.
البته اگر از سرور یاهو و یا جیمل باشه بهتر و لی اگر نشد یک سرور ایرانی هم باشه مشکل ندارم.فقط می خواهم بتواند بدون مشکل ارسال کند
ممنون می شوم کمکم کنید

[h_mohamadi]

دوستان خواهشن کمک کنید

[admin]

سلام.
یه نمونه سورس براتون میزارم ، انشالله که به کارتون بیاد.
موفق و موید باشید
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

[h_mohamadi]

سلام.
یه نمونه سورس براتون میزارم ، انشالله که به کارتون بیاد.
موفق و موید باشید
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

ممنونم ولی این سمپل کار نمی کند.این را داشتم
اگر امکان دارد سمپلی که کار می کند و از یاهو و جمیل امکان ارسال دارد را مرحمت بفرمائید

[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.

توضیحات انگلیسی اش هم تقریبا واضحه ...

[yanin]

مهندس جان توضیحات انگلیسی اش که کاملا واضحه
الیته این کد یکم توضیحات تکمیلی احتیاج داره مثلا یونیت EASendMailObjLib_TLB از کجا باید دانلود کرد ([برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید])
چطور به پرژه اضافه کرد
تنظیمات امنیت جمیل
البته من تو این ویدیو هم این کد رو تست کردم هم تمام کارهایی که برای اجراش لازمه رو انجام دادم اگه کسی بعد از دیدن این ویدیو بازم مشکلی داشت مطرح کنه امیدوارم بتونم کمکش کنم

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

البته مهندس این کار رو با IdSMTP هم میشه انجام داد که جزو کامپننت های Indy که به صورت پیش فرض در دلفی وجود داره که تو اینجا یه توضیحاتی در موردش داده شده
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

[admin]

عالی بود مهندس yanin عزیز
دیگه فکر نکنم آموزشی واضح تر و کامل تر از این پیدا بشه ...

[h_mohamadi]

مهندس جان توضیحات انگلیسی اش که کاملا واضحه
الیته این کد یکم توضیحات تکمیلی احتیاج داره مثلا یونیت EASendMailObjLib_TLB از کجا باید دانلود کرد ([برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید])
چطور به پرژه اضافه کرد
تنظیمات امنیت جمیل
البته من تو این ویدیو هم این کد رو تست کردم هم تمام کارهایی که برای اجراش لازمه رو انجام دادم اگه کسی بعد از دیدن این ویدیو بازم مشکلی داشت مطرح کنه امیدوارم بتونم کمکش کنم

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

البته مهندس این کار رو با IdSMTP هم میشه انجام داد که جزو کامپننت های Indy که به صورت پیش فرض در دلفی وجود داره که تو اینجا یه توضیحاتی در موردش داده شده
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

خیلی عالی بود دوست عزیز
اما مشکل این کامپوننت پولی بودن آن است.من با این کامپوننت کار کردم و خیلی هم عالی جواب می دهد
چطوری آن را از trial بودن در آوریم.

[yanin]

باید این کامپننت رو از سایت خریداری کنی
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

[h_mohamadi]

باید این کامپننت رو از سایت خریداری کنی
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

ممنونم ولی من کریدیت کارت ندارم.می خواستم بدانم کرک شده اش نیست؟؟؟

[yanin]

ممنونم ولی من کریدیت کارت ندارم.می خواستم بدانم کرک شده اش نیست؟؟؟

من کرک شده این کامپننت روسراغ ندارم

[mahmood]

سلام
من یه برنامه با دلفی نوشته شده .
میشه باهاش ایمیل زد.
نکته جالب اینجاس که با ایمیل دوستت میتونی به دوست دیگه ایمیل زد
مخصوص آدم های شوخ طبع است
مناسبه؟