ارسال ایمیل

[stn-it]

سلام دوستان من یه برنامه نوشتم برای ارسال ایمیل در دلفی xe
مشکلی که داره اینه که برای ایمیل فارسی تو مقصد متن به صورت علامت سواله.
دوستانی که کار کردن راهنمایی می فرماید؟:ناراحت:

[یوسف زالی]

سلام. متنتون رو utf-8 بفرستید.

[stn-it]

سلام. متنتون رو utf-8 بفرستید.
همین کارو کردم اما نمیشه.
ضمنا من این برنامه رو روی ویندوز 7 جواب گرفتم ولی روی 8 جواب نمیده یعنی میگه ایمیل ارسال شد اما چیزی تو inboxنمیاد.چه کنم؟

[Mask]

هنوز علم غیب پیدا نکردیم.
کدتون رو بزارید ، تا معلوم بشه چیکار کردید.

[stn-it]

تابع send email اینم
فک نمی کنم غلط باشه ولی ...
var
attachment: TIdAttachment;
begin
IdSMTP1.HeloName := 'tasks@maxitem.com';
IdSMTP1.host := 'mail.maxitem.com';
IdSMTP1.Password := 'tasks123';
IdSMTP1.Username := 'tasks@maxitem.com';
IdSMTP1.ConnectTimeout := 500;
IdSMTP1.Connect;
IdMessage1.Recipients.EMailAddresses := txtemail.Text;
IdMessage1.Sender.Address := 'tasks@maxitem.com';
IdMessage1.subject := 'فاکتور فروش';
// IdMessage1.Body.Add(Body);
IdMessage1.Body.text := UTF8Encode('مشتری گرامی از خرید شما متشکریم');
Attachment := TIdAttachmentFile.Create(IdMessage1.MessageParts, 'D:\1.txt');
// Sleep(1000);
IdSMTP1.Send(IdMessage1);
// frmAlarmEmail.Close;
IdSMTP1.Disconnect(True);
attachment.Free;
ShowMessage('ایمیل شما با موفقیت ارسال شد');

[Mask]

این کد شماست :

var
attachment: TIdAttachment;
begin
IdSMTP1.HeloName := 'tasks@maxitem.com';
IdSMTP1.host := 'mail.maxitem.com';
IdSMTP1.Password := 'tasks123';
IdSMTP1.Username := 'tasks@maxitem.com';
IdSMTP1.ConnectTimeout := 500;
IdSMTP1.Connect;
IdMessage1.Recipients.EMailAddresses := txtemail.Text;
IdMessage1.Sender.Address := 'tasks@maxitem.com';
IdMessage1.subject := 'فاکتور فروش';
// IdMessage1.Body.Add(Body);
IdMessage1.Body.text := UTF8Encode('مشتری گرامی از خرید شما متشکریم');
Attachment := TIdAttachmentFile.Create(IdMessage1.MessageParts, 'D:\1.txt');
// Sleep(1000);
IdSMTP1.Send(IdMessage1);
// frmAlarmEmail.Close;
IdSMTP1.Disconnect(True);
attachment.Free;
ShowMessage('ایمیل شما با موفقیت ارسال شد');
باید به این شکل UTF8 رو انجام بدید :

with MessageSend do
begin
Body := BodyMail;
CharSet := 'UTF-8';
Subject := trim(SubjecMail);
From.Address := FromMail;
Recipients.Clear;
Recipients.Add.Address := ToMail;
if FileExists(PathAttachFile) then
TIdAttachmentFile.Create(MessageParts, PathAttachFile);
end;

[stn-it]

این کد شماست :

var
attachment: TIdAttachment;
begin
IdSMTP1.HeloName := 'tasks@maxitem.com';
IdSMTP1.host := 'mail.maxitem.com';
IdSMTP1.Password := 'tasks123';
IdSMTP1.Username := 'tasks@maxitem.com';
IdSMTP1.ConnectTimeout := 500;
IdSMTP1.Connect;
IdMessage1.Recipients.EMailAddresses := txtemail.Text;
IdMessage1.Sender.Address := 'tasks@maxitem.com';
IdMessage1.subject := 'فاکتور فروش';
// IdMessage1.Body.Add(Body);
IdMessage1.Body.text := UTF8Encode('مشتری گرامی از خرید شما متشکریم');
Attachment := TIdAttachmentFile.Create(IdMessage1.MessageParts, 'D:\1.txt');
// Sleep(1000);
IdSMTP1.Send(IdMessage1);
// frmAlarmEmail.Close;
IdSMTP1.Disconnect(True);
attachment.Free;
ShowMessage('ایمیل شما با موفقیت ارسال شد');
باید به این شکل UTF8 رو انجام بدید :

with MessageSend do
begin
Body := BodyMail;
CharSet := 'UTF-8';
Subject := trim(SubjecMail);
From.Address := FromMail;
Recipients.Clear;
Recipients.Add.Address := ToMail;
if FileExists(PathAttachFile) then
TIdAttachmentFile.Create(MessageParts, PathAttachFile);
end;
ممنونم
اما من تو properties خاصیت charset این کارو انجام دادم اما نشد.
ضمنا فعلا مشکل اصلی اجرا نشدن رو ویندوز 8 هست.چون پیغام میده که ارسال شد ولی ارسال نمیشه

[Mask]

ضمنا فعلا مشکل اصلی اجرا نشدن رو ویندوز 8 هست.چون پیغام میده که ارسال شد ولی ارسال نمیشه
مطمئنی که run as admin میکنی؟

[gholami146]

اگر دوست عزیز قبل از ایجاد تاپیک یک سرچ بزنید قبلا در مورد این مشکل توسط جناب آقای کشاورز بطور کامل بحث شده و حتی یک مثال کامل توسط ایشان طراحی و در سایت موجود می باشد
موفق باشید

[stn-it]

اگر دوست عزیز قبل از ایجاد تاپیک یک سرچ بزنید قبلا در مورد این مشکل توسط جناب آقای کشاورز بطور کامل بحث شده و حتی یک مثال کامل توسط ایشان طراحی و در سایت موجود می باشد
موفق باشید

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