作者 主題: 有人要接這個案子嗎? 有關win server2003 CDO Mail 的 案子  (閱讀 3955 次)

0 會員 與 1 訪客 正在閱讀本文。

布瓜

  • 可愛的小學生
  • *
  • 文章數: 27
    • 檢視個人資料
寫asp code
功能:
win server2003 上使用 CDO 寄送
Mail(不是舊的CDONTS方法)的設定問題

Anonymous

  • 訪客
IIS6下...改用以下的寫法即可

Dim strSubject, strTxtBody, strTo, strCC, strBCC, strAttachFile
    Dim MailServer, MailPort

    MailServer = "127.0.0.1"
    MailPort = 25
    strAttachFile = ""                '夾檔
    strSubject = "信件主旨"
    strTxtBody = "信件本文"
    strTo = "aaa@aaa.com"       '收件人
    strCC = "bbb@msb78.url.com.tw"   '副本收件人
   
    Set objCDO = CreateObject("CDO.Message")
    With objCDO
        .To = strTo
        .CC = strCC
        .BCC = strBCC
        .From = "admin@comicplay.com.tw"     '寄件人
        .Subject = strSubject
        .HTMLBody = strTxtBody
        '.AddAttachment (strAttachFile)            '有夾檔的話把註解拿掉
        .Send
    End With
    Set objCDO = Nothing