作者 主題: asp 自動發信功能  (閱讀 3696 次)

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

小徒兒

  • 鑽研的研究生
  • *****
  • 文章數: 622
    • 檢視個人資料
asp 自動發信功能
« 於: 2005-09-07 11:52 »
smtp setting needed to be modified  for forwarding
代碼: [選擇]

Function SendNotificationMail(FromAddress,Name,DeptAlias,LeaveDateStart,LeaveDateEnd)

set imsg = createobject("cdo.message")

set iconf = createobject("cdo.configuration")

Set Flds = iConf.Fields
With Flds

  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")               = "172.16.0.1"
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")           = 25
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing")                = 2
 
  '.Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress")     = """EasyFlow Notification"" <administrator@megaholdings.com.tw>"
  '.Item("http://schemas.microsoft.com/cdo/configuration/smtpuserreplyemailaddress")= """System Notification"" <administrator@megaholdings.com.tw>"
.Update
End With


With iMsg                                                                                                         Set .Configuration = iConf                                                                                                            .To = DeptAlias
        .From = FromAddress
         .Subject = "!!!測試!!!!!" & Name & "  " & LeaveDateStart & " -- " & LeaveDateEnd & "請假"
                                                                                                                  .TextBody = ""
       .fields.update                                                                                        .Send                
       
End With                                                                                                    
End Function  


http://phorum.study-area.org/viewtopic.php?t=25934&highlight=