' 1) Mở một project ' 2)Từ menu Tools, chọn References check vào Microsoft CDO 1.21 Library. ' 3) Thêm CommandButton vào form. name=Command1. Option Explicit Private Sub Command1_Click() Dim objSession As Object Dim objMessage As Object Dim objRecipient As Object 'Tạo Session Object Set objSession = CreateObject(''mapi.session'') objSession.Logon profileName:=''MS Exchange Settings'' Set objMessage = objSession.Outbox.Messages.Add objMessage.subject = ''This is a test.'' objMessage.Text = ''This is the message text.'' Set objRecipient = objMessage.Recipients.Add objRecipient.Name = ''John Doe'' objRecipient.Type = mapiTo objRecipient.Resolve 'Send the message objMessage.Send showDialog:=False MsgBox ''Message sent successfully!'' objSession.Logoff End Sub Cài đặt Dịch vụ SMTP Từ trình đơn Start, trỏ vào Settings/Control Panel. Kích đúp vào Add/Remove Programs và sau đó kích vào Add/Remove Windows Components. Trong cửa sổ Windows Components Wizard, chọn Internet Information Services (IIS) và sau đó nhấn Details. Chọn thành phần SMTP Service và nhấn OK. Chú ý: Một vài thành phần IIS khác được yêu cầu để hỗ trợ SMTP service như các thành phần Internet Information Services Snap-In, World Wide Web Server và Common Files. Những thành phần này tự động được lựa chọn và cài đặt cùng với thành phần SMTP Service. Cấu hình dịch vụ SMTP Nếu dịch vụ SMTP được cài đặt trên một máy chủ với một kết nối mạng Internet và tường lửa ngăn chặn Internet không chặn cổng 25 của lưu lượng SMTP, thì các thiết lập mặc định của dịch vụ SMTP đã sẵn sàng để chuyển đi bất cứ thông báo e-mail nào đang chờ để được gửi. Tuy nhiên, vẫn còn có một số thiết lập về bảo mật mà bạn có thể đang cân nhắc cho SMTP Server của bạn. Bạn có thể thay đổi phần lớn thiết lập này thông qua công cụ quản trị Internet Services Manager. Để khởi động công cụ quản trị Internet Services Manager 1. Từ trình đơn Start, hãy đến ProgramsAdministrative Tools. 2. Nhấn Internet Services Manager để khởi tạo trình quản trị. Để cài đặt ‘server logging’ 1. Từ ô bên trái của hộp thoại Internet Information Services, mở cây thư mục. Kích chuột phải vào Default SMTP Virtual Server và chọn Properties. 2. Trong hộp thoại Properties, nhấn thẻ General. Đánh dấu hộp kiểm tra enable logging. Thuộc tính này theo mặc định không được chọn. 3. Chọn định dạng log-file mà bạn ưa thích (giá trị mặc định ở đây là W3C Extended Log File Format). 4. Kích vào nút Properties bên phải hộp thả xuống định dạng log-file. 5. Điều chỉnh lịch thời gian tên cho log file rollover nếu thấy cần thiết. 6. Kích vào thẻ Extended Properties. 7. Chọn bất kỳ mục nào mà bạn quan tâm và nhấn OK. Chú ý: Để giới hạn kích thước của log-file, bạn không cần thiết phải chọn quá nhiều nội dung trong mục này. Đây là một số nội dung mà bạn nên chọn như Date, Time, Client IP Address, User Name, Service Name, Method, Bytes Sent và Bytes Received. Nhận biết việc gửi bị lỗi Nếu một thông báo e-mail không thể được gửi đi vì một lý do nào đó (ví dụ, tên người dùng hoặc địa chỉ e-mail sai), thì nó sẽ được chuyển vào thư mục Badmail. Theo mặc định, vị trí của của thư mục Badmail phải như sau: "Root:\Inetpub\mailroot\Badmail". Hãy kiểm tra nội dung của các e-mail bị từ chối và tìm ra bất cứ các thông báo lỗi cụ thể nào. Hãy sửa các lỗi đó nếu có thể và gửi lại thông báo một lần nữa bằng một trong những cách gửi đi được mô tả ở trên. Ngoài thư mục Badmail ra, một thông báo e-mail cũng có thể được lưu giữ trong thư mục Queue với một chu kỳ thời gian định trước. Các giá trị cài đặt này có thể được xác định bằng việc điều chỉnh mục “outbound retry intervals” trong thẻ “Delivery” của hộp thoại “Default SMTP Virtual Server Properties”. Nếu một thông báo không thể được gửi đi ngay lập tức bởi vì kết nối mạng đang bận hoặc dừng, thông báo được cất giữ trong thư mục Queue này và được gửi lại theo những khoảng thời gian định trước. Nếu SMTP từ bỏ sau vài lần gửi không thành công, thì cuối cùng thông báo sẽ được chuyển vào thư mục Badmail. Kết luận Dịch vụ SMTP được cung cấp trong “Internet Information Services” của Windows 2000 (cả Windows XP và Windows Server 2003) là một thành phần đơn giản, nhưng hữu ích để có thể chuyển những thông báo e-mail đi một cách hiệu quả và kinh tế. Nó tiết kiệm cho những nhà quản trị hệ thống từ việc phải thiết lập một hệ thống thư tín phức tạp để truyền những thông báo e-mail trên Internet một cách đáng tin cậy. Khi được sử dụng với CDO cho Windows 2000, các nhà thiết kế có thể thực hiện gửi đi các thông báo e-mail thông qua SMTP mà không cần phải viết nhiều mã chương trình. . phần SMTP Service. Cấu hình dịch vụ SMTP Nếu dịch vụ SMTP được cài đặt trên một máy chủ với một kết nối mạng Internet và tường lửa ngăn chặn Internet không chặn cổng 25 của lưu lượng SMTP, . thành phần SMTP Service và nhấn OK. Chú ý: Một vài thành phần IIS khác được yêu cầu để hỗ trợ SMTP service như các thành phần Internet Information Services Snap-In, World Wide Web Server và. của dịch vụ SMTP đã sẵn sàng để chuyển đi bất cứ thông báo e-mail nào đang chờ để được gửi. Tuy nhiên, vẫn còn có một số thiết lập về bảo mật mà bạn có thể đang cân nhắc cho SMTP Server của