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")

注意： 有关该方法及其使用方法的详情，请参阅AddAttachment Method (MSDN Library)。

CDO.Message Classic ASP - 添加附件

1 个答案: