1. 注释：2013-3-21 晚上设计学习 = 分享
2. 注释：初始化
3. 定义变量 你的邮箱帐号
4. 定义变量 你的邮箱密码
5. 定义变量 发送邮件地址
6. 定义变量 邮件主题
7. 定义变量 邮件内容
8. 定义变量 邮件附件
9. 注释：发送按钮
10. Event(Smail.Button_send.Click)
11. 令 你的邮箱帐号 = Smail.InputBox_user.Text
12. 令 你的邮箱密码 = Smail.InputBox_password.Text
13. 令 发送邮件地址 = Smail.InputBox_to.Text
14. 令 邮件主题 = Smail.InputBox_q.Text
15. 令 邮件内容 = Smail.InputBox_body.Text
16. 令 邮件附件 = Smail.BrowseBox_f.Path
17. 如果 你的邮箱帐号 = "" 或者 你的邮箱密码 = "" 或者 发送邮件地址 = "" 则
18.     MsgBox("请将邮件填写完整",vbExclamation)
19. 否则
20.     令 返回值 = （命令库 网络）发送邮件(你的邮箱帐号,你的邮箱密码,发送邮件地址,邮件主题,邮件内容,邮件附件)
21.     如果 返回值 = TRUE 则
22.         MsgBox("邮件发送成功",vbInformation)
23.     否则
24.         MsgBox("邮件发送失败",vbQuestion)
25.     条件结束
26. 条件结束
27. (语句无法识别，可能有错误): End Event
28. 注释：重置 按钮
29. Event(Smail.Button_reset.Click)
30. 令 Smail.InputBox_user.Text = "邮箱账号"
31. 令 Smail.InputBox_password.Text = "邮箱密码"
32. 令 Smail.InputBox_to.Text = ""
33. 令 Smail.InputBox_q.Text = ""
34. 令 Smail.InputBox_body.Text = ""
35. 令 Smail.BrowseBox_f.Path = ""
36. 令 Smail.InputBox_password.PasswordChar = false
37. (语句无法识别，可能有错误): End Event
38. 注释：定时器
39. Event(Smail.Timer1.Timer)
40. 令 Smail.Timer1.Enabled = false
41. 令 Smail.InputBox_time.Text = Date + Time
42. 令 Smail.Timer1.Enabled = True
43. (语句无法识别，可能有错误): End Event
44. 注释：解密载入时
45. Event(Smail.Load)
46. 令 Smail.Timer1.Enabled = false
47. 令 Smail.Timer1.Interval = 1000
48. 令 Smail.Timer1.Enabled = True
49. (语句无法识别，可能有错误): End Event
50. 注释：账号 焦点
51. Event(Smail.InputBox_user.GotFocus)
52. 如果 Smail.InputBox_user.Text = "邮箱账号" 则
53.     令 Smail.InputBox_user.Text = ""
54. 条件结束
55. (语句无法识别，可能有错误): End Event
56. Event(Smail.InputBox_user.LostFocus)
57. 如果 Smail.InputBox_user.Text = "" 则
58.     令 Smail.InputBox_user.Text = "邮箱账号"
59. 条件结束
60. (语句无法识别，可能有错误): End Event
61. 注释：密码 焦点
62. Event(Smail.InputBox_password.GotFocus)
63. 如果 Smail.InputBox_password.Text = "邮箱密码" 则
64.     令 Smail.InputBox_password.Text = ""
65.     令 Smail.InputBox_password.PasswordChar = True
66. 条件结束
67. (语句无法识别，可能有错误): End Event
68. Event(Smail.InputBox_password.LostFocus)
69. 如果 Smail.InputBox_password.Text = "" 则
70.     令 Smail.InputBox_password.Text = "邮箱密码"
71.     令 Smail.InputBox_password.PasswordChar = false
72. 条件结束
73. (语句无法识别，可能有错误): End Event