ارسال ایمیل فارسی ( به صورت HTML )

[Mahmood_M]

با سلام ...
من یک فایل HTML دارم که متنش فارسی هست ...
من این فایل رو به ایمیلی ارسال میکنم ، اما حروفش ناخوانا هستند ( یا به صورت علامت سئوال ) ؟
توجه کنید که فایل رو Attach نمی کنم بلکه فرمت ایمیل HTML هست ...
من از کامپوننت IDMessage و IDSMTP استفاده میکنم ، کدوم خاصیت از کامپوننت IDMessage رو باید تنظیم کنم تا این مشکل حل بشه ؟

خاصیت CharSet رو به UTf-8 تغییر دادم ، باز هم نشد ...

لطفا اگه تجربه این کار رو دارید راهنمایی کنید ...

با تشکر ...

[vcldeveloper]

احتمالا بخاطر این مسئله هست که متن در IdMessage بصورت string نگهداری میشه، نه WideString.

[Mahmood_M]

احتمالا بخاطر این مسئله هست که متن در IdMessage بصورت string نگهداری میشه، نه WideString.

ممنونم ...
راه حلی برای این مشکل سراغ ندارید ؟

...

[vcldeveloper]

باید از TIdEncoderMIME برای Encode کردن متن به base64 استفاده کنید. این کلاس یک رشته string به شما میده که حاوی متن نامه بصورت Encode شده هست. این رشته را باید به IdMessage بدید و Encoding را تنظیم کنید. در نهایت باید با IdSMTP پیام را ارسال کنید.
برنامه Mail Client کاربر باید بتونه این نامه و encoding اش را تشخیص بده و آن را Decode کنه و به کاربر درست نمایش بده.
کد شما چیزی شبیه به کد زیر میشه (فرصت نشد بعد از نوشتن تستش کنم):

uses

  TntComCtrls, IdSMTP, IdMessage, IdCoderMIME;



procedure TForm1.SendMail;

var

  Stream : TMemoryStream;

  Encoder : TIdEncoderMIME;

  EncodedText : string;

  MailText : TIdText;

begin

  Stream := TMemoryStream.Create;

  Encoder := TIdEncoderMIME.Create(nil);

  try

    //Retrieve the message from a Unicode source

    TntRichEdit1.Lines.SaveToStream(Stream);

    //Encode the message

    Stream.Position := 0;

    EncodedText := Encoder.Encode(Stream);

  finally

    Encoder.Free;

    Stream.Free;

  end;



  //Prepare the message

  with IdMessage1 do

  begin

    IsEncoded := True;

    ContentType := 'text/html';

    ContentTransferEncoding := 'base64';

    //Create a new message part

    MailText := TIdText.Create(MessageParts);

    MailText.ContentTransfer := 'base64';

    MailText.ContentType := 'text/html';

    MailText.Body.Text := EncodedText;

  end;



  //Sending the message

  IdSMTP1.Host := 'smtp.myhost.com';

  IdSMTP1.Username := 'user';

  IdSMTP1.Password := 'pass';

  {if needed, other properties are set here.

   ...                                       }

  IdSMTP1.Connect(30000);

  try

    IdSMTP1.Send(IdMessage1);

  finally

    IdSMTP1.Disconnect;

  end;

end;

[Cave_Man]

آقای کشاورز اگه با این روش میل رو ارسال کنیم و در مرورگر کاربر ایمیلش رو چک کنه آیا میتونه متون فارسی رو صحیح ببینه؟

[vcldeveloper]

اگه با این روش میل رو ارسال کنیم و در مرورگر کاربر ایمیلش رو چک کنه آیا میتونه متون فارسی رو صحیح ببینه؟

نباید مشکل خاصی وجود داشته باشه، چون در این حالت هم باز یک Mail Client وجود داره، فقط سمت سرور هست و فقط رابط کاربری اش تحت وب هست.

[Cave_Man]

یه ایراد هست میل خالی ارسال میشه با این کد
چرا mailText درون IdMessage1 گذاشتید؟
چرا body مربوط به IdMessage1 رو در کد دخیل نکردید؟

[vcldeveloper]

چرا mailText درون IdMessage1 گذاشتید؟
چرا body مربوط به IdMessage1 رو در کد دخیل نکردید؟

برای اینکه متن این ایمیل یک متن ساده ASCII نیست. درباره MessageParts تحقیق کنید.

[Cave_Man]

من هنوز سر در نمیارم چرا ایمیل ظاهرا خالی ارسال میشه چون وقتی یاهو رو چک میکنم ایمیل خالیه...

[vcldeveloper]

من هنوز سر در نمیارم چرا ایمیل ظاهرا خالی ارسال میشه چون وقتی یاهو رو چک میکنم ایمیل خالیه...

احتمالا Message parts را درست تشخیص نمیده، شاید هم Encoding را. البته سورس بالا آزمایشی بود و من خودم تستش نکردم، ولی بهتر هست که با یک برنامه مطمئن مثل Outlook چک کنید و ببینید آیا متن را درست نمایش میده یا نه.

[Cave_Man]

من با فایر فاکس ( مرورگر) ایمیل یاهوم رو چک میکنم
قبلا که ایمیل روبه صورت ASCII پینگلیش میفرستادم درست بود الان میخام ایمیل رو فارسی ارسال کنم و با این کد با مشکل مواجه هستم. من ایمیلی ندارم که بتونم با OutLook چک کنم ایمیل هام مجانی هستن میخام حتی المکان بشه ایمیلهای فارسی رو در مرور گر هم چک کرد

[vcldeveloper]

نباید ربطی به فایرفاکس داشته باشه.

من ایمیلی ندارم که بتونم با OutLook چک کنم ایمیل هام مجانی هستن

هر شرکتی که POP3 مجانی بده، کفایت میکنه، مثلا GMail. غیر از این هم خیلی شرکت های دیگه هستند که دسترسی POP3 مجانی میدن، می تونید یکی از آنها را برای آزمایش استفاده کنید. یاهو و Hotmail دسترسی مجانی POP3 نمیدن.

[vcldeveloper]

امروز توسط یک لینک در سایت دوباره به این تاپیک رسیدم، برای تکمیل بحث...
مشکل کارکترهای یونیکد فارسی در دلفی 2009 وجود نداره، پس اگر از این نسخه استفاده می کنید، می تونید از همون روش عادی ارسال ای میل استفاده کنید، و نیازی نیست که متن نامه را به Base64 کد کنید.

[تجلی]

امروز توسط یک لینک در سایت دوباره به این تاپیک رسیدم، برای تکمیل بحث...
مشکل کارکترهای یونیکد فارسی در دلفی 2009 وجود نداره، پس اگر از این نسخه استفاده می کنید، می تونید از همون روش عادی ارسال ای میل استفاده کنید، و نیازی نیست که متن نامه را به Base64 کد کنید.

سلام.
من در دلفی xe وقتی متن نامه ای رو به زبان فارسی ارسال میکنم به صورت علامت سوال در میاد کدی که استفاده میکنم اینه >

Idmessage.body.addstring(memo1.lines)

آیا نوع کد نویسی اشکال داره یا مشکل از جای دیگست ؟ چون عرض کرده بودید که از دلفی 2009 به بعد نیازی به کد کردن متن نامه نیست .

[تجلی]

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

برای کسانی که بعدا با این مشکل روبرو میشند پیشنهاد میکنم این لینک رو بخونند >
http://www.e-iter.net/Knowledge/Indy9/007544.html#0005