آژانس هواپیماییexchanging

چطوری نتیجه یک فرم را به e_mailamبفرستم

شروع موضوع توسط far715 ‏7 نوامبر 2005 در انجمن asp , ASP.NET

  1. far715

    far715 کاربر تازه وارد

    تاریخ عضویت:
    ‏5 نوامبر 2005
    نوشته ها:
    25
    تشکر شده:
    0
    میخوام نتیجه یک فرم را که نتایجش را دارد به داخل دیتابیسی میفرستد به آدرس e_mail بفرستم لطفا راهنمائیم کنید که چکار باید بکنم ؟؟؟؟:( :(
     
  2. shazdeh kocholo

    shazdeh kocholo Registered User

    تاریخ عضویت:
    ‏28 مارس 2005
    نوشته ها:
    697
    تشکر شده:
    49
    محل سکونت:
    Tehran
    من هم همين مشكل رو دارم.
    مثلا يه فرمي رو آماده كردم و اسم و مشخصات و توضيحاتي رو از يه كاربر ميگيرم. بعد ميخوام اين اطلاعان و يا بهتر بگم اين فرم پر شده رو بفرستم به يه نشاني ايميل. خيلي هم ور رفتم اما كار نميكرد. نمي دونم كجا رو اشتباه ميكنم.؟!
     
  3. amironline

    amironline Registered User

    تاریخ عضویت:
    ‏25 نوامبر 2003
    نوشته ها:
    674
    تشکر شده:
    0
    محل سکونت:
    Tabriz
    اينم دقيقا جواب شما
    فقط بايد ميلتونو تو 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">&nbsp;</div>
    <div align="center"><br>
    </div>
    </body>
    </html>
    
    
    
     
  4. far715

    far715 کاربر تازه وارد

    تاریخ عضویت:
    ‏5 نوامبر 2005
    نوشته ها:
    25
    تشکر شده:
    0
    خیلی از راهنمائی دقیقتون سپاسگذارم اما خوب اصلا نمیتونم جواب بگیرم میدونم خیلی دارم خنگ بازی در میارم

    و لی همش تو قسمت (" Set objCDOMail = Server.CreateObject("CDONTS.NewMail

    اشکال میگیره ضمنا بجز اینکه یکبار آدرس خودم رو در strMyEmailAddress قرار میدم چه کار دیگه ای باید انجام بدم ؟

    :( :( :( :( :( :(
     
  5. amironline

    amironline Registered User

    تاریخ عضویت:
    ‏25 نوامبر 2003
    نوشته ها:
    674
    تشکر شده:
    0
    محل سکونت:
    Tabriz
    (" Set objCDOMail = Server.CreateObject("CDONTS.NewMail
    اينو نميدونم چرا گير ميده
    برا من كه گير نميده

    هيچي ديگه بايد يه پيغام بدي كه مثلا پيامتون با موفقيت ارسال شد
     
  6. balabala

    balabala کاربر قدیمی پرشین تولز

    تاریخ عضویت:
    ‏22 می 2005
    نوشته ها:
    7,350
    تشکر شده:
    1,321
    محل سکونت:
    یه خورده اونورتر
    توی سرور ASP باید این کامپوننت CDONTS ساپرت شده باشه. متاسفانه ASP سرویس ایمیل داخلی نداره ولی ASP.NET داره. شما باید ببینی کدوم سرویس یا کامپوننت برای ایمیل روی سرورت هست.
     
  7. appbannerkhuniresbanner
  8. far715

    far715 کاربر تازه وارد

    تاریخ عضویت:
    ‏5 نوامبر 2005
    نوشته ها:
    25
    تشکر شده:
    0
    توی "<strBody = "<h2>www.yoursite.com</h2

    بجای yoursite چی باید بزارم؟ :wacko: :wacko:
     
  9. aref1364

    aref1364 Registered User

    تاریخ عضویت:
    ‏23 جولای 2005
    نوشته ها:
    395
    تشکر شده:
    1
    برا منم خمون خطا رو میده فکر کنم چون component نصب نیست. حالا نمیشه خودمون نصبش کنیم؟
     
  10. aref1364

    aref1364 Registered User

    تاریخ عضویت:
    ‏23 جولای 2005
    نوشته ها:
    395
    تشکر شده:
    1
    البته باید بگم که مایکروسافت کام÷وننت cdonts رو در ویندوز xp غیر فعال مرده به جاش باید از cdosys استفاده کنیم.