تمام مسائل در مورد ایمیل == برنامه ها ، رفع مشکل

[..hamid..]

سلام و با تشكر فراوان
كاري كه ميخوام بكنم دقيقا اينجوريه:
يك صفحه شامل 20 تا سوال تستي هست.
در انتهاي صفحه هم فيلدي براي نام و ايميل و آدرس كسي كه اين سوال ها رو جواب داده ميخوام.
بعد هر كسي اين سوالها رو جواب داد هم تو ديتا بيس سايت ذخيره شه و هم به ميل سايت فرستاده شه.
اگر هم اين امكان رو بشه داد كه هر كسي فقط يك بار بتونه اون صفحه رو ببينه ونتونه دو دفعه در مسابقه شركت كنه خيلي بهتره
اين تا اينجا.ولي دو تا سوال ديگه:شما در بالا دو تا كد گذاشتيد كه اولي رو هر جاي سايت كه بخوام فيلد پر شه بايد قرار داد ولي دومين كد رو بايد كجا قرار بدم(هموني كه وظيفه ارسال به ايميل رو داره)
و اينكه به فرض يك نفر به سوالها جواب داد و در ديتا بيس سايت ذخيره شد.من بايد از كجا به اين فايل دسترسي پيدا كنم
خلاصه خيلي ببخشيد .اطلاعات من ربارهasp در حد صفره

 

[ozv]

سلام دوست عزيز

كدهاي شما را به صفحه اي كه فرم در آن قرار دارد اضافه كردم
و ايميل آن را تغيير داده و آن را روي سرور اجرا كردم اما پيام زير ظاهر شد:
FrontPage Run-Time Component Page

You have submitted a form or followed a link to a page that requires a web server and the FrontPage Server Extensions to function properly.

This form or other FrontPage component will work correctly if you publish this web to a web server that has the FrontPage Server Extensions installed.

Click the <Back> arrow to return to the previous page

 

[mehdi25]

من با این تک Email ارسال می کنم فقط مشکل در فارسی Send کردن
از CODEPAGE=65001 استفاده کردم و Encoding سایت Unicod(UTF-8) استفاده کردم .
یه فرم طراحی کردم که اطلاعات رو از کاربر میگیره و توسط متد Post به صفحه ارسال ایمل میفرسته که اونجا بعد از نمایش تمام اطلاعاتی که کاربر وارد کرده ، ایمیل رو ارسال میکنه .
تواون صفحه اطلاعاتی که کاربر وارد کرده کاملا فارسیه ولی وقتی که به ایمیل ارسال میشه تماماً علامت سواله​

<%
Body =" Name      :     " & request.form("Name") & vbCrLf _ 
& "Family      :      " & request.form("Family") & vbCrLf _          	 
& "Email       :     " & request.form("Email") & vbCrLf _          	 
& "info       :     " & request.form("info") & vbCrLf _          	 
& Trim(strMessage)
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "ايميل از سايت"
fromname="Tabligh Site"
emailfrom="[email protected]"
objMessage.From = fromname & " <" & emailfrom & ">"
objMessage.To = "[email protected]"
objMessage.TextBody = Body
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.ftfgts.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objMessage.Configuration.Fields.Update
objMessage.Send


'tamame va to khattaye pain mitooni baghiye safe ye html ro bezari
%>

 

[mehdi25]

کمممممممممممممممممممممممممممممممک تورو خدا

 

[H_R]

کمممممممممممممممممممممممممممممممک تورو خدا

خوب خوب ! چرا هوار میزنی :blush:

