برگزیده های پرشین تولز
- لیست سایت های کاربران پرشین تولز
- تاپیک جامع اینستاگرام (بحث و گفتگو ، ایجاد و رشد صفحه ، آموزش )
- بحث و گفتگو بین وبمسترها
- سرمایه گذاری در بانک و بیشترین سود سپردۀ کوتاه مدّت
- آخرین عکسی که گرفتم - نسخه تصاویر دوربین
- تالار بورس - گفتگو سرمایه گذاری در بورس ( گفتگوی بورسی )
- سرمایه گذاری روی زمین و مسکن
- بررسی و تحلیل بیتکوین، ارزهای رمزپایه و سیستم بلاکچین
- کلوب طرفداران پرسپولیس
- کلوب طرفداران استقلال
- بحث و گفتگو پیرامون خدمات بانکی
- سرمایه گذاری روی ارز و تحلیل بازار ارز ( دلار , یورو و ... )
- سرمايه گذاري روي سكه و طلا
- سرمایه گذاری در بازار خودرو + اخبار و رویدادهای مربوط به خودرو
- پایگاه مشاوره و راهنمایی درباره خدمت سربازی اعزام - معافیت
- راهنمایی برای کار و زندگی در اروپا
- راهنمایی برای مهاجرت و اقامت
- طرح سوالات مربوط به اندروید در این تاپیک
- مشاوره برای خرید لوازم جانبی
- پرسش و پاسخ هاي سوالات و مشكلهاي سخت افزار
- تاپيك جامع رفع مشكلات هارد ديسك
- گفتگوی آزاد ( بخش موبایل )
- بحث و تبادل نظر و اخبار پیرامون ماشین(تیونینگ و ...)
- پرسش و پاسخ های کوتاه وردپرسی
برنامه مدیریت ایمیل برای ارسال و دریافت در وب
- شروع کننده موضوع 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
%>
تبلیغات متنی
- اجاره ماشین در کیش
- دبی
- سفارش سئو سایت
- پنل اس ام اس
- طراحی سایت
- خرید فالوور اینستاگرام
- خرید لایک اینستاگرام ارزان
- خرید بک لینک دائمی
- خرید فالوور اینستاگرام
- ثبت شرکت در دبی
- خرید فالوور اینستاگرام
- ترخیص کالا در گمرک
- پسیو شبکه
- خرید مستر کارت
- تلویزیون سامسونگ 75 اینچ
- چاپ دیجیتال کتاب
- خرید تلگرام پرمیوم
- فروش سرور اچ پی
- پرداخت ارزی
- دانلود سریال کره ای
- SMM Panel
- میزبانی لینوکس
- میزبانی ویندوز
- میزبانی در ایران
- سرور اختصاصی در ایران
- سرور اختصاصی مجازی در ایران
- گواهی ssl ارزان