asp-ს მეილ ფუნქცია მუშაობს სერვერის გარეშე პარამეტრები

[alchemist]

მოკლედ asp სკრიპტის შემოწმებისას ჩემს კომპიუტერზე აღმოჩნდა რომ მას შეეძლო გაეგზავნა e-mail-ი მითითებულ მისამართზე, მიუხედავად იმისა რომ ამ სკრიპტის ინსტრუქციის თანახმად მას ეს ფაილები უნდა შეენახა mailroot/Pickup ფოლდერში, რადგანაც ლოკალურ კომპიუტერზე არ უნდა ემუშავა mail ფუნქციას. ასე გააგზავნა რამოდენიმე წერილი და მერე თითქოს აზრზე მოვიდაო, უკვე შეწყვიტა წერილების გაგზავნა, მაგრამ ინახავდა მათ არა ზემოთხსენებულ ფოლდერში, არამედ ისევ mailroot, ოღონდ Queue ფოლდერში. ასე იყო ერთი დღე და მერე რომ ჩავრთე კომპიუტერი, ყველა წერილი იმ მაილზე დამხვდა მისული (IMG:style_emoticons/default/smile.gif)

[alchemist]

ტემპლეიტიდან გადავაწყვე პირდპირ
აი ამ საიტზეა ეგ ტემპლეიტი:
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
%>