-
پایان فعالیت بخشهای انجمن: امکان ایجاد موضوع یا نوشته جدید برای عموم کاربران غیرفعال شده است
برنامه مدیریت ایمیل برای ارسال و دریافت در وب
- شروع کننده موضوع mehdi25
- تاریخ شروع
به نقل از nima178 :
آقا نیما من یه چیزی پیدا کردم شاید به دردت بخوره . ( کسی که به ما کمک نمی کنه شاید ما بتونیم مشکل یکی دیگه رو حل کنیم
ببین از Jmail استفاده کن
HTML:
<%
smtpServer = "smtp.behbahani.net"
smtpPort = 25
Set JMail = CreateObject ("JMail.SMTPMail")
JMail.ServerAddress = smtpServer & ":" & smtpPort
JMail.Sender = "[email protected]"
JMail.AddRecipient "[email protected]"
JMail.AddRecipient "[email protected]"
JMail.Subject = "Test Message"
JMail.Body = "This is Body"
JMail.ContentType = "text/html"
JMail.Priority = 1
JMail.Execute
Set JMail = Nothing
%>شاید با این مشکلت حل بشه
راستی اینو هم داشتم فراموش می کردم
در اجراي برنامه بالا اگر با مشكلي برخورد كرديد بايد دقت كنيد كه component مربوطه بر روي سيستم شما به درستي ثيت شده يا خير؛ چون JMail از Object هايي است كه در خود سيستم وجود ندارد و براي نصب آن بايد جداگانه اقدام كنيد.
از ديگر مشكلاتي كه به وجود مي آيد معمولا اشتباه در قرار دادن مقدار smtpPort يعني 25 در ميان دو علامت " است يعني به صورت "25" گرچه بسياري اين اشتباه را براي دستور Priority هم انجام ميدهند، لطفا دقت نماييد.
حق چاپ محفوظ
برگرفته از www.behbahani.net
به نقل از nima178 :
خوب مشکل شما اینه که اصولا دیگه تو سرور 2003 به شما اجازه ارسال ایمیل بدون authentication داده نمیشه این کار که برای جلو گیری از ارسال SPAM هست خلی کار خوبیه !
اما را ه حل اوون کد زیر هست که با یه یوزر و پسورد اول به mail server لاگین میکنه بعد اجازه ارسال میل بهش داده میشه :
کد:
<% Dim objCDO
Set objCDO = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
' Outgoing SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.mydomain.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'whether you use authentication on the server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
' Update the CDOSYS Configuration
Set objCDO.Configuration = objCDOSYSCon
objCDO.To = "[email protected]"
objCDO.From = "[email protected]"
objCDO.Subject = "CDOSYS test"
bodyHTML = "CDOSYS works"
objCDO.HTMLBody = bodyHTML
objCDO.Send
Set objCDO = Nothing
Set objCDOSYSCon = Nothing
%>irajgaderi
کاربر تازه وارد
- تاریخ عضویت
- 7 نوامبر 2006
- نوشته‌ها
- 13
- لایک‌ها
- 0
ایراد هاست یا چی (cdo email) asp
--------------------------------------------------------------------------------
ایراد از هاست یا چی
اینهم متن ایرادش
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.
More information about this error may be available in the server error log.
--------------------------------------------------------------------------------
Web Server at po.ir
این برنامه
--------------------------------------------------------------------------------
ایراد از هاست یا چی
اینهم متن ایرادش
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.
More information about this error may be available in the server error log.
--------------------------------------------------------------------------------
Web Server at po.ir
این برنامه
کد:
<%@LANGUAGE="VBSCRIPT" CodePage=1256%>
<%Session.CodePage="1256"%>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<%
stremail ="[email protected]"
strname = "pedram"
strshams = "20/05/86"
striddesign = "5a-(506)"
''''''''' Check if all required fields are completed then starat sending E-mail '''''''''''''
If strname<>"" OR stremail<>"" OR striddesign<>"" Then
strText ="<meta http-equiv='Content-Type' content='text/html; charset=windows-1256'>"_
&"<body background='http://www.op.ir/op/pics/bag/234.gif'><br>"_
&"<table align='center' width='414' border='0' cellspacing='0' cellpadding='0'>"_
&"<tr><td width='414px' height='112px' background='http://www.op.ir/picer/email/aa.gif' valign='bottom'></td></tr>"_
&"<tr><td width='414px' height='69px' background='http://www.op.ir/picer/email/c.gif'>"_
&"<p align='center' style='font-family:'Tahoma'; font-size:10px; color:#FFFFFF;'><br>"_
&"شما طرح "&striddesign&" <br>"_
&"</p></td></tr>"_
&"<tr><td valign='top' align='justify' height='150px' background='http://www.op.ir/picer/email/d.gif'>"_
&" <p style='padding-right:40px; padding-left:40px; font-family:'Tahoma'; font-size:10px;color:#FFFFFF;'><br><br><br><br><br><br><br></p></td></tr>"_
&"<tr><td align='center' width='414px' height='84' background='http://www.op.ir/picer/email/e.gif' valign='bottom'>"_
&" <p style='font-family:'Tahoma'; font-size:10px; color:#FFFFFF;'>با اميد به رضايتمندي شما از پاسخ<br>با تشکر</p>"_
&"<p align='center'><a style='font-size:10px; color:#FFFFFF; font:Tahoma;' href='http://www.op.ir'>w w w . op . i r</a></p></td></tr></table>"_
&"</body>"
Set objEmail = CreateObject("CDO.Message")
objEmail.BodyPart.Charset = "windows-1256"
objEmail.From = "[email protected]"
objEmail.To =strEmail
objEmail.Subject = "w w w . o p . i r "
objEmail.AddAttachment "e:\eslimi\dbcdr\"&striddesign&".cdr"
strText = replace(strText,vbCrLf,"<br>")
objEMail.HTMLBody = strText
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.op.ir"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objEmail.Configuration.Fields.Update
objEmail.TextBodyPart.Charset = "windows-1256"
objEmail.HTMLBodyPart.Charset = "windows-1256"
objEmail.Send
'''''''''''''' The E-mail has been sent and now we say Thank You '''''''''''''
Response.Redirect("freesend.asp")
Else
Response.Redirect("error.html")
End If
%>