vbscript - 如何创建具有 "To"属性的 ASP 类(如 CDONTS.NewMail)？

Question

CDONTS.NewMail 类让我像这样发送电子邮件:

Set MailObj = Server.CreateObject("CDONTS.NewMail")
MailObj.To = someone@example.com
' set other properties of MailObj
MailObj.Send

我可以在 ASP 中创建自己的类，但它不允许我定义名为“To”的属性。

有什么方法可以在我定义的类中创建一个属性名为“To”的类？

class MyMail
  Public To          ' this doesn't work!
  Public From        ' this works great!
end class

Answer 1

用[]标记标识符应该是可以的。如:

Option Explicit

Class cC
  Public [To]
End Class

Dim oC : Set oC = New cC
oC.To = 4711
Dim i
For i = 0 To 1
    WScript.Echo oC.To
Next

输出:

cscript 36585334.vbs
4711
4711

(参见 here 和 here 以了解另一种基本方言中的“转义名称”/[]。)