<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      常用Email組件發送函數
                
                  發表時間：2023-08-12             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]給大家看一下常用Email組件發送函數<% sub Jmail(email) Dim JMail,SendMail Set JMail=Server.CreateObject("JM...
      給大家看一下常用Email組件發送函數
      <% 
      sub Jmail(email) 
      Dim JMail,SendMail 
      Set JMail=Server.CreateObject("JMail.SMTPMail") 
      JMail.Logging=True 
      JMail.Charset="gb2312" 
      JMail.ContentType = "text/html" 
      JMail.ServerAddress=SMTPServer 
      JMail.Sender=SystemEmail 
      JMail.Subject=topic 
      JMail.Body=mailbody 
      JMail.AddRecipient email 
      JMail.Priority=3 
      JMail.Execute 
      Set JMail=nothing 
      if err then 
      SendMail=err.description 
      err.clear 
      else 
      SendMail="OK" 
      end if 
      end sub 

      sub Cdonts(email) 
      dim　objCDOMail 
      Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 
      objCDOMail.From =SystemEmail 
      objCDOMail.To =email 
      objCDOMail.Subject =topic 
      objCDOMail.Body =mailbody 
      objCDOMail.Send 
      Set objCDOMail = Nothing 
      if err then 
      SendMail=err.description 
      err.clear 
      else 
      SendMail="OK" 
      end if 
      end sub 

      sub aspemail(email) 
      Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")　 
      recipient=email 
      sender=SystemEmail 
      subject=topic 
      message=mailbody 
      mailserver=SMTPServer 
      result=mailer.SendMail(mailserver, recipient, sender, subject, message) 
      if err then 
      SendMail=err.description 
      err.clear 
      else 
      SendMail="OK" 
      end if 
      end sub 
      %> 




              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清