ببین برای اینکه بتونی یه ایمیل فارسی رو یه جوری بفرستی که شکی توش نباشه که همه میتونن بخونن فقط یه راه داری اونم اینه که به صورت یونکد این ایمیل رو بفرستی نه Arabic یا Utf-8 مثلا باید هر حرفت به صورت چیزی مثل این باشه 12354# این یک حرف اه توی یونی کد . من یه کلاس نوشته بودم یکی از متد هاش این تبدیل رو انجام میداد ولی چون هاردم سوخته دیگه ندارمش حتی فعلا فرانت پیج هم ندارم که برام تبدیل کنه ولی اگه توی فرانتپیج encoding رو تعریف نکنی وقتی که سرس رو میبینی میبینی که تمتم متن فارسی او شکلی شده .

خیلی راحت میتونی براش یه تابع بنویسی که این کار رو بکنه .

فکر میکنم متوجه شدی باید چیکار کنی :happy:

 

[mehdi25]

نه متوجه نشدم

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

 

[Graveworm]

اول سورس این خط رو اضافه کن

<%session.codepage=1252%>

و این متا هم به اول صفحه اضافه کن :

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

امیدوارم کمکت کنه

 

[mehdi25]

اول سورس این خط رو اضافه کن

<%session.codepage=1252%>

و این متا هم به اول صفحه اضافه کن :

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

امیدوارم کمکت کنه ​

باز هم نشد.....................


فقط وقتی میتونم فارسی میل کنم که با این Script تمامی کاراکتر ها رو کنترل کنم . که یه مشکلی که داره اینه که دیگه User نمی تونه English تایپ کنه و فقط فارسی تایپ میشه .
تقریبا این همون چیزیه که H_R در بالا گفت .


این کد رو میزارم شاید مشکل بچه های دیگه رو حل کنه​

<script LANGUAGE="JavaScript">
<!--
function submitenter(myfield,e)
{
var key;
if (window.event)
   key = window.event.keyCode;
else if (e)
   key = e.which;
if (key>31)
if (key<128)
{
if (window.event)
    window.event.keyCode=' !"#$%،گ)(×+و-./0123456789:ك,=.؟@ِذ}ىُىلآ÷ـ،/’د×؛َءٍف‘{ًْإ~جژچ^_پشذزيثبلاهتنمئدخحضقسفعرصطغظ<|>ّ'.charCodeAt(key-32);
else if (e)
   e.which=' !"#$%،گ)(×+و-./0123456789:ك,=.؟@ِذ}ىُىلآ÷ـ،/’د×؛َءٍف‘{ًْإ~جژچ^_پشذزيثبلاهتنمئدخحضقسفعرصطغظ<|>ّ'.charCodeAt(key-32);
   }
return true;
}
//-->
</script>

اگه کسی خواست از این استفاده کنه باید این function رو تو قسمتهای input فراخوانی کنه به این ترتیب​

<input type="text" name="Name" onkeypress="return submitenter(this,event)" style="font-family:Tahoma; font-size:12px;">

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

 

[Graveworm]

این 2 کد رو هم به صفحه فرم اضافه کن هم به صفحه ASP ... باید بشه :؟ من همین کار رو کردم شد !

 

[mehdi25]

من که نتونستم

اجق وجق میل میده
ببین :​

ظ.ظ? غOظ? ظ?ظ.ظ^ظ?ظ? ط§ط² ط¨ط±ظ?ط§ظ.ظ? ط¬ط³طھط¬ظ^ ع©ظ? ط¯ط§ط±ظ. ط±ظ^ ط¨ط±ط§طھ ظ.غOط²ط§ط±ظ. ط¨ط§ظ,غOط´ظ^ ط®ظ^ط¯طھ طھع©ظ.غOظ" ع©ظ? :
ط§غOظ? ط¨ط±ظ?ط§ظ.ظ? ط¨ط±ط±ط­طµط¨ غOع©غO غOط§ طھظ.ط§ظ. ظ.طھط؛غOط±ظ?ط§ ط¬ط³طھط¬ظ^ ظ.غOع©ظ?ظ?

 

[mehdi25]

آخرش مجبور میشم مثل سایت وزارت خارجه برای ایمیل هم یه دیتابانک بزارم و online چیزهایی که شبیه به ایمیله رو بخونم

 

