论文部分内容阅读
网易前段时间推出了“右键邮”客户端，方便我们从桌面直接发送网易系列的邮件。其实要实现这一功能，通过Windows系统自身支持的VBS脚本就能实现，何必还要安装一个软件。（本文涉及的所有源代码文件，可从http://work.newhua.com/cfan/200904/yjy.rar下载获取）
首先在记事本中输入以下三行代码，并保存为VBS脚本文件（reg.vbs）：
set ws = createobject("wscript.shell")
ws.regwrite "HKCR\*\Shell\\以正文发送\Command\","wscript.exe c:\yjy.vbs " & chr(34) & "%1" & chr(34) & " z"
ws.regwrite "HKCR\*\Shell\\以附件发送\Command\","wscript.exe c:\yjy.vbs " & chr(34) & "%1" & chr(34) & " f"
这一脚本的作用，就是通过注册表在右键菜单中加入“以正文发送”及“以附件发送”项目（见图），仅需双击执行一次就可以了。上面脚本中的“wscript.exe c:\yjy.vbs”，表示这一命令实际调用的是存放在C盘根目录下的yjy.vbs文件。由于yjy.vbs代码较长，下面仅分析一下它的核心代码（单引号后为注释语句，可以不输入），完整文件见上文提供的压缩包。
'判断参数
if canshu = "z" then
……
end if
if canshu = "f" then
……
end if
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.126.com" 'SMTP服务器地址
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "xiaomingtt" '邮箱账号
.Item(NameSpace&"sendpassword") = "******" '邮箱密码
.update
End With
Email.Send
以上代码，首先判断用户选择的是“以正文发送”（参数为z）还是“以附件发送”（参数为f），然后根据选择设置邮件内容。后面的With...End With语句，则是设置发送邮箱的参数，大家根据实际情况改成自己的邮箱服务器就可以了，接着就是“Email.Send”发送邮件。一个脚本即可实现自己的右键邮，简单、安全，有兴趣的你还不试试看。
首先在记事本中输入以下三行代码，并保存为VBS脚本文件（reg.vbs）：
set ws = createobject("wscript.shell")
ws.regwrite "HKCR\*\Shell\\以正文发送\Command\","wscript.exe c:\yjy.vbs " & chr(34) & "%1" & chr(34) & " z"
ws.regwrite "HKCR\*\Shell\\以附件发送\Command\","wscript.exe c:\yjy.vbs " & chr(34) & "%1" & chr(34) & " f"
这一脚本的作用，就是通过注册表在右键菜单中加入“以正文发送”及“以附件发送”项目（见图），仅需双击执行一次就可以了。上面脚本中的“wscript.exe c:\yjy.vbs”，表示这一命令实际调用的是存放在C盘根目录下的yjy.vbs文件。由于yjy.vbs代码较长，下面仅分析一下它的核心代码（单引号后为注释语句，可以不输入），完整文件见上文提供的压缩包。
'判断参数
if canshu = "z" then
……
end if
if canshu = "f" then
……
end if
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.126.com" 'SMTP服务器地址
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "xiaomingtt" '邮箱账号
.Item(NameSpace&"sendpassword") = "******" '邮箱密码
.update
End With
Email.Send
以上代码，首先判断用户选择的是“以正文发送”（参数为z）还是“以附件发送”（参数为f），然后根据选择设置邮件内容。后面的With...End With语句，则是设置发送邮箱的参数，大家根据实际情况改成自己的邮箱服务器就可以了，接着就是“Email.Send”发送邮件。一个脚本即可实现自己的右键邮，简单、安全，有兴趣的你还不试试看。