نیاز به کمک در مورد ارسال ایمیل با Asp

[yanosh021]

سلام دوستان .. اگ کمک کنید ممنون می شم
من این فرم را برای بخش تماس با ما استفاده می کنم

<%


Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields

With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.web-iran.ir"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

With objMail
Set .Configuration = objConf
.From = "[email protected]"
.To = "[email protected]"
.Subject = "test"
.TextBody = "test"
End With
Err.Clear
objMail.Send
Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing
response.write "<font face='Tahoma' style='font-size: 8pt'><b>:::: sending message is complete ::::</font></b>"

%>​

تویه این فرم ایمیل به آدرس INFO من میاد هیچ مشکلی هم ندارم باهاش
اما حالا من احتیاج دارم که از طریق میل سرور خودم مثلا برای آقای x میل ارسال کنم . آبجک میل من CDO هستش و من نمی تونم اینکار رو با فرم بالا انجام بدم و.. لطفا راهنمایی کنید من رو ممنون می شم

 

[mosyhey]

شما اگر خط زیر را عوض کنید و آدرس هر کس دیگری را بگذارید برای او ارسال می شود:

.To = "[email protected]"
.To="[email protected]"

 

[yanosh021]

دوست گرامی این کار را می کنم اما جواب نمی دهد و هیچ ایمیلی برای مثلا [email protected] که من انتخاب کرده ام ارسال نمی گردد .

 

[yanosh021]

دوستان من یک فرم با CDOمیخوام که مثلا از ایمیل info من به ایمیل yahoo اقای x که در سایت من عضو شده ایمیل بفرسته همین حالا اگه فرم دیگه ای رو شما دارید بهم بگید اگ نه رویه همین فرم بگین من چی کار کنم .

مرسی من همچنان منتظر جواباتون هستم .. لطف دارید

 

[mosyhey]

روی سرور امتحان کردم این جواب داد:

<%
Set objMail=Server.CreateObject("CDO.Message")
Set objConf=Server.CreateObject("CDO.Configuration")
Set objFields=objConf.Fields
With objFields
	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="127.0.0.1"
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=10
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
	.Update
End With
With objMail
	Set .Configuration=objConf
	.From="[email protected]"
	.To="[email protected]"
	.Subject="test"
	.TextBody="test"
End With
Err.Clear
On Error Resume Next
objMail.Send
If Len(Err.Description)=0 Then
	msgtext="emailed"
Else
	msgtext="notemailed"
End If
Response.Write(msgtext)
Set objFields=Nothing
Set objConf=Nothing
Set objMail=Nothing
%>

 

[pa_darya]

mishe komakam konid manam mikham in codi ke dar bala neveshte shode chetor bayad estefade konim daghighan yek safhe mesle in site adresesho vasaton mizaram
http://telescope.ir/lostpassword/
lotfan komakam konid

 

[mosyhey]

با سلام.
برای ساخت این چنین صفحه ای نیاز به داشتن یک دیتابیس مانند اکسس دارید که اعضای سایت شما در یکی از جداول آن هر کدام دارای مثلاً نام، ایمیل، یوزر و پسورد باشند. در این صورت اگر عضوی پسوردش را فراموش کرد در صفحه ای مانند همین که لینکش را داده اید ایمیلش را می نویسد و به صفحه مقصد ارسال می کند. در فایل مقصد شما می گردید در دیتا بیس تا ببینید همچنین ایمیلی وجود دارد یا نه که اگر داشت کلمه عبور متناظر با آن ایمیل را می خوانید از روی همان جدول و آن را به آدرس ایمیل گفته شده می فرستید.
حالا آیا شما دیتابیس اعضا دارید؟ و آیا کار با دیتا یس را بلدید؟

 

[pa_darya]

bale man in kararo baladam faghat mikham bedoonam chetor be karbarha mail bezanam

 

[mosyhey]

همین کد پست #5 را اصلاح کنید ببینید کار می کند روی سرورتان. در خط پانزدهم ایمیل خودتان را قرار دهید و صفحه را روی سرور اجرا کنید.
اگر به درستی کار کرد از همین کد برای ارسال ایمیل استفاده کنید. در خط 15 ایمیل گیرنده، خط 14 ایمیل فرستنده (ایمیل خودتان)، 16 عنوان و 17 متن نامه ایمیل را قرار دهید.

 

[yanosh021]

دوستان کد پست ماره 5 کاملا درست است و کار می کند فقط اونجا خواهشا عباره [email protected] رو بردارید که نمی دونم کی داره از این فرم استفاده می کنه با این ایمل آدرس ..

لطفا کد رو درت کنید برای استفاده خودتون مرسی

 

[pa_darya]

in cod ra daqiqan bayad koja benevisam man vase karbaram mikham yani vaqti passwordeshon yadeshon raft betonam ba email vasashon password befrestam dorost mesle in safhe
http://telescope.ir/lostpassword/

 

[mosyhey]

پیش از هر کار اول ببینید این کد پست #5 روی سرورتان کار می کند یا نه؟ برای این کار یک فایل asp ایجاد کنید و کد پست #5 را در آن کپی کنید و آن را طبق پست #9 آن را اصلاح کنید؛ آن را روی سرور قرار دهید و آدرسش را روی مرورگر بزنید و آن را اجرا بکنید ببینید ایمیل ارسال می شود یا نه؟