程序員論壇

 找回密碼
 立即註冊
搜索
熱搜: 活動 交友 discuz
查看: 296|回復: 0

Email加附件

[複製鏈接]

8121

主題

1

好友

2萬

積分

版主

Rank: 7Rank: 7Rank: 7

發表於 2014-8-16 21:42:17 |顯示全部樓層
本帖最後由 GreenCup 於 2014-8-18 13:21 編輯

ASP中使用CDONTS 如何發送附件
http://support.microsoft.com/kb/266452
  1. '創建消息對象
  2. Set objMsg = Server.CreateObject("CDONTS.NewMail")
  3. '設置消息的屬性
  4. objMsg.From = strFrom
  5. objMsg.To = strTo
  6. objMsg.Subject = strSubject
  7. '使用實際的請求對象,這樣你就不會超過加載字符串數據類型。
  8. objMsg.Body = Request.Form("MessageArea")
  9. objMsg.Importance = lngImportance

  10. '確定我們是否需要附加文件。
  11. Dim bolAttachmentPosted
  12. bolAttachmentPosted = CBool(Request.Form("bolAttach"))
  13. If bolAttachmentPosted Then
  14.         '如果做的話,我們的服務器上可以得到它
  15.         FilePathOnServer= Server.MapPath("/myEmailWebApp/uploaded_files")
  16.         FilePath_Name = FilePathOnServer & "\" & Request.Form("FileName") & Request.Form("FileExtention")
  17.         '附加它
  18.         objMsg.AttachFile FilePath_Name
  19. End If

  20. '發送留言
  21. objMsg.Send

  22. '銷毀對象
  23. Set objMsg = Nothing
  24. '確定是否存在在服務器上刪除的文件中。
  25. If bolAttachmentPosted Then
  26.         Dim FSO
  27.         '創建一個文件系統對象
  28.         Set FSO = server.CreateObject ("Scripting.FileSystemObject")
  29.         '從服務器刪除文件
  30.         FSO.DeleteFile FilePath_Name
  31.         '銷毀對象
  32.         Set FSO = Nothing
  33. End If
複製代碼
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

程序員論壇

GMT+8, 2019-11-21 18:52 , Processed in 0.046584 second(s), 20 queries .

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回頂部
Pocket Money Easy