[H_R]

اگه برای خودت میخوای خوب انکدینگ بروزرت رو درست کن !!! در ضمن اون چیزی که گفتم نوشتنش کاری نداره ها توی کل استرینگ ات کد هر حرف رو با خودش replace کن . همین !! ماسکسیمم 2 ساعت وقتت رو بگیره دیگه !

 

[mehdi25]

اگه برای خودت میخوای خوب انکدینگ بروزرت رو درست کن !!! در ضمن اون چیزی که گفتم نوشتنش کاری نداره ها توی کل استرینگ ات کد هر حرف رو با خودش replace کن . همین !! ماسکسیمم 2 ساعت وقتت رو بگیره دیگه !

انکدینگ بروسر رو هم درست کردم.
فورم سند میشه تث یه صفحه دیگه ، یعد از اون صفحه به ایمیل فرستاده میشه . اخه تو صفحه ای که فرستاده میشه درسته ولی وقتی که سندمیشه مشکل داره :wacko:
تو این روش دیگه فارسی و انگلیسی میشه نوشت یا اونم مثل برنامه منه ... ؟

 

[H_R]

ببین هر حرفی از حروف دنیا توی یونیکد یه کد داره ! همینطرو حروف فارسی از این قائده مثتسنی نیستند ! حالا اگر این حروف به کد هاشون تبدیل بشن تمام مرورگرهای دنیا میتونن اون ها رو بدون نیاز به هیچ تنظیمی و فونتی بشناسن (تمام مرورگرها منظورم پدرمادر دار هاشه !! ) ولی من یه چیزی یادم افتاد که مشکلت رو برطرف میکنه !

http://www27.brinkster.com/mahmoud690/irmail/AboutIrMail.htm

این همه کار های لازم رو خودش میکنه ! من استفادش نکردم ولی باید چیز خوبی باشه !

 

[mehdi25]

آقایون مژده بدم که درست شد
آقای H_R اینطوری میگفتی :​

var farsikey = [
   0x0020, 0x0021, 0x061B, 0x066B, 0x00A4, 0x066A, 0x060C, 0x06AF,
   0x0029, 0x0028, 0x002A, 0x002B, 0x0648, 0x002D, 0x002E, 0x002F,
   0x0030, 0x0031, 0x0032, 0x0033, 0x0034, 0x0035, 0x0036, 0x0037,
   0x0038, 0x0039, 0x003A, 0x0643, 0x003E, 0x003D, 0x003C, 0x061F,
   0x066C, 0x0624, 0x200C, 0x0698, 0x0649, 0x064D, 0x0625, 0x0623,
   0x0622, 0x0651, 0x0629, 0x00BB, 0x00AB, 0x0621, 0x004E, 0x005D,
   0x005B, 0x0652, 0x064B, 0x0626, 0x064F, 0x064E, 0x0056, 0x064C,
   0x0058, 0x0650, 0x0643, 0x062C, 0x005C, 0x0686, 0x00D7, 0x0640,
   0x200D, 0x0634, 0x0630, 0x0632, 0x064A, 0x062B, 0x0628, 0x0644,
   0x0627, 0x0647, 0x062A, 0x0646, 0x0645, 0x067E, 0x062F, 0x062E,
   0x062D, 0x0636, 0x0642, 0x0633, 0x0641, 0x0639, 0x0631, 0x0635,
   0x0637, 0x063A, 0x0638, 0x007D, 0x007C, 0x007B, 0x007E ];

 

[mehdi25]

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

چون در مورد ایمیل سوالات ز یادی مطرح می شود از مدیران محترم در خواست می شود این تاپیک را به صورت ثابت در این انجمن قرار دهند .

 

[mehdi25]

'Sending SMTP mail via port 25 using CDOSYS
'This VB sample uses CDOSYS to send SMTP mail using the cdoSendUsingPort option and specifying a SMTP host.

