ارسال ایمیل با دلفی [بایگانی] - انجمن تخصصی ایران دلفی

h_mohamadi

19 / October / 2014, 11:34 AM

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

h_mohamadi

19 / October / 2014, 04:45 PM

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

admin

19 / October / 2014, 09:45 PM

سلام.
یه نمونه سورس براتون میزارم ، انشالله که به کارتون بیاد.
موفق و موید باشید
دانلود سورس ارسال ایمیل ([فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>])

h_mohamadi

20 / October / 2014, 01:43 PM

سلام.
یه نمونه سورس براتون میزارم ، انشالله که به کارتون بیاد.
موفق و موید باشید
دانلود سورس ارسال ایمیل ([فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>])

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

admin

20 / October / 2014, 11:48 PM

در این سایت ([فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]) این قطعه کد ها رو داده ، تست کنید و نتیجه رو همینجا اعلام کنید...

[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

21 / October / 2014, 02:41 AM

مهندس جان توضیحات انگلیسی اش که کاملا واضحه
الیته این کد یکم توضیحات تکمیلی احتیاج داره مثلا یونیت EASendMailObjLib_TLB از کجا باید دانلود کرد ([فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>])
چطور به پرژه اضافه کرد
تنظیمات امنیت جمیل
البته من تو این ویدیو هم این کد رو تست کردم هم تمام کارهایی که برای اجراش لازمه رو انجام دادم اگه کسی بعد از دیدن این ویدیو بازم مشکلی داشت مطرح کنه امیدوارم بتونم کمکش کنم

دانلود لینک مستقیم ([فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>])
لینک کمکی ([فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>])

البته مهندس این کار رو با IdSMTP هم میشه انجام داد که جزو کامپننت های Indy که به صورت پیش فرض در دلفی وجود داره که تو اینجا یه توضیحاتی در موردش داده شده
[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]

admin

21 / October / 2014, 11:21 PM

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

h_mohamadi

25 / October / 2014, 10:24 AM

مهندس جان توضیحات انگلیسی اش که کاملا واضحه
الیته این کد یکم توضیحات تکمیلی احتیاج داره مثلا یونیت EASendMailObjLib_TLB از کجا باید دانلود کرد ([فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>])
چطور به پرژه اضافه کرد
تنظیمات امنیت جمیل
البته من تو این ویدیو هم این کد رو تست کردم هم تمام کارهایی که برای اجراش لازمه رو انجام دادم اگه کسی بعد از دیدن این ویدیو بازم مشکلی داشت مطرح کنه امیدوارم بتونم کمکش کنم

دانلود لینک مستقیم ([فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>])
لینک کمکی ([فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>])

البته مهندس این کار رو با IdSMTP هم میشه انجام داد که جزو کامپننت های Indy که به صورت پیش فرض در دلفی وجود داره که تو اینجا یه توضیحاتی در موردش داده شده
[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]

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

yanin

25 / October / 2014, 12:13 PM

باید این کامپننت رو از سایت خریداری کنی
[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]

h_mohamadi

27 / October / 2014, 05:43 PM

باید این کامپننت رو از سایت خریداری کنی
[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]

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

yanin

30 / October / 2014, 10:32 PM

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

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

mahmood

07 / December / 2014, 02:04 AM

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