Código de correo electrónico VB

Errores causados ​​por los conceptos de cadenas y variables...

Email.from = text2.text & "@qq.com 'era: "text1.text@qq.com"

Email.to = text2.text & "@qq.com" 'was："text2.text@qq.com"

'...

.Item(NameSpace & "sendusername") = Text3.text 'Elimina los corchetes originales y el número qq

.Item(NameSpace & "sendpassword") = Text3.Text2.text & "@qq.com" 'Original: ""

'.

Espero que te sea útil...