' Note: It is recommended that all input parameters be validated when they are
' first obtained from the user or user interface.
Private Sub SendMessage(strTo As String, strFrom As String)

'Send using the Port on a SMTP server
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Dim Flds As ADODB.Fields
Dim strHTML

Set Flds = iConf.Fields

With Flds
    .Item(cdoSendUsingMethod) = cdoSendUsingPort
    .Item(cdoSMTPServer) = "mail.example.com"
    'Use SSL to connect to the SMTP server:
    '.Item(cdoSMTPUseSSL) = True
    .Item(cdoSMTPConnectionTimeout) = 10
    .Update
End With

' Build HTML for message body
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

With iMsg
    Set .Configuration = iConf
    .To = strTo
    .From = strFrom
    .Subject = "This is a test CDOSYS message (Sent by Port)"
    .HTMLBody = strHTML
    '.TextBody = "This is the text body of the message..."

    .Send
End With

' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

End Sub

یرگرفته از سایت microsoft

 

[mehdi25]

اگر می خواهید فایلی را به ایمیل خود ضمیمه کنید از این مثال استفاده کنید

' Reference to Microsoft ActiveX Data Objects 2.5 Library
' Reference to Microsoft CDO for Exchange 2000 Server Library
' ..
Dim iMsg As New CDO.Message
' configure message here if necessary
With iMsg
   .To = "[email protected]"
   .From = "[email protected]"
   .Newsgroups = "comp.example.newsgroup1"
   .Subject = "Agenda for staff meeting"
   .TextBody = "See attached docs for more info."
   .AddAttachment "http://example.example.com/picture.gif"
   .AddAttachment "file://d:/temp/test.doc"
   .AddAttachment "C:\files\another.doc"
   ' finish and send
End With

 

[mehdi25]

این هم یه برنامه ارسال ایمیل که خود microsoft پیشنهاد کرده برای VB کار های عزیز

<!--
'Sending SMTP mail via the pickup directory using CDOSYS

'This ASP page uses CDOSYS to send SMTP mail using the cdoSendUsingPickup option.  The e-mail is created in the pickup directory of the local SMTP server and delivery is handled by the local SMTP service.
-->

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
'Send using the Pickup directory on the IIS server
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPickup = 1

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

' set the CDOSYS configuration fields to use the SMTP service pickup directory
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
.Update
End With

' build HTML for message body
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

' apply settings to the message
With iMsg
Set .Configuration = iConf
.To = "[email protected]"
.From = "[email protected]"
.Subject = "This is a test CDOSYS message (Pickup directory)"
.HTMLBody = strHTML
.Send
End With

' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing


%>
<P> </P>

</BODY>
</HTML>
<!--

 

[mehdi25]

اینم یه برنامه جالب . خودتون ببینید

<%@ Language=VBScript %>

<%

' Reference to Microsoft ActiveX Data Objects 2.5 Library
' Reference to Microsoft CDO for Windows 2000 Library

Dim iMsg
Dim iConf
Dim Flds

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

' Set the configuration fields.
Set Flds = iConf.Fields

' Set the proxy server to be used.
' TODO: Set "someproxy:80" to the name of your proxy server.
Flds("http://schemas.microsoft.com/cdo/configuration/urlproxyserver") = "someproxy:80"

' Set if this is a local server.
Flds("http://schemas.microsoft.com/cdo/configuration/urlproxybypass") = "<local>"

' Set the option to retrieve the latest content directly from the server.
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

' Set the message properties.
With iMsg

Set .Configuration = iConf
' Create the MIME representation of the Web page in the message.
' TODO: Change the To and From fields to valid e-mail addresses.
.CreateMHTMLBody "http://www.example.com"
.To = "[email protected]"
.From = "[email protected]"
.Subject = "Sample MHTML message..."
.Send
End With

%>