این پیغام خطا ار از این خط برنامه ام می گیرد:
Set Mail = Server.CreateObject("Persits.MailSender")
چرا؟
چه کاری باید انجام بدهم
ممنون
این پیغام خطا ار از این خط برنامه ام می گیرد:
Set Mail = Server.CreateObject("Persits.MailSender")
چرا؟
چه کاری باید انجام بدهم
ممنون
ممکنه به خاطر این باشه که رو سرور داخلی اجرا می کنی اگه بری رو سرور اینترنت درست میشه
چون DLL ای که باعث ایجاد اون شی میشه وجود نداره!
روی سرور خودم این برنامه مشکلی ندارد و ایمیل را می فرستد ولی وقتی که روی سرور دیگر می گذارم با این مشکل برخورد می کنم.
این dll را از کجا پیدا کنم؟
متشکرم
آخرین ویرایش به وسیله mostafa612003 : دوشنبه 23 مرداد 1385 در 07:41 صبح
باید ببینی نام DLL ای که این شی رو ایجاد می کنه چیه! (احتمالا باید در پوشه ی system32 باشه)
از روی سرور خودت بر روی سرور مقصد کپیش کن.
موفق باشی.
ولی اون dll باید رو سرور register بشه.که بعید می دونم اجازه ی همچین کاری داده بشه.
ببینید میتونید ادمین سرور رو راضی کنید ؟!
از کجا باید بفهمم که نام DLL ای که این شی رو ایجاد می کنه چیه! ؟؟؟
dll هم نام با این شی روی دستگاهم نیست
اینه اسمش aspemail.dll
فکر می کنم که اسمش persists باشه.
نه aspemail.dll و نه persists هیچکدام روی دستگاهم نیست
متشکرم
اقا این هم منبع که نگی علی الکی می گه!!!
http://support.persits.com/show.asp?code=PS02061296
سلام
من aspemail.exe را روی سرور نصب کردم
الان دیگر پیغام خطای بالا را نمیدهد ولی ایمیل را هم نمی فرستد ولی از سیستم خودم هیچ مشکلی ندارم
به نظر شما چرا ایمیل را نمی فرستد؟
متشکرم
این هم کل برنامه:
<%
strHost = "mail.parsonline.net"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "Z@yahoo.com"
Mail.FromName = Mail.EncodeHeader(Request("name"),"utf-8")
'Mail.CharSet = "UTF-8"*****************************************"
'Mail.ContentTransferEncoding = "Quoted-Printable"*****************************
Mail.AddAddress ( "mostafa612003@yahoo.com")
' message subject
Mail.Subject = "Salam!"
Mail.Body = "<html> ...................</html>"
Mail.IsHTML = True
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
response.write strErr
else
response.redirect "accept.html"
End If
%>
کسی نیست علت این مشکل را بداند؟
آقا Persits یه کامپونت هست که باید روی لوکال و سرور نصب شده باشه . شما اجازه ندارید که این کامپونت رو روی سرور نصب کنید باید وب مستر هزینه های اونو تغبل کنه و روی سرور به صورت مجاز نصبش کنه . تا این کامپونت نصب نشده نمیتونی از این دستورات مربوط به این کامپونت استفاده کنی .
ممنون
چگونه باید به صورت مجاز روی سرور آن را نصب کنم؟
آیا راه دیگری به غیر از استفاده از کمپننت برای ارسال ایمیل در اینترنت وجود دارد؟
متشکرم
میتونی از کامپونت های خود Microsoft کمک بگیری .نوشته شده توسط mostafa612003
بهترین کامپونت برای ارسال ایمیل CDOSYS هست .
قبلاً اینجا برنامه کاملشپ گزاشتم . همینطور یه تاپیک در پرشین تولز تحت عنوان [ تمام مسائل در مورد ایمیل ] نمونه های مختلفی از این برنامه های ارسال ایمیل رو قرار داده ام جستجو کن پیدا می کنی
خیلی متشکرم
ولی من چیزی پیدا نکردم
اگر برایتان زحمت نیست لینک آن را برایم بگذارید
خیلی متشکرم
این هم لینک انواع برنامه های ایمیل
http://www.forum.persiantools.com/t40899.html
خیلی متشکرم
من این برنامه ها راکه روی دستگاه خودم اجرا میکنم جواب می دهد و ایمیل را می فرستد
اما وقتی آنها را روی هاستم می گذارم پیغام خطایی نمی دهد ولی ایمیل را هم نمی فرستد
چرا؟
همونجا مشکلتو بگو تا متفعش کنم
من نتونستم آنجا مشکلم را بازگو کنم
مشکلم این است که وقتی برنامه را روی سرور می گذارم هیچ پیغام خطایی نمایش داده نمی شود ولی ایمیل را هم نمی فرسته
این برنامه ای است که استفاده کردم:
<%@ 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 = "ghaum@yahoo.com"
.From = "info@sobh.org"
.Subject = "Sample MHTML message..."
.Send
End With
%>__________________
================================================== ====================
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول