• <rp id="si6t2"></rp>

    1. <rp id="si6t2"></rp>
      <em id="si6t2"></em>

      技術文章

      ASP使用JMAIL組件編寫的郵件發送函數
      發布時間:2010-08-09 點擊次數:11130

      <%
      'SendEmail(發送人Email,發送者,收件人Email,郵件標題,郵件內容,smtp服務器地址,郵件服務器驗證密碼)
      Function SendEmail(frommail,fromname,tomail,subject,content,mailserver,ServerPass)
          On Error Resume Next
          Set JMail = server.CreateObject("JMail.Message") '創建Jmail對象
          JMail.Logging = True '是否使用日志
          JMail.charset = "gb2312" '郵件編碼,缺省為"US-ASCII",最好加上,免得出現亂碼
          JMail.ContentType = "text/html" '郵件的格式,text/plain為純文本型
          JMail.From = frommail '發送郵件地址,最好寫郵件服務器驗證的郵箱賬號
          JMail.FromName = fromname '發送者,可以隨便填寫
          JMail.AddRecipient tomail '要發送到的郵件地址
          JMail.Subject = subject '郵件的標題
          JMail.Priority = 3 '郵件的優先級
          JMail.Body = content '郵件的內容
      
          JMail.MailServerUserName = frommail '郵件服務器驗證賬號
          JMail.MailServerPassword = ServerPass '郵件服務器驗證密碼
          JMail.Send(mailserver) '通過郵件服務器smtp發送郵件
      
          Set JMail = Nothing '關閉對象
      
          If Err.Number<>0 Then '錯誤處理
              SendEmail = False
          Else
              SendEmail = True
          End If
      End Function
      %>
      <%
      '發送測試..
      '以下用的是QQ郵箱的SMTP服務
      '你也可以用你的QQ郵箱來發..不過QQ郵箱默認是沒有開啟SMTP服務的
      '需要自己進入QQ郵箱賬戶開啟SMTP服務服務才能發郵件的。
      
      '把 xxxxxx@xx.com 改成你的收件郵箱測試一下吧
      
      dim Send
      Send=SendEmail("603028644@qq.com","易天科技","xxxxxx@xx.com","我是標題","我是內容","smtp.qq.com","www.newxing.com")
      If Send then
         response.write "發送成功"
      Else
         response.write "發送失敗"
      End If
      %>


    2. 上一條信息:與傳統網絡公司相比易天科技網站制作的優勢
    3. 下一條信息:CN域名未實名認證將有可能被停止解析
    4. 播放农民乡下一级毛片,亚洲ccc920最新网站,色精品狠狠视频免费,无码窝av导航99在线精品66视频无码

    5. <rp id="si6t2"></rp>

      1. <rp id="si6t2"></rp>
        <em id="si6t2"></em>