CDO.Message Classic ASP - 添加附件答案

【问题标题】：CDO.Message Classic ASP - Adding attachmentCDO.Message Classic ASP - 添加附件
【发布时间】：2014-05-12 02:09:24
【问题描述】：

我在尝试使用 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 时，表单工作正常，但我真的需要它来发送附件。

【问题讨论】：

标签： asp-classic cdo.message

【解决方案1】：

问题是.AddAttachment() 是方法而不是属性尝试像这样更改您的代码；

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

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

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

注意： 请参阅AddAttachment Method (MSDN Library)，了解有关该方法及其使用方法的更多信息。

【讨论】：