Sub Command1_Click()
'N * ref: __vbaExceptHandler
'N * ref: __vbaOnError
'N * ref: "
http://schemas.microsoft[del]com/cdo/configuration/"
'N * ref: __vbaStrCopy
'N * ref: "CDO.Message"
'N * ref: CreateObject(
'N * ref: __vbaObjVar
'N * ref: __vbaObjSetAddref
'N * ref: __vbaFreeVar
【'N * ref: "为保护隐私已经屏蔽404[del]yeah[del]net"】
'N * ref: __vbaLateMemSt
【'N * ref: "S----B---[at]foxmail.com"】
'N * ref: Now
'N * ref: "【MC小助手】[反馈]"
'N * ref: "yyyy-mm-dd_hh:mm:ss"
'N * ref: __vbaVarDup
'N * ref: Format(
'N * ref: __vbaVarCat
'N * ref: __vbaFreeVarList
'N * ref: __vbaLateMemCallLd
'N * ref: __vbaVarLateMemCallLd
'N * ref: __vbaVarZero
'N * ref: "sendusing"
'N * ref: __vbaStrCat
'N * ref: __vbaVarLateMemCallSt
【'N * ref: "smtpserver"】
【'N * ref: "smtp[yeah]net"】
【'N * ref: "smtpserverport"】
'N * ref: "25"
'N * ref: "smtpauthenticate"
'N * ref: "sendusername"
【'N * ref: "-----------404[at]yeah[del]net"】
【'N * ref: "sendpassword"
'N * ref: "这里是密码"】
'N * ref: __vbaObjVar
'N * ref: __vbaLateMemCall
'N * ref: __vbaObjSet
'N * ref: "正在反馈中o0o"
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaLateMemCall
'N * ref: __vbaObjSetAddref
'N * ref: Err
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: "反馈成功,404团队将尽快处理"
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaObjSet
'N * ref: Err
'N * ref: __vbaHresultCheckObj
'N * ref: "反馈失败:"
'N * ref: __vbaStrCat
'N * ref: __vbaStrMove
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeObjList
'N * ref: __vbaObjSetAddref
'N * ref: __vbaExitProc
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeObjList
'N * ref: __vbaFreeVarList
'N * ref: __vbaFreeObj
'N * ref: __vbaFreeVar
'N * ref: __vbaFreeStr
End Sub