Как добавить ссылку CDO на веб-страницу asp - PullRequest
Новая
       52

Как добавить ссылку CDO на веб-страницу asp

0 голосов
/ 12 марта 2011

Я пытаюсь создать новое электронное письмо в asp и отправить его на почтовый сервер с помощью CDO. Я считаю, что мне нужна ссылка для функциональности CDO или Send Email. В книге говорится, что используйте это: 

Set objNewMail = Server.CreateObject("CDONTS.NewMail")

К сожалению, теперь это работает, так как это приводит к ошибкам в asp. Теперь убедитесь, как добавить ссылку или com-объект, чтобы он работал через iis, используя asp. Книга, на которую я ссылаюсь: ASP в ореховой скорлупе, 2-е дополнение. «Объектная модель CDO» Я использую Windows XP или Windows Server 2003.

1 Ответ

1 голос
/ 12 марта 2011

используйте это вместо cdonts 

<!--
    METADATA        
    TYPE="typelib"        
    UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"        
    NAME="CDO for Windows 2000 Library"
-->

<%
Function SendMail(sFrom, ToA, Subject, Mybody)

     Dim iMsg,iConf      
     Set iMsg  = CreateObject("CDO.Message")         
     Set iConf = CreateObject("CDO.Configuration")

     Dim Flds        
     Set Flds = iConf.Fields    
     With Flds       
       ' assume constants are defined within script file       
       .Item(cdoSendUsingMethod)   = cdoSendUsingPort          
       .Item(cdoSMTPServer)        = MAILSERVER        
       .Item(cdoSMTPConnectionTimeout) = 60            
       .Item(cdoURLGetLatestVersion)   = True          
       .Update         
     End With

     With iMsg       
       Set .Configuration = iConf          
           .To       = ToA             
           .From     = sFrom               
           .Subject  = Subject             
           .TextBody = Mybody              
           .Send               
     End With

     Set iConf = nothing         
     Set iMsg = nothing

    If Err.Number = 0 Then      
      SendMail = True           
    Else        
     SendMail = Err.Number&":"&Err.Description          
    End If
    On Error Goto 0    
    set objSendMail = Nothing       
End Function    

%>
...