Ciao a tutti ho scaricato il Modulo con CDOSYS, pero' non so come configurarlo. Visto che mi sono appena avvicinato a ASP, qualcuno più esperto puo' darmi una mano? Grazie.
Questa è (credo) la pagina da configurare.
[code]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'First lets Dim all the variables we need
Dim email
Dim name
Dim company
Dim telephone
Dim address1
Dim city
Dim state
Dim zip
Dim users
Dim app_name
Dim decision_time
Dim OS
Dim bandwidth
Dim DedicatedFirewall
Dim TapeBackup
Dim special_details
Dim MyBody
Dim MyMail
Dim MyEmail
Dim SmtpMail
'Now lets get some values for the variables from the form
smtpserver = "mail.ADDSERVERNAME.com"
youremail = "ADDYOUREMAILADDRESS"
yourpassword = "ADDYOURPASSWORD"
email = Request.Form("email")
name = Request.Form("name")
company = Request.Form("company")
telephone = Request.Form("telephone")
address = Request.Form("address")
city = Request.Form("city")
state = Request.Form("state")
zip = Request.Form("zip")
users = Request.Form("users")
app_name = Request.Form("app_name")
decision_time = Request.Form("decision_time")
OS = Request.Form("OS")
bandwidth = Request.Form("bandwidth")
DedicatedFirewall = Request.Form("DedicatedFirewall")
TapeBackup = Request.Form("TapeBackup")
special_details = Request.Form("special_details")
'Now lets build the body of the email from the data in the form
MyBody = "
<font face=Arial size=2>" & Chr(13) & vbcrlf
MyBody = MyBody & "Company: "& company & Chr(13) & vbcrlf & "
"
MyBody = MyBody & "Name: "& Name & Chr(13) & vbcrlf & "
"
MyBody = MyBody & "Email: "& email & vbcrlf & "
"
MyBody = MyBody & "Telephone: "& telephone & vbcrlf & vbcrlf & "
"
MyBody = MyBody & "Address: "& address & vbcrlf & "
"
MyBody = MyBody & "City: "& city & vbcrlf & "
"
MyBody = MyBody & "State: "& state & vbcrlf & vbcrlf & "
"
MyBody = MyBody & "Zip: "& zip & vbcrlf & vbcrlf & "
"
MyBody = MyBody & "Application: "& app_name & vbcrlf & vbcrlf & "
"
MyBody = MyBody & "Decision Timeframe: "& decision_time & vbcrlf & vbcrlf & "
"
MyBody = MyBody & "Operating System: "& OS & vbcrlf & vbcrlf & "
"
MyBody = MyBody & "Monthly Bandwidth Estimate: "& bandwidth & vbcrlf & vbcrlf & "
"
MyBody = MyBody & "Dedicated Firewall: "& DedicatedFirewall & vbcrlf & vbcrlf & "
"
MyBody = MyBody & "Tape Backup: "& TapeBackup & vbcrlf & vbcrlf & "
"
MyBody = MyBody & "Comments:" & vbcrlf & "
"
MyBody = MyBody & special_details
'Now lets put the variables and other information we need into the mailing script
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword
ObjSendMail.Configuration.Fields.Update
'End remote SMTP server configuration section==
ObjSendMail.To = youremail
ObjSendMail.Subject = company
ObjSendMail.From = email
' we are sending a html email.. simply switch the comments around to send a text email instead
ObjSendMail.HTMLBody = MyBody
'ObjSendMail.TextBody = MyBody
ObjSendMail.Send
Set ObjSendMail = Nothing
%>
<font size="2">Your message as seen below has been sent. Thank You !!
<font color="blue">
<% =Replace(MyBody,vbCr,"<font face=Arial size=2>") %>
</font>
[code]
Rispondi quotando
