經典ASP中的CDOSYS電子郵件架構

Question

我正在編寫代碼以通過CDOSYS發送電子郵件。 我必須在同一ASP頁面的不同位置編寫電子郵件發送代碼。 我需要在每個代碼中使用以下架構鏈接嗎？ 如果我在變量中聲明它並嘗試使用它不起作用並給出錯誤...我的經典ASP網站已部署在Windows Server 2012R2上（ http://schemas.microsoft.com/cdo/configuration ）

mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailsite
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = websiteemail
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") =globalpassword

Answer 1

您可以像避免在其他任何地方重復執行代碼一樣避免重復執行代碼：將需要重復執行的工作放在子例程中。

Sub EmailConfig(mailobj)
    mailobj.Configuration.Fields.Item("http://blahblahblah") = 1
    'etc.
End Sub