CDO.Message Classic ASP-添加附件

Question

我在嘗試使用經典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方法（MSDN庫） 。