酷!學園

技術討論區 => 程式討論版 => 主題作者是: 小徒兒 於 2005-09-07 11:52

主題: 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=