ورود

View Full Version : سوال: ارسال ايميل فارسي


binyaz2003
شنبه 11 آبان 1387, 20:17 عصر
سلام
من با کد زير ايميل ميفرستم اما فارسي ها رو علامت سئوال نشون ميده.خاصيتي براي تعيين charset يا نوع unicode اون که بشه utf-8 انتخاب کرد نداره؟

Set MyMail = CreateObject("cdo.message")
MyMail.From = str_sender
MyMail.To = str_reciver
MyMail.Subject = str_subject
MyMail.HTMLBody = str_content
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "myserverip"
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@mysite.com"
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mymailpass"
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
MyMail.Configuration.Fields.Update
MyMail.Send
Set MyMail = nothing
kashaneh
یک شنبه 12 آبان 1387, 00:13 صبح
از كامپننت aspmail استفاده كن

تو تالار asp بگردي همين چند پست قبل توضيحش اومده.

اطلاعات بيشتر خواستي بگو تا راهنمايي كنيم. موفق باشي
binyaz2003
یک شنبه 12 آبان 1387, 09:10 صبح
وسط aspmail با کد زير ميفرسته فارسيشم درست شد اما در subject ايميل هايي که ميفرسته مثلا به ياهو و يا msn کلمه [spam] رو نشون ميده.يعني چي؟من فقط يک دونه ايميل ميفرستم.سايتم چندروزه اومده بالا و تا حالا ايميل زيادي نفرستاده!


<%

Set Mail = Server.CreateObject("Persits.MailSender") 'Make a Instance Of Object
Mail.Host = "mail.mycompany.com" ' Required
Mail.From = "sales@mycompany.com" ' Required
Mail.AddAddress "jsmith@company1.com", "John Smith"
Mail.Subject = "Sales Receipt"
Mail.Body = "<HTML><BODY BGCOLOR=#0000FF>Dear John:....</BODY></HTML>"
Mail.IsHTML = True
Mail.CharSet = "UTF-8"
' Send mail
Mail.Send

%>
kashaneh
یک شنبه 12 آبان 1387, 22:43 عصر
دوست عزيز يعني شما با همون مشخصاتي كه تو پست گفته بودم اقدام به ارسال ايميل كردي؟؟؟

اگه جوابت مثبته مطمئنا جزو هرزنامه ها ميشه نامه هات چون اين سرور كه شما در حال استفاده ازش هستي (منظورم همون smail.Mycompany.com) يك دمو و نمونه است و مطمئنا در روز چون ايميل هاي زيادي از طريق سرورهاي اون ارسال ميشه اين اتفاق مي افته.

به طور معمول استفاده از اين كامپوننت نامه ها رو دقيقا به Inbox هدايت مي كنه.
binyaz2003
دوشنبه 13 آبان 1387, 14:29 عصر
دوست عزيز من اونقدرها هم که شايد فکر کرده باشيد مبتدي نيستم که بيام از مشخصات در مثال استفاده کنم.من مقادير مربوط به سايت خودم رو ميزارم.ايميل هم به inbox ميره اما در عنوانش دقيقا کلمه [spam] اضافه ميشه.
مشکل اينه.
kashaneh
چهارشنبه 15 آبان 1387, 00:29 صبح
دوست عزيز قصد جسارت نبود...
مشكلي كه شما مي فرمايين در اينصورت تنها مي تونه از سرور شما باشه. يعني امكان داره يك نفر كه از اين سرور سرويس مي گيره، تعداد زيادي ايميل ارسال كرده باشه به نحوي كه اين سرويس دهنده ها (ياهو و ...) اونو به عنوان سرور مخرب شناسايي كرده باشن. البته شايد !!!
ولي در كل اين كامپوننت نقشي در نوع ايميل ارسالي شما ندارد. موفق باشي
binyaz2003
دوشنبه 20 آبان 1387, 21:41 عصر
بالاخره پيدا کردم اول charset رو utf-8 گزاشتم با اينکه صفحاتمم utf-8 هست اما علامت سئوال نشون ميداد اما با charset عربي ويندوز درست شد :


Set MyMail = CreateObject("cdo.message")
MyMail.From = "info@"
MyMail.To = Request("reciver")
MyMail.Subject = Request("subject")
MyMail.BodyPart.CharSet = "windows-1256"
' MyMail.TextBody= strBody
MyMail.HTMLBody = strBody
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.server.com"
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@"
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
MyMail.Configuration.Fields.Update
MyMail.Send
Set MyMail = nothing
smym271
چهارشنبه 13 آذر 1387, 10:54 صبح
چطور میشه به بانک وصل شد ؟