مشكل ميل و asp

N

nima_isp

Member
سلام آقايان و دوستان عزيزم چند وقت پيش يه كي ار دوستان اين كد رو جهت فرستادن mail مطرح كردند



اقايان من يه host دارم وقتي اينو اجرا ميكنم اين پيغام مياد

کد: 
Server object error 'ASP 0177 : 800401f3' 

Server.CreateObject Failed 

/mail/formtoemail.asp, line 204 

800401f3

اقايان به خدا آبروم داره ميره كمكم كنيد :((

اين هم كد كه دوستان داند و منو بيچاره كردن تورو خدا كمكك كنيد با يه host چي كار كنم كه اين كار كنه


کد: 
فايل html 

كد: 

<html> 
<head> 
<title>Form</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 
</head> 

<body bgcolor="#FFFFFF" text="#000000"> 
<form name="form1" method="post" action="formtoemail.asp"> 
<table width="760" border="0" cellspacing="0" cellpadding="0"> 
<tr> 
<td width="100"> 
<div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Sender</font></div> 
</td> 
<td width="15"> </td> 
<td width="645"> 
<input type="text" name="sender"> 
</td> 
</tr> 
<tr> 
<td width="100"> 
<div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Sender Name</font></div> 
</td> 
<td width="15"> </td> 
<td width="645"> 
<input type="text" name="sendername"> 
</td> 
</tr> 
<tr> 
<td width="100"> 
<div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Recipient</font></div> 
</td> 
<td width="15"> </td> 
<td width="645"> 
<input type="text" name="recipient"> 
</td> 
</tr> 
<tr> 
<td width="100"> 
<div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Recipient 
Name</font></div> 
</td> 
<td width="15"> </td> 
<td width="645"> 
<input type="text" name="recipientname"> 
</td> 
</tr> 
<tr> 
<td width="100"> 
<div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Subject</font></div> 
</td> 
<td width="15"> </td> 
<td width="645"> 
<input type="text" name="subject"> 
</td> 
</tr> 
<tr> 
<td width="100"> 
<div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Message</font></div> 
</td> 
<td width="15"> </td> 
<td width="645"> 
<input type="text" name="message"> 
</td> 
</tr> 
<tr> 
<td width="100"> </td> 
<td width="15"> </td> 
<td width="645"> 
<input type="submit" name="Submit" value="Submit"> 
</td> 
</tr> 
</table> 
<input type="hidden" name="mailtype" value="text"> 
<input type="hidden" name="thankspage" value="/comic/"> 
<input type="hidden" name="whythank" value="1"> 
<input type="hidden" name="details" value="1"> 
<input type="hidden" name="failure" value=""> 
</form> 
</body> 
</html> 


و فايل ASp براي ارسال 

كد: 

<% 
default_failure = Request.ServerVariables("URL") 
default_details = True 
default_whythank = True 
default_thankspage = Request.ServerVariables("URL") 
default_mailtype = "Text" 
default_sender = Empty 
default_sendername = Empty 
default_recipient = Empty 
default_subject = Empty 
default_message = Empty 


'  Global Configuration 
global_post_method_only = True 
global_failure = Empty 
global_details = Empty 
global_whythank = Empty 
global_thankspage = Empty 
global_mailtype = Empty 
global_sender = Empty 
global_sendername = Empty 
global_recipient = Empty 
global_subject = Empty 
global_message = Empty 
form_sender = Trim(request("sender")) 
form_sendername = request("sendername") 
form_recipient = Trim(request("recipient")) 
form_recipientname = request("recipientname") 
form_subject = request("subject") 
form_message = request("message") 
form_thankspage = request("thankspage") 
form_whythank = request("whythank") 
form_mailtype = request("mailtype") 
form_failure = request("failure") 
form_details = request("details") 
If global_sender = Empty Then 
   If form_sender = Empty Then 
      email_sender = default_sender 
   Else 
      email_sender = form_sender 
   End If 
Else 
   email_sender = global_sender 
End If 

If global_sendername = Empty Then 
   If form_sendername = Empty Then 
      email_sendername = default_sendername 
   Else 
      email_sendername = form_sendername 
   End If 
Else 
   email_sendername = global_sendername 
End If 

If global_recipient = Empty Then 
   If form_recipient = Empty Then 
      email_recipient = default_recipient 
   Else 
      email_recipient = form_recipient 
   End If 
Else 
   email_recipient = global_recipient 
End If 

If global_recipientname = Empty Then 
   If form_recipientname = Empty Then 
      email_recipientname = default_recipientname 
   Else 
      email_recipientname = form_recipientname 
   End If 
Else 
   email_recipientname = global_recipientname 
End If 

If global_subject = Empty Then 
   If form_subject = Empty Then 
      email_subject = default_subject 
   Else 
      email_subject = form_subject 
   End If 
Else 
   email_subject = global_subject 
End If 

If global_message = Empty Then 
   If form_message = Empty Then 
      email_message = default_message 
   Else 
      email_message = form_message 
   End If 
Else 
   email_message = global_message 
End If 

If global_thankspage = Empty Then 
   If form_thankspage = Empty Then 
      email_thankspage = default_thankspage 
   Else 
      email_thankspage = form_thankspage 
   End If 
Else 
   email_thankspage = global_thankspage 
End If 

If global_whythank = Empty Then 
   If form_whythank = Empty Then 
      email_whythank = default_whythank 
   Else 
      email_whythank = form_whythank 
      If CStr(email_whythank) = "1" Then email_whythank = True 
   End If 
Else 
   email_whythank = global_whythank 
End If 

If global_mailtype = Empty Then 
   If form_mailtype = Empty Then 
      email_mailtype = default_mailtype 
   Else 
      email_mailtype = form_mailtype 
   End If 
Else 
   email_mailtype = global_mailtype 
End If 

If global_failure = Empty Then 
   If form_failure = Empty Then 
      email_failure = default_failure 
   Else 
      email_failure = form_failure 
   End If 
Else 
   email_failure = global_failure 
End If 

If global_details = Empty Then 
   If form_details = Empty Then 
      email_details = default_details 
   Else 
      email_details = form_details 
      If CStr(email_details) = "1" Then email_details = True 
   End If 
Else 
   email_details = global_details 
End If 

'determin whether to user will need to be redirected for failures or sucesses 
off_page_failure_redirect = True 
If email_failure = Request.ServerVariables("URL") Or email_failure = "" Then off_page_failure_redirect = False 
off_page_thankspage_redirect = True 
If email_thankspage = Request.ServerVariables("URL") Or email_thankspage = "" Then off_page_thankspage_redirect = False 

process_email = True 

'post method check 
If global_post_method_only = True And LCase(Request.ServerVariables("REQUEST_METHOD")) <> "post" Then 
   If off_page_failure_redirect = True Then 
      Response.Redirect(email_failure & "?prob=post") 
   Else 
      process_email = False 
      prob = "post" 
   End If    
End If 

'check that there is a 'valid' email address for the "sender" and "recipient" fields 
If Len(email_sender) < 5 Or Instr(email_sender, "@") < 2 Or Instr(email_sender, ".") < 4 Then 
   If off_page_failure_redirect = True Then 
      Response.Redirect(email_failure & "?prob=sender") 
   Else 
      process_email = False 
      prob = "sender" 
   End If    
End If 

If Len(email_recipient) < 5 Or Instr(email_recipient, "@") < 2 Or Instr(email_recipient, ".") < 4 Then 
   If off_page_failure_redirect = True Then 
      Response.Redirect(email_failure & "?prob=recipient") 
   Else 
      process_email = False 
      prob = "recipient" 
   End If    
End If 

'reformat values 
If email_sendername = "" Then 
   email_from = email_sender 
Else 
   email_from = email_sendername & "<" & email_sender & ">" 
End If 
If email_subject = "" Then email_subject = "No Subject" 
If email_message = "" Then email_message = "No message" 

'create details insert 
If email_details = True Then 
If LCase(email_mailtype) = "html" Then str_line = "<hr>" Else str_line = "---" & vbCrLf 
insert_details = vbcrlf & vbcrlf & vbcrlf & str_line & "Remote Client: " & request.ServerVariables("REMOTE_ADDR") & vbcrlf & "Submitting Page: " & request.ServerVariables("HTTP_REFERER") & vbcrlf & "Processing Script: " & Request.ServerVariables("URL") & vbcrlf & "Sent Time/Date: " & FormatDateTime(Now,1) & ", " & Time 
End If 

'send email 
If process_email <> False Then 
   Set objNewMail = Server.CreateObject("CDONTS.NewMail") 
   objNewMail.From = email_from 
   objNewMail.Subject = email_subject 
   objNewMail.To = email_recipient 
   If LCase(email_mailtype) = "html" Then 
      objNewMail.BodyFormat = 0 
      objNewMail.MailFormat = 0 
      objNewMail.Body = Replace(Server.HTMLEncode(email_message), vbCrLf, "<br>") & Replace(insert_details, vbCrLf, "<br>") 
   Else 
      objNewMail.Body = email_message & insert_details 
   End If 
   objNewMail.Send 
   Set objNewMail = Nothing 

   'say thanks! 
   If off_page_thankspage_redirect = True Then 
      If email_whythank = True Then 
         Response.Redirect(email_thankspage & "?sender=" & email_sender & "&sendername=" & email_sendername & "&recipient=" & email_recipient & "&recipientname=" & email_recipientname & "&subject=" & email_subject & "&message=" & email_message) 
      Else 
         Response.Redirect(email_thankspage) 
      End If 
   End If 
End If 
%> 
<html> 
<head> 
<title>Submit Response</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 
</head> 

<body bgcolor="#FFFFFF" text="#000000"> 

<table width="760" border="0" cellspacing="0" cellpadding="0" align="center"> 
<tr><td colspan="3"><b><font face="Arial, Helvetica, sans-serif" size="5"> 
<% If process_email = False Then %> 
There was a problem sending your email! 
<% Else %> 
Email sent successfully! 
<% End If %> 
</font></b></td></tr> 
<tr><td colspan="3" height="10"></td></tr> 
<tr><td colspan="3"><b><font face="Arial, Helvetica, sans-serif" size="4">Details:</font></b></td></tr> 
<% If process_email <> False Then %> 
<tr><td width="100" valign="top"><div align="right"><font face="Arial, Helvetica, sans-serif" size="3"><b>To:</b></font></div></td><td width="15"></td><td width="645"><font size="3" face="Courier New, Courier, mono"><%= email_recipientname & " <" & email_recipient & ">" %></font></td></tr> 
<tr><td width="100" valign="top"><div align="right"><font face="Arial, Helvetica, sans-serif" size="3"><b>From:</b></font></div></td><td width="15"></td><td width="645"><font size="3" face="Courier New, Courier, mono"><%= email_sendername & " <" & email_sender & ">" %></font></td></tr> 
<tr><td width="100" valign="top"><div align="right"><font face="Arial, Helvetica, sans-serif" size="3"><b>Subject:</b></font></div></td><td width="15"></td><td width="645"><font size="3" face="Courier New, Courier, mono"><%= email_subject %></font></td></tr> 
<tr><td width="100" valign="top"><div align="right"><font face="Arial, Helvetica, sans-serif" size="3"><b>Sent as:</b></font></div></td><td width="15"></td><td width="645"><font size="3" face="Courier New, Courier, mono"><%= email_mailtype %></font></td></tr> 
<tr><td width="100" valign="top"><div align="right"><font face="Arial, Helvetica, sans-serif" size="3"><b>Message:</b></font></div></td><td width="15"></td><td width="645"><font size="3" face="Courier New, Courier, mono"><%= Replace(Server.HTMLEncode(email_message),Chr(13),"<br>") %></font></td></tr> 
<% Else 
   If prob = "sender" Then %> 
   <tr><td colspan="3"><font face="Arial, Helvetica, sans-serif" size="3"><b>There was a problem with the senders address, please go back and try again.</b></font></td></tr> 
   <% End If 
End If %> 
</table> 
</body> 
</html>
 
A

arashoori

New Member
سلام
دوست عزيز خود asp امكان فرستاده ايمل رو نداره يا من نميدونم شما بايد از cpmponent هاي نوشته شده براي اين كار استفاده كنيد
و از نصب بودن همون كامپوننت روي هاست مطمين باشيد
 
O

omidak

Active Member
سلام:
اگر از اين كد استفاده كنيد بهتره :wink: :
کد: 
    Sub ReplaceInBodyPart(bp)
    	Const strTokentoFind = "SIGNATURE"
    	Const strTokenToReplace = "Benny WONG Chee Khiun"
    	
    	Set objStream = bp.GetDecodedContentStream
    	strContent = objStream.ReadText
    	strContent = Replace(strContent, strTokentoFind, strTokenToReplace)
    	
    	objStream.Position = 0
    	objStream.SetEOS
    	objStream.WriteText strContent
    	objStream.Flush
    	Set objStream = nothing
    End Sub
    Sub modifyHtmlAndTextBodyParts(msg)
    	Set objBP = msg.HTMLBodyPart
    	ReplaceInBodyPart objBP
    	Set objBP = nothing
    	
    	Set objBP = msg.TextBodyPart
    	ReplaceInBodyPart objBP
    	Set objBP = nothing
    End Sub
    Set objMsg = Server.CreateObject ("CDO.Message")
    With objMsg
    	.To = """MajidOnline"" <[email protected]>"
    	.From = """You"" <[email protected]>"
    	.Subject = "Sample Mail Sender"
    	.CreateMHTMLBody "file://c:\Attachment.htm"
    End With
    ModifyHtmlAndTextBodyParts objMsg
    objMsg.Send 
    Set objMsg = nothing
 
N

nima_isp

Member
omidak گفت:
سلام:
اگر از اين كد استفاده كنيد بهتره :wink: :
کد: 
    Sub ReplaceInBodyPart(bp)
    	Const strTokentoFind = "SIGNATURE"
    	Const strTokenToReplace = "Benny WONG Chee Khiun"
    	
    	Set objStream = bp.GetDecodedContentStream
    	strContent = objStream.ReadText
    	strContent = Replace(strContent, strTokentoFind, strTokenToReplace)
    	
    	objStream.Position = 0
    	objStream.SetEOS
    	objStream.WriteText strContent
    	objStream.Flush
    	Set objStream = nothing
    End Sub
    Sub modifyHtmlAndTextBodyParts(msg)
    	Set objBP = msg.HTMLBodyPart
    	ReplaceInBodyPart objBP
    	Set objBP = nothing
    	
    	Set objBP = msg.TextBodyPart
    	ReplaceInBodyPart objBP
    	Set objBP = nothing
    End Sub
    Set objMsg = Server.CreateObject ("CDO.Message")
    With objMsg
    	.To = """MajidOnline"" <[email protected]>"
    	.From = """You"" <[email protected]>"
    	.Subject = "Sample Mail Sender"
    	.CreateMHTMLBody "file://c:\Attachment.htm"
    End With
    ModifyHtmlAndTextBodyParts objMsg
    objMsg.Send 
    Set objMsg = nothing
کلیک کنید تا باز شود...
اقايون از كجا بايد بدونم كه اين كامپوننت ها بر روي هاست نصب مي باشد آقا اميد ار اين كد بالا چه طوري استفاده كنم
 
N

nima_isp

Member
اقايون از كجا بايد بدونم كه اين كامپوننت ها بر روي هاست نصب مي باشد آقا اميد ار اين كد بالا چه طوري استفاده كنم
 
O

omidak

Active Member
سلام:
خوب از اونجايي كه بايد از سرويس دهنده سوال كنيد :wink:
كار با اين هم خيلي ساده هست:
به اين بخش از كد دقت كنيد:
کد: 
       .To = """MajidOnline"" <[email protected]>" 
       .From = """You"" <[email protected]>" 
       .Subject = "Sample Mail Sender" 
       .CreateMHTMLBody "file://c:\Attachment.htm"
آدرس Email گیرنده به To و فرستنده به From و Subject و به CreateHtmlBody که یک Function هست هم برایه شما متن رو آماده میکنه :wink:
 
N

nima_isp

Member
اقا هاست من يه شركت خارجي هست يه چيزي برنامه چيزي نيست آدم بدونه اين كامپوننت ها نصب هست يا نه !!!! در ضمن اين همه سايت مثل همين مجيد ازكجا اين روش نصب هست ميشه يه سايت معرفي كنيد كه هاست اين كامژوننت رو داشته باشه و بشه با هر اسمي ازش ميل فرستاد اين خيلي مهمه اينو كه ديگه ميتونين بگيد ريشو قيچي دست خودتون من اين قدر گيرم ها باور نمي كنيد
 
N

nima_isp

Member
omidak گفت:
سلام:
به سايت http://www.clickherefree.com
برید و اونجا Host مورد نظر رو جستجو کنید. :wink:
تقرباً تمام Host ها اونجا ذخیره شدند :wink:
کلیک کنید تا باز شود...
اقا ما كلي وقت گزاشتيم اينارو گشتيم اولا ندونسام اين كامپوننت رو چه طور ميشه جستجو كرد و بعدش شما كه استاد هستين يه نمونشو بگين بشه ميل با هر اسمي و ادرسي از اونجا فرستاد اي قوربونت برم الهي فداي اين اقا اميد بشم
 
N

naeim_crack

Active Member
اقا مدير انجمن مثل اينكه شما بلد نيستين خوب از مجيد بپرس واقعا درست نيست مردم رو سر كار بزاري ميشه بگي كه واقعا اون سايتي كه دادي چيه و جوابي كه به اين دادي چه ربطي داره يه مدير انجمن همه چيز رو بلد نيست ولي تو نمي خواي اينو قبول كني واقعا متاسفم
 
N

nima_isp

Member
من فكر كنم دعوا راه افتاد آقا فكر كنم يه هاست توي ايران معرفي كن كه اين دستورات اجرا بشه و بشه با هر اسمي ميل فرستاد ... يعني با هر دوميني
 
O

omidak

Active Member
nima_isp گفت:
omidak گفت:
سلام:
به سايت http://www.clickherefree.com
برید و اونجا Host مورد نظر رو جستجو کنید. :wink:
تقرباً تمام Host ها اونجا ذخیره شدند :wink:
کلیک کنید تا باز شود...
اقا ما كلي وقت گزاشتيم اينارو گشتيم اولا ندونسام اين كامپوننت رو چه طور ميشه جستجو كرد و بعدش شما كه استاد هستين يه نمونشو بگين بشه ميل با هر اسمي و ادرسي از اونجا فرستاد اي قوربونت برم الهي فداي اين اقا اميد بشم
کلیک کنید تا باز شود...
سلام:
من در مورد ISP ها اطلاعتی ندارم و نمیدونم هرکسی چه طوری ISP ایش رو نصب کرده که این ActiveX رو داشته باشه یا نه ...
اما معمولاً تمامشون این ActiveX رو جواب میدن :wink:

اقا مدير انجمن مثل اينكه شما بلد نيستين خوب از مجيد بپرس واقعا درست نيست مردم رو سر كار بزاري ميشه بگي كه واقعا اون سايتي كه دادي چيه و جوابي كه به اين دادي چه ربطي داره يه مدير انجمن همه چيز رو بلد نيست ولي تو نمي خواي اينو قبول كني واقعا متاسفم
کلیک کنید تا باز شود...
خوب در مورد حرف شما.
من هیچ وقط نگفتم که همه چیز رو بلدم. و حالا حالا ها مونده تا بخوام چیز یاد بگیرم.
آیا من باید اطلاعات کاملی از ISPها مختلف داشته باشم که بدونم هر ISP چگونه سیستم اش رو چطوری نصب کرده؟
اون سایتی که من دادم تمامیه سایتهایه رایگانی رو که سرویس Web میدن رو در اختیارتون میزاره با یک Search قوی.
حالا ایشون Host ای خواست که اون ActiveX رو Support کنه. اما من آشنایی با سرور هایه رایگان ندارم.
گفتم خود ایشون اونجا جستجو کنند و اگر ذکر نکرده بودند یک بار امتحان کنند.
آیا این سر کار گزاشتنه؟

در ضمن اگر میخواهید بحث رو ادامه بدید با صندق پستی تماس بگیرید. وگرنه نامه شما پاک خواهد شد.
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا