Tài liệu SMTP server ppt

' 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