asp-ს მეილ ფუნქცია მუშაობს სერვერის გარეშე |
|
|
გამარჯობა, სტუმარო ( შესვლა | რეგისტრაცია )
asp-ს მეილ ფუნქცია მუშაობს სერვერის გარეშე |
Dec 19 2006, 04:00 PM
პოსტი
#1
|
|
აქტიური წევრი ჯგუფი: რეგისტრირებული პოსტები: 337 ნიკის ჩასმა ციტატაში ჩასმა მდებარეობა: Münster წევრი №: 16 |
მოკლედ asp სკრიპტის შემოწმებისას ჩემს კომპიუტერზე აღმოჩნდა რომ მას შეეძლო გაეგზავნა e-mail-ი მითითებულ მისამართზე, მიუხედავად იმისა რომ ამ სკრიპტის ინსტრუქციის თანახმად მას ეს ფაილები უნდა შეენახა mailroot/Pickup ფოლდერში, რადგანაც ლოკალურ კომპიუტერზე არ უნდა ემუშავა mail ფუნქციას. ასე გააგზავნა რამოდენიმე წერილი და მერე თითქოს აზრზე მოვიდაო, უკვე შეწყვიტა წერილების გაგზავნა, მაგრამ ინახავდა მათ არა ზემოთხსენებულ ფოლდერში, არამედ ისევ mailroot, ოღონდ Queue ფოლდერში. ასე იყო ერთი დღე და მერე რომ ჩავრთე კომპიუტერი, ყველა წერილი იმ მაილზე დამხვდა მისული (IMG:style_emoticons/default/smile.gif)
-------------------- whenever people agree with me, I always feel I must be wrong
|
|
|
Jan 2 2007, 02:03 PM
პოსტი
#2
|
|
აქტიური წევრი ჯგუფი: რეგისტრირებული პოსტები: 337 ნიკის ჩასმა ციტატაში ჩასმა მდებარეობა: Münster წევრი №: 16 |
ტემპლეიტიდან გადავაწყვე პირდპირ
აი ამ საიტზეა ეგ ტემპლეიტი: http://www.powerasp.com/content/new/sending_email_cdosys.asp პროგრამული კოდი <%
DIM strTitle, strFirstname, strLastName, strPatronymic, strPosition, strNameoftheinstitution, strCountry, strEmail, strPhone, strFax, strPresntationtitle, strSession, Mail strTitle=request.form("title") strFirstname=request.form("firstname") strLastname=request.form("lastname") strPatronymic=request.form("patronymic") strPosition=request.form("position") strNameoftheinstitution=request.form("institution") strCountry=request.form("country") strEmail=request.form("email") strPhone=request.form("phone") strFax=request.form("fax") strPresntationtitle=request.form("presentationtitle") strSession=request.form("session") strBody="email: " & strEmail & vbCrLf & _ "First Name: " & strFirstname & vbCrLf & _ "Last Name: " & strLastname & vbCrLf & _ "Patronymic: " & strPatronymic & vbCrLf & _ "Position: " & strPosition & vbCrLf & _ "Name of the institution: " & strNameoftheinstitution & vbCrLf & _ "Country: " & strCountry & vbCrLf & _ "Email: " & strEmail & vbCrLf & _ "Phone: " & strPhone & vbCrLf & _ "Fax: " & strFax & vbCrLf & _ "Session: " & strSession & vbCrLf & _ "Presntationtitle: " & strPresntationtitle Dim ObjSendMail Dim iConf Dim Flds Set ObjSendMail = Server.CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" Flds.Update Set ObjSendMail.Configuration = iConf ObjSendMail.To = "****@tsu.ge" ObjSendMail.Subject = "Online registration form data" ObjSendMail.From = strEmail ' we are sending a text email.. simply switch the comments around to send an html email instead 'ObjSendMail.HTMLBody = "this is the body" ObjSendMail.TextBody =strBody ObjSendMail.Send Response.Redirect "http://www.tsu.ge/icsp" Set ObjSendMail = Nothing %> -------------------- whenever people agree with me, I always feel I must be wrong
|
|
|
მსუბუქი ვერსია | ახლა არის: 27th April 2024 - 06:17 PM |