CDO.Message经典ASP -添加附件

Question

我在尝试使用Classic ASP向电子邮件添加附件时遇到问题。我已经搜索了论坛，似乎我需要添加.AddAttachment = "c:\users\samplb\logoblack.gif“，但表单不再工作。它会显示“网站无法显示页面”的消息。

以下是我的代码：

<% 

name = request.form("name")
Message = request.form("Message")


Set cdoConfig = CreateObject("CDO.Configuration")  

With cdoConfig.Fields  
    .Item(cdoSendUsingMethod) = cdoSendUsingPort  
    .Item(cdoSMTPServer) = "xxx"  
    .Update  
End With 

Set cdoMessage = CreateObject("CDO.Message")  

With cdoMessage 
    Set .Configuration = cdoConfig 
    .From = "test@me.co.uk"
    .To = "test@me.co.uk" 
    .Subject = "Feedback / Suggestions" 
    .AddAttachment = "c:\users\samplb\logoblack.gif" 
    .TextBody = "Name: " & name & vbcrlf & vbcrlf & "Message: " & Message  
    .Send 
End With 

Set cdoMessage = Nothing  
Set cdoConfig = Nothing  
%>

有人知道为什么它可能不工作吗？当我取出.AddAttachment时，表单工作得很好，但我真的需要它来发送附件。

Answer 1

问题是.AddAttachment()是一个方法，而不是一个属性，试着像这样改变你的代码；

Call .AddAttachment("c:\users\samplb\logoblack.gif")

或者将附件作为CDO.BodyPart使用返回；

Set cdoBodyPart = .AddAttachment("c:\users\samplb\logoblack.gif")

注意：有关该方法以及如何使用该方法的更多信息，请参阅。