ارسال ميل

F

fariborz2004

Member
سلام دوستان
من يك صفحه دارم كه بايد اطلاعات گرفته از از يك فرم را به يك آدس ميل كنه
اگه ميشه منو ياري كنين
در ضمن اگه برنامه با aspباشه عاليه
اگه شد به آدرس من ميل كنيد
[email protected]
 
E

en2fa

Member
آقا من هم يک کد ميخوام واسه همچين چيزی اما نه به asp ترجيحاً perl/php يا cgi..نداريد؟
آخه من serverم linux هست!!
 
saman_sweden

saman_sweden

Active Member
fariborz2004 گفت:
سلام دوستان
من يك صفحه دارم كه بايد اطلاعات گرفته از از يك فرم را به يك آدس ميل كنه
اگه ميشه منو ياري كنين
در ضمن اگه برنامه با aspباشه عاليه
اگه شد به آدرس من ميل كنيد
[email protected]
کلیک کنید تا باز شود...

دوست عزيز اين يه نمونه ساده
فايل 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>
 
saman_sweden

saman_sweden

Active Member
en2fa گفت:
آقا من هم يک کد ميخوام واسه همچين چيزی اما نه به asp ترجيحاً perl/php يا cgi..نداريد؟
آخه من serverم linux هست!!
کلیک کنید تا باز شود...

اينم پاسخ شما
<?php

$your_email = "[email protected]";

$subject = "Message via your contact form";
$empty_fields_message = "<p>Please go back and complete all the fields in the form.</p>";
$thankyou_message = "<p>Thankyou. Your message has been sent.</p>";

$name = stripslashes($_POST['txtName']);
$email = stripslashes($_POST['txtEmail']);
$message = stripslashes($_POST['txtMessage']);

if (!isset($_POST['txtName'])) {

?>

<form method="post" action="<?php echo $_SERVER['REQUEST_URI']; ?>">

<p><label for="txtName">Name:</label><br />
<input type="text" title="Enter your name" name="txtName" /></p>

<p><label for="txtEmail">Email:</label><br />
<input type="text" title="Enter your email address" name="txtEmail" /></p>

<p><label for="txtMessage">Your message:</label><br />
<textarea title="Enter your message" name="txtMessage"></textarea></p>

<p><label title="Send your message">
<input type="submit" value="Send" /></label></p>

</form>

<?php

}

elseif (empty($name) || empty($email) || empty($message)) {

echo $empty_fields_message;

}

else {

// Stop the form being used from an external URL
// Get the referring URL
$referer = $_SERVER['HTTP_REFERER'];
// Get the URL of this page
$this_url = "http://".$_SERVER['HTTP_HOST'].$_SERVER["REQUEST_URI"];
// If the referring URL and the URL of this page don't match then
// display a message and don't send the email.
if ($referer != $this_url) {
echo "You do not have permission to use this script from another URL.";
exit;
}

// The URLs matched so send the email
mail($your_email, $subject, $message, "From: $name <$email>");

// Display the thankyou message
echo $thankyou_message;

}

?>
کلیک کنید تا باز شود...
 
E

en2fa

Member
آقا البته من از يک script آمده استفاده کردم..يعنی dl کردم از يکجا اما دستت درد نکنه...
اما يک سؤال..نميتونم exe رو attach کنم چرا؟همجور پسوندی ميشه جز exe...فکر کنم از طرف server مصدود کردن وسع virus و اينا نه؟
چون zip ميشه فرستاد اما exe نه...
 
F

fariborz2004

Member
با تشكر از دوستان
من يك سوال ديگه هم داشتم
چه جوري ميشه وقتي با اين برنامه ميل فرستاد كاري كرد كه مثلا سايت ياهو اونو با اسپم عوضي نگيره و اونو بفرسته به فلدر inbox
 
F

fariborz2004

Member
دوستان دوباره سلام
سوال هاي من تمومي نداره :)
راستي جه جوري ميشه يك صفحه ارسال كارت تبريك درست كرد
 
F

fariborz2004

Member
راستي يادم رفت به خاطر كمكتون تشكر كنم
از همتون ممنونننننننننننننننننننننننننننننننننننننن
 
E

en2fa

Member
آره برای منم جالبه...من چنت تا script رو امتحان کردم و هيچ فرقی نداشت همه ميرن تو bulk رو yahoo
البته ديدم که اصلاً script ها همه يکی هستند....اما فکر کنم يک راهی بايد باشه...

