Email.from = text2.text & "@qq.com '原:"text1.text@qq.com"
Email.to = text2.text & "@qq.com" '原:"text2.text@qq.com"
'...
.Item(NameSpace & "sendusername") = Text3.text '把原來的括弧去掉,qq號碼
.Item(NameSpace & "sendpassword") = Text3.text '把原來的括弧去掉,密碼
希望妳能成功...