Trang chủĐăng kýĐăng nhập Cộng đồng tin học
Thứ 7, 2024-07-20, 6:29 PM
Khung đăng nhập

Khung tán gẫu
Xóm 'bà Tám'

http://congdongtinhoc.net
CHUYÊN TRANG GAME ONLINE GIẢI TRÍ//lehung-system.ucoz.net/stuff/

Thống kê diễn đàn
Bài viết mới nhất Trang chủ cập nhật Top 10 thành viên tích cực 10 Thành viên mới nhất
  • Quạt Hướng Trục
  • vào ucoz.com thiết kế web không hiểu sao...
  • Sothink DHTMLMenu 9.2 Build 90326
  • cho em quảng cáo cái
  • BIDV triển khai gói 10.000 tỷ đồng cho v...
  • Phượng Đã Nở Ngoài Hiên
  • Ngựa Ô Thương Nhớ
  • Những mẩu chuyện vui
  • 1001 cách biến "sim rác" thành...
  • Windows XP Media Center Edition 2008 - S...
  • Hướng dẫn chỉnh sửa dữ liệu trong form m...
  • 15 điều người dùng máy tính nên biết
  • Choáng vì "sâu" mới phát tán qua email
  • Giấu bớt những thành phần Control Panel ...
  • Thảo luận về IFrame Injection Attacks
  • Miễn phí bản quyền Ashampoo Anti-Malware...
  • Trải nghiệm với Camtasia Studio 7
  • 10 kỹ năng IT ‘hot’ của năm 2011
  • Intel công bố bộ vi xử lý Hệ thống trên ...
  • Kho phần mềm dành cho Android
  • Hung@info
  • thangbom
  • Hung@webmater
  • hebeo
  • giodaingan
  • david15
  • whitecat
  • luutruthongtin
  • systemfan_12
  • sha66b5cates0428
  • amir2x4
  • taiwindows075
  • kholuutru
  • shahmeerolivedigital9
  • ysg06363100
  • hetoxe6474
  • rootanalysisusa
  • memory_gift
  • systemfan_12
  • quatcongnghiep_saigon


  • [ Tổng hợp bài mới · Tổng số thành viên · Nội qui chung · Tìm kiếm bài viết · RSS ]
    • Page 1 of 1
    • 1
    Gửi mail với CDONTS trong ASP
    Hung@infoDate: Thứ 2, 2009-05-25, 11:00 PM | Bài viết # 1
    Trung úy
    Nhóm: Quản trị viên
    Bài viết: 994
    Uy tín: 10
    Hiện tại: Offline
    Sử dụng CDONTS gửi thư với định dạng text bình thường.

    Code
    <%
    ''khai báo biến
         Dim MyBody
         Dim MyCDONTSMail
    %>

    <%
    ''khởi tạo đối tướng gửi mail CDONTS
         Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
    ''mail người gửi
         MyCDONTSMail.From= "minh@design.vn"
    ''mail người nhận
         MyCDONTSMail.To= "admin@aspvn.net"
    ''tiêu đề mail
         MyCDONTSMail.Subject="Đây là tiêu đề mail"
    ''nội dung cần gửi
         MyBody = "Thank you for ordering that stuff" & vbCrLf
         MyBody = MyBody & "We appreciate your business" & vbCrLf
         MyBody = MyBody & "Your stuff will arrive within 7 business days"
    ''gán nội dung cần gửi
         MyCDONTSMail.Body= MyBody
    ''bắt đầu gửi mail
         MyCDONTSMail.Send
    ''giải phóng đối tượng
         set MyCDONTSMail=nothing
    %>


    Sử dụng CDONTS gửi thư với định dạng HTML.

    Code
    <%
    ''khai báo biến
         Dim MyCDONTSMail2
         Dim HTML
    ''khởi tạo đối tượng gửi mail CDONTS
         Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail")
    ''phần nội dung mail với định dạng HTML
         HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
         HTML = HTML & "<html>"
         HTML = HTML & "<head>"
         HTML = HTML & "<title>Sử dụng CDONTS gửi thư với định dạng HTML</title>"
         HTML = HTML & "</head>"
         HTML = HTML & "<body bgcolor=""FFFFFF"">"
         HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>"
         HTML = HTML & "Name Of Store</strong><br>"
         HTML = HTML & "Incoming Customer Order</strong></p>"
         HTML = HTML & "<p align = ""center"">Bla Bla Bla Bla Bla</p>"
         HTML = HTML & "</body>"
         HTML = HTML & "</html>"
    ''mail người gửi
         MyCDONTSMail2.From= "minh@design.vn"
    ''mail người nhận
         MyCDONTSMail2.To= "admin@aspvn.net"
    ''tiêu đề mail
         MyCDONTSMail2.Subject="Incoming Customer Order"
    ''khai báo BodyFormat = 0 và MailFormat = 0 để gửi nội dung với định dạng HTML
         MyCDONTSMail2.BodyFormat=0
         MyCDONTSMail2.MailFormat=0
    ''nội dung mail
         MyCDONTSMail2.Body=HTML
    ''bắt đầu gửi thư
         MyCDONTSMail2.Send
    ''giải phóng đối tượng
         set MyCDONTSMail2=nothing
    %>

    Sử dụng CDONTS gửi thư gắn kèm file và gửi 1 bản Carbon Copy cho người khác (CC).

    Code
    <%
    ''khai báo biến
         Dim MyBody2
         Dim MyCDONTSMail3
    %>

    <%
    ''khởi tạo đối tượng gửi mail CDONTS
         Set MyCDONTSMail3 = CreateObject("CDONTS.NewMail")
    ''mail người gửi
         MyCDONTSMail3.From= minh@design.vn
    ''mail người nhận
         MyCDONTSMail3.To= nobody@nowhere.com
    ''mail người nâận bản CC
         MyCDONTSMail3.Cc=nobody2@nowhere.com
    ''tiêu đề mail
         MyCDONTSMail3.Subject="This is a Test"
          
    ''file đính kèm theo mail (dùng đường dẫn tương đối
         MyCDONTSMail3.AttachFile Server.MapPath("/somedirectory/bla.txt")
    '' file đính kèm (dùng đường dẫn tuyệt đối
         ''MyCDONTSMail3.AttachFile ("C:\inetpub\wwwroot\somedirectory\bla.txt")
    ''nội dung của mail
         MyBody2 = "Thank you for ordering that stuff" & vbCrLf
         MyBody2 = MyBody2 & "We appreciate your business" & vbCrLf
         MyBody2 = MyBody2 & "Your stuff will arrive within 7 business days"
    ''gắn nội dung mail vào
         MyCDONTSMail3.Body= MyBody2
    ''bắt đầu gửi mail
         MyCDONTSMail3.Send
    ''giải phóng đối tượng
         set MyCDONTSMail3=nothing
    %>


    --== Cộng đồng tin học ==--
     
    • Page 1 of 1
    • 1
    Search:


      Copyright Cộng đồng tin học © 2024