البته همين جواب های majidonline هم همه ميان تو bulk من...
 
B

berehneh

New Member
تنظيمات header تو تلبع ميل خيلي مهمه . شما ميتونيد شخصا در ياهو header هاي مربوط به سايتهاي دلخواهتون را از ليست bulk در بياريد
 
O

omidak

Active Member
سلام:
در مورد اينكه شما ميتونيد Zip بفرستيد و exe نميتونيد اشكال از سرويس دهنده است :wink:
در مورد اينكه Email شما بعنوان 1 Email مشكوك يا خراب شناخته ميشه هم اشكال از سرويس دهنده است.... اگر از Smtp معتبر و آدرس درست استفاده كنيد اين مشكل را نداريد :wink:
برايه ساخت ارسال كارت تبريك هم اين بستگي به سليقه خودتون داره :lol: شما در همه رو سره هم بندي ميكنيد و در آخر اونو با همين كد ارسال ميكنيد... شما در كجا مشكل داريد؟ :roll: :wink:
 
Majid

Majid

مدیر سایت
عضو کادر مدیریت
آقا دليل اينكه ايميل ميره توي Bulk اينه كه چون متن نامه بصورت فارسي هستش و ياهو نميتونه تشخصي بده اونها رو به عنوان اسپم ميفرسته.. شما اگر ايميلي كه با اين كدها ميفرستيد تماما انگليسي باشه (عنوان و متن نامه) اون وقت ياهو ديگه بهش بي محلي نميكنه

مجيد
 
O

omidak

Active Member
سلام:
اين هم خودش حرفيیه
اما 1 چیز چرا Email هایی که از طرف سایت شما میاد به Bulk نمیره؟ :D
 
Majid

Majid

مدیر سایت
عضو کادر مدیریت
چونكه من اومدم توي اون ايميلها دستكاري كردم و عنوان نامه رو كاري كردم كه فارسي نباشه... اما در بعضي از نامه ها هم بازم اين مشكل هستش

مجيد
 
S

saeedsmka

Member
با سلام
اگه شما 1 ايميل تغلبي رو براي يكسي بفرستيد هم جديدا ياهو اون رو ميبره تو بلاك . بعني هدر ي كه درست تنظيم نشه اين مشكل رو داره . مثلا مشكل عدم تطابق اي پي فرستنده و سرور اس تي ام پي
 
E

en2fa

Member
والا واسه من هرچيزی که از اينجا مياد که ميره تو bulk که البته خوبه چون خيلی هم مهم نيست همينکه خودش پاک ميشه....
اما خوب من ميخوام ملت subscribe کنن و من يک چيزی براشون بفرستم که اگه اونوقت بره تو bulk خوب جالب نيست
 
O

omidak

Active Member
Majid گفت:
چونكه من اومدم توي اون ايميلها دستكاري كردم و عنوان نامه رو كاري كردم كه فارسي نباشه... اما در بعضي از نامه ها هم بازم اين مشكل هستش

مجيد
کلیک کنید تا باز شود...
سلام:
بله گاهي اوقات به Bulk میره... :wink: اما چی کاراش میکنید که گاهی اوقات نمیره؟ :lol:
میشه با ASP.Net نوشتش؟ اگر لطف كنيد و آلگریتم اش رو بگید خیلی خیلی ممنون میشم ازتون :oops: ...
saeedsmka گفت:
با سلام
اگه شما 1 ايميل تغلبي رو براي يكسي بفرستيد هم جديدا ياهو اون رو ميبره تو بلاك . بعني هدر ي كه درست تنظيم نشه اين مشكل رو داره . مثلا مشكل عدم تطابق اي پي فرستنده و سرور اس تي ام پي
کلیک کنید تا باز شود...
من برایه شما میفرستم که نره تویه Bulk ... :lol: شما چطور این حرف رو زدید؟ 8)
en2fa گفت:
والا واسه من هرچيزی که از اينجا مياد که ميره تو bulk که البته خوبه چون خيلی هم مهم نيست همينکه خودش پاک ميشه....
اما خوب من ميخوام ملت subscribe کنن و من يک چيزی براشون بفرستم که اگه اونوقت بره تو bulk خوب جالب نيست
کلیک کنید تا باز شود...
مشکل ما ایرانیها همینه دیگه .... CopyRight هم که نداریم... Microsoft هم که دلش برامون نسخوته... :wink:
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

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

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

بالا