Как отправить письмо в список рассылки с помощью vbScript в asp

Question

Я очень новичок в vbscript, но вот что у меня есть, хотя, похоже, не работает:

<script type="text/vbscript">
Sub Senmail()
Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
   .To = "eric@gmail.com"
   .Cc = "name@email.com"
   .Subject = "Hello World (one more time)..."
   .Body = "This is the body of message"
   .HTMLBody = "HTML version of message"
   .Send 
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub
</script>

Любой вклад будет оценен!Или любой другой способ, которым я мог бы отправить электронное письмо, - моя осина ....

Answer 1

Вот один из способов использования CDO / SMTP

Sub SendMail()
    Set objMsg = CreateObject("CDO.Message")
    Set objConfig = CreateObject("CDO.Configuration")

    Set objFields = objConfig.Fields
    With objFields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "YourSMTPServer"
        .Update
    End With

    With objMsg
        Set.Configuration = objConfig
        .To = "eric@gmail.com"
        .CC = "name@gmail.com"      
        .From = "you@gmail.com"
        .Subject =  "Hello World"
        .HTMLBody = "This is the body of message"
        .Fields.Update
        .Send
    End with

    Set objMsg = Nothing
    Set objConfig = Nothing
End Sub

Answer 2

Для начала удалите As Object из ваших Dim утверждений. В VBScript вы не можете объявлять переменные As какого-либо конкретного типа данных. Все вариант.

Dim objOutlook 
Dim objOutlookMsg 

Если вам нужна дополнительная помощь, то, возможно, вы захотите рассказать нам что-то более конкретное о вашей проблеме, чем «Не похоже, что это работает», например. какую ошибку или неправильное поведение вы получаете.