0

asp で新しい電子メールを作成し、CDO を使用してメール サーバーに送信しようとしています。CDO またはメール送信機能のリファレンスが必要だと思います。本では、これを使用すると書かれています：

objNewMail = Server.CreateObject("CDONTS.NewMail") を設定します。

残念ながら、aspでエラーが発生するため、現在は機能しています。aspを使用してiisを介して機能するように、参照またはcomオブジェクトを追加する方法を確認してください。私が参照している本は次のとおりです。ASP ナッツシェルの2番目の追加。「CDO オブジェクト モデル」 Windows XP または Windows Server 2003 を使用しています。

4

1 に答える 1

1

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    

%>
于 2011-03-12T04:59:50.280 に答える