How to Use MAPI and CDONTS to send emails

If you do not want to install third-party mail components or directly use MS.

How can I use MAPI to send emails in VB (as if MAPI is provided by OUTLOOK and OE)? Do I need to manually set the mail account like sending emails in OE? Can I specify the SMTP server and the authentication username and password for sending emails like JMAIL?

Where is the source code for sending emails to CDONTS? I need to be able to specify the SMTP of the mail and the version of the authentication username and password. This is equivalent to the function that JMAIL can implement. It seems that the lower version of CDO does not support it, khan ~~~~~

Below are emails sent using winsock, but other problems are still unsolved. Wait for the experts

ESTMP. vbp
-------------------------------------------
Type = Exe
Object = {248DD890-BB45-11CF-9ABC-0080C7E7B78D} #1.0 #0; MSWINSCK. OCX
Form = frmmail. frm
Startup = "Form1"
HelpFile = ""
Title = "Email sending"
ExeName32 = "Email.exe"
Command32 = ""
Name = "Email"
HelpContextID = "0"
CompatibleMode = "0"
MajorVer = 1
MinorVer = 0
RevisionVer = 0
AutoIncrementVer = 0
ServerSupportFiles = 0
VersionCompanyName = "dapha.net"
VersionFileDescription = "Email sending, server authentication, hypertext mail content supported"
VersionLegalCopyright = "Copyright 2002 dapha.net"
VersionProductName = "Email sending software"
CompilationType = 0
OptimizationType = 0
FavorPentiumPro (tm) = 0
CodeViewDebugInfo = 0
NoAliasing = 0
BoundsCheck = 0
OverflowCheck = 0
FlPointCheck = 0
FDIVCheck = 0
UnroundedFP = 0
StartMode = 0
Unattended = 0
Retained = 0
ThreadPerObject = 0
MaxNumberOfThreads = 1

[MS Transaction Server]
AutoRefresh = 1

FrmMail. frm
-----------------------------------------
VERSION 5.00:
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D }#1.0 #0"; "MSWINSCK. OCX"
Begin VB. Form Form1
BorderStyle = 1 Fixed Single
Caption = "email sending program (supporting smtp server verification )"
ClientHeight = 1, 5550
ClientLeft = 45
ClientTop = 330
ClientWidth = 5805
LinkTopic = "Form1"
MaxButton = 0 False
ScaleHeight = 5550
ScaleWidth = 5805
StartUpPosition = 3 Windows Default
Begin MSWinsockLib. Winsock Winsock1
Left = 1, 2640
Maximum = 2520
_ ExtentX = 741
_ ExtentY = 741
_ Version = 393216
End
Begin VB. TextBox txtmessage1
Height = 1695
Left = 0
MultiLine =-1 True
TabIndex = 8
Text = "frmmail. frx": 0000
ToolTipText = "Hyper Text mail content"
Maximum = 3480
Width = 5775
End
Begin VB. TextBox user
Height = 270
Left = 1, 3960
TabIndex = 4
Maximum = 840
Width = 1575
End
Begin VB. TextBox subject
Height = 270
Left = 1, 960
TabIndex = 3
Text = "hello"
Maximum = 1320
Width = 2295
End
Begin VB. TextBox txtserver
Height = 270
Left = 1, 960
TabIndex = 2
Text = "smtp.etang.com"
Maximum = 960
Width = 2295
End
Begin VB. TextBox txtpwa
Height = 270
IMEMode = 3 DISABLE
Left = 1, 3960
PasswordChar = "*"
TabIndex = 5
Maximum = 1200
Width = 1575
End
Begin VB. TextBox getaddress
Height = 300
Left = 1, 960
TabIndex = 1
Maximum = 600
Width = 2295
End
Begin VB. TextBox txtfrom
Height = 300
& N