用Jmail发送邮件

由于经常有些文件来往，所以总是不知道哪些文件是干什么的，是什么时候给我的，相同文件哪个版本比较新，很是头疼，于是想搞个文件管理的，但发现其实用outlook来管理是不错的，于是决定写个发邮件的东西，想要达到的目的是：
第一，在任何文件上右键，可以有一个发件文件的菜单项
第二，发送到我的邮箱。

找到资料后，基本能实现了。
第一步，在文件右键上增加自己的功能，用注册表，做好后我导出来了，如下:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\*\shell\SendMail]
@="发送文件(&S)"

[HKEY_CLASSES_ROOT\*\shell\SendMail\command]
@="c:\\a.exe \"%1\""

 第二步，发送文件，于是我找了一个Jmail组件，以VB为例，写了一个功能，调用即可。
'**************************************************
'函数名：SendMail
'作 用：用Jmail组件发送邮件
'参 数：MailtoAddress -----收信人信箱
' MailtoName -----收信人姓名
' Subject -----主题
' MailBody -----信件内容
' MailFrom -----发信人信箱
' FromName -----发信人姓名
' Priority -----信件优先级
' MailServerUser -----登陆邮箱用户名
' MailServerPass -----登陆邮箱密码
' MailDomain -----邮箱域名
' MailServer -----发件SMTP服务器
'
'**************************************************
Function SendMail(MailtoAddress, MailtoName, Subject, MailBody, MailFrom, FromName, MailServerUser, MailServerPass, MailDomain, MailServer, sFileName)
' on error resume next
Dim JMail As New JMail.Message
Dim JMailstat As Boolean
 
JMail.AddAttachment sFileName  '增加附件
JMail.Charset = "gb2312" '邮件字符集
JMail.Silent = True '忽略错误
JMail.ContentType = "text/html" '邮件编码
JMail.AddRecipient MailtoAddress, MailtoName  '收件人地址
JMail.ReturnReceipt = True '是否收条（验证中）
JMail.From = MailFrom '发件人邮箱
JMail.MailDomain = MailDomain '邮箱所在域名（验证中）
JMail.FromName = FromName '发件人姓名
JMail.MailServerUserName = MailServerUser '邮箱用户名
JMail.MailServerPassWord = MailServerPass '邮箱密码
JMail.Subject = Subject '邮件主题
JMail.Body = MailBody '邮件正文（纯文本格式）
'JMail.HMTLBody=MailBody '邮件正文（HTML格式）
JMail.Priority = 1 '邮件等级，1为加急，3为普通，5为低级
JMailstat = JMail.Send(MailServer)
If JMailstat Then
Debug.Print "成功"
Else
Debug.Print "失败"
End If
JMail.Close
Set JMail = Nothing
End Function

下载Jmail: http://www.pczs120.cn/tools/JMail45.rar
Jmail帮助文档:http://www.pczs120.cn/tools/JMail.rar

但是，各位同胞，TMD在系统右键中竟然有一个发送到---->邮件接受者。。。。

失误失误。。。。