帮我解释一下代码:OptionExplicitDimobjEmailAsObjectDimstrNameAsStringPrivateSubForm_Load()strName="http://schemas.microsoft.com/cdo/configuration/"SetobjEmail=CreateObject("CDO.Message")EndSubPrivateSubCommand1_Click()Me.Caption="Sending..."Command1.Enabled=FalseobjEmail.From=txtFrom.TextobjEmail.To=txtTo.TextobjEmail.Subject=txtSubject.TextobjEmail.Textbody=txtTextbody.TextobjEmail.Configuration.Fields.Item(strName&"sendusing")=2objEmail.Configuration.Fields.Item(strName&"smtpserver")=txtSmtp.TextobjEmail.Configuration.Fields.Item(strName&"smtpserverport")=25objEmail.Configuration.Fields.Item(strName&"smtpauthenticate")=1objEmail.Configuration.Fields.Item(strName&"sendusername")=Left(txtFrom.Text,InStr(txtFrom.Text,"@")-1)objEmail.Configuration.Fields.Item(strName&"sendpassword")=txtPass.TextobjEmail.Configuration.Fields.UpdateobjEmail.SendCommand1.Enabled=TrueMe.Caption="SendOK!"EndSub
参考答案：是送信的，具体的慢读就可以了。 |
