使用電子郵件和本地服務器的經典ASP

Question

基本上，我創建了一個包含To，From，Subject和Textbody的表單，所有命名都適當。我需要知道什麼代碼我需要使用經典ASP鏈接到本地​​端口，以測試我的代碼併發送電子郵件，

我現在安裝了IIS和其他一些小程序，但我可以別把我的頭靠近了。

Answer 1

在vbscript發送電子郵件通常是通過CDO進行中 - 使用Gmail的SMTP服務器（請注意使用的configuration/smtpserverport和configuration/smtpusessl）

Dim ObjSendMail 
Set ObjSendMail = CreateObject("CDO.Message") 

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="info@thedomain.com" '#### Gmail Username (usually full email address) 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password" '#### Gmail Password 

ObjSendMail.Configuration.Fields.Update 

ObjSendMail.To = "" 
ObjSendMail.Subject = "" 
ObjSendMail.From = "" 

ObjSendMail.TextBody = "Hello World" 

ObjSendMail.Send 
Set ObjSendMail = Nothing