برگزیده های پرشین تولز
- لیست سایت های کاربران پرشین تولز
- تاپیک جامع اینستاگرام (بحث و گفتگو ، ایجاد و رشد صفحه ، آموزش )
- بحث و گفتگو بین وبمسترها
- سرمایه گذاری در بانک و بیشترین سود سپردۀ کوتاه مدّت
- آخرین عکسی که گرفتم - نسخه تصاویر دوربین
- تالار بورس - گفتگو سرمایه گذاری در بورس ( گفتگوی بورسی )
- سرمایه گذاری روی زمین و مسکن
- بررسی و تحلیل بیتکوین، ارزهای رمزپایه و سیستم بلاکچین
- کلوب طرفداران پرسپولیس
- کلوب طرفداران استقلال
- بحث و گفتگو پیرامون خدمات بانکی
- سرمایه گذاری روی ارز و تحلیل بازار ارز ( دلار , یورو و ... )
- سرمايه گذاري روي سكه و طلا
- سرمایه گذاری در بازار خودرو + اخبار و رویدادهای مربوط به خودرو
- پایگاه مشاوره و راهنمایی درباره خدمت سربازی اعزام - معافیت
- راهنمایی برای کار و زندگی در اروپا
- راهنمایی برای مهاجرت و اقامت
- طرح سوالات مربوط به اندروید در این تاپیک
- مشاوره برای خرید لوازم جانبی
- پرسش و پاسخ هاي سوالات و مشكلهاي سخت افزار
- تاپيك جامع رفع مشكلات هارد ديسك
- گفتگوی آزاد ( بخش موبایل )
- بحث و تبادل نظر و اخبار پیرامون ماشین(تیونینگ و ...)
- پرسش و پاسخ های کوتاه وردپرسی
چطوری نتیجه یک فرم را به e_mailamبفرستم
- شروع کننده موضوع far715
- تاریخ شروع
shazdeh kocholo
Registered User
من هم همين مشكل رو دارم.به نقل از far715 :میخوام نتیجه یک فرم را که نتایجش را دارد به داخل دیتابیسی میفرستد به آدرس e_mail بفرستم لطفا راهنمائیم کنید که چکار باید بکنم ؟؟؟؟
مثلا يه فرمي رو آماده كردم و اسم و مشخصات و توضيحاتي رو از يه كاربر ميگيرم. بعد ميخوام اين اطلاعان و يا بهتر بگم اين فرم پر شده رو بفرستم به يه نشاني ايميل. خيلي هم ور رفتم اما كار نميكرد. نمي دونم كجا رو اشتباه ميكنم.؟!
amironline
Registered User
اينم دقيقا جواب شما
فقط بايد ميلتونو تو strMyEmailAddress بريزين و يه كم تغييرات رو كد بدين
فقط بايد ميلتونو تو strMyEmailAddress بريزين و يه كم تغييرات رو كد بدين
کد:
<%
'Set the response buffer to true so we execute all asp code before sending the HTML to the clients browser
Response.Buffer = True
'Dimension variables
Dim strBody 'Holds the body of the e-mail
Dim objCDOMail 'Holds the mail server object
Dim strMyEmailAddress 'Holds your e-mail address
Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail
Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail
Dim strReturnEmailAddress 'Holds the return e-mail address of the user
'----------------- Place your e-mail address in the following sting ----------------------------------
strMyEmailAddress = "youremail"
'----------- Place Carbon Copy e-mail address's in the following sting, separated by ; --------------
strCCEmailAddress = "" 'Use this string only if you want to send the carbon copies of the e-mail
'----------- Place Blind Copy e-mail address's in the following sting, separated by ; --------------
strBCCEmailAddress = "" 'Use this string only if you want to send the blind copies of the e-mail
'-----------------------------------------------------------------------------------------------------
'Read in the users e-mail address
strReturnEmailAddress = Request.Form("email")
'Initialse strBody string with the body of the e-mail
strBody = strBody & "<br><b>Name: </b>" & Request.Form("name") & " " & Request.Form("lastname")
strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress
strBody = strBody & "<br><br><b>Enquiry: - </b><br>" & Replace(Request.Form("enquiry"), vbCrLf, "<br>")
'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
'Set the return e-mail address to your own
strReturnEmailAddress = strMyEmailAddress
End If
'Send the e-mail
'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = Request.Form("name") & " " & Request.Form("lastname") & " <" & strReturnEmailAddress & ">"
'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress
'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress
'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress
'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0
'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0
'Set the subject of the e-mail
objCDOMail.Subject = "Enquiry sent from enquiry form on website"
'Set the main body of the e-mail
objCDOMail.Body = strBody
'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1
'Send the e-mail
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Contact Us</title>
</head>
<body text="#000000" bgcolor="#FFFFFF" link="#008000" vlink="#008000" alink="#FF0000">
<br>
<br>
<div align="center"> </div>
<div align="center"><br>
</div>
</body>
</html>خیلی از راهنمائی دقیقتون سپاسگذارم اما خوب اصلا نمیتونم جواب بگیرم میدونم خیلی دارم خنگ بازی در میارم
و لی همش تو قسمت (" Set objCDOMail = Server.CreateObject("CDONTS.NewMail
اشکال میگیره ضمنا بجز اینکه یکبار آدرس خودم رو در strMyEmailAddress قرار میدم چه کار دیگه ای باید انجام بدم ؟
و لی همش تو قسمت (" Set objCDOMail = Server.CreateObject("CDONTS.NewMail
اشکال میگیره ضمنا بجز اینکه یکبار آدرس خودم رو در strMyEmailAddress قرار میدم چه کار دیگه ای باید انجام بدم ؟
amironline
Registered User
(" Set objCDOMail = Server.CreateObject("CDONTS.NewMail
اينو نميدونم چرا گير ميده
برا من كه گير نميده
هيچي ديگه بايد يه پيغام بدي كه مثلا پيامتون با موفقيت ارسال شد
اينو نميدونم چرا گير ميده
برا من كه گير نميده
هيچي ديگه بايد يه پيغام بدي كه مثلا پيامتون با موفقيت ارسال شد
توی سرور ASP باید این کامپوننت CDONTS ساپرت شده باشه. متاسفانه ASP سرویس ایمیل داخلی نداره ولی ASP.NET داره. شما باید ببینی کدوم سرویس یا کامپوننت برای ایمیل روی سرورت هست.به نقل از far715 :خیلی از راهنمائی دقیقتون سپاسگذارم اما خوب اصلا نمیتونم جواب بگیرم میدونم خیلی دارم خنگ بازی در میارم
و لی همش تو قسمت (" Set objCDOMail = Server.CreateObject("CDONTS.NewMail
اشکال میگیره ضمنا بجز اینکه یکبار آدرس خودم رو در strMyEmailAddress قرار میدم چه کار دیگه ای باید انجام بدم ؟
تبلیغات متنی
- اجاره ماشین در کیش
- دبی
- سفارش سئو سایت
- پنل اس ام اس
- طراحی سایت
- خرید فالوور اینستاگرام
- خرید لایک اینستاگرام ارزان
- خرید بک لینک دائمی
- خرید فالوور اینستاگرام
- ثبت شرکت در دبی
- خرید فالوور اینستاگرام
- کاهش پینگ
- خرید مستر کارت
- تلویزیون سامسونگ 75 اینچ
- چاپ دیجیتال کتاب
- خرید تلگرام پرمیوم
- فروش سرور اچ پی
- پرداخت ارزی
- دانلود سریال کره ای
- SMM Panel
- میزبانی لینوکس
- میزبانی ویندوز
- میزبانی در ایران
- سرور اختصاصی در ایران
- سرور اختصاصی مجازی در ایران
- گواهی ssl ارزان