EmEditor中自动发送邮件备份的VBScript宏脚本

#language = "VBScript"
#title="自动发邮件备份"
#tooltip = "自动把文本内容备份到指定邮箱中"


'
'文件名：自动发邮件备份.vbee
'版本：0.1
'发布日期：2011年3月6日
'作者：宣华华，http://www.cnblogs.com/xuanhuahua/
'说明：这是一个Emeditor的VBScript宏脚本，可自动向指定的邮箱
'      发送当前正在编辑的文本文件，以进行备份
'
'
'注意事项：!!!!!必须先下载并安装“JMail 4.5”组件，请赴华军软件园等处搜取，只有606K
'          建议安装到Emeditor下，新建一个JMail文件夹，成功安装后即可调用
'
'使用方法：1、将本脚本保存在Emeditor的Plugins\@bin文件夹内
'          2、!!!!!用Emeditor打开脚本，根据脚本内的注释，修改相应内容，进行设置后保存
'          3、在Emeditor中打开“宏”菜单，找到并选择该宏脚本，运行即可
'          4、运行之前或之后，都可打开“查看”菜单，选择“输出”，以查看运行记录。
'
'使用提示：1、可将该脚本设置为工具栏按钮、设置快捷键，以方便调用（具体参考Emeditor文档）
'          2、可设置该脚本在进行保存文件等动作时自动运行（不推荐）
'          3、一些博客可以设置邮件发博客，也可以申请一个不公开的博客，作为备份之用
'
'已知问题：由于Emeditor竟未直接向宏脚本提供当前文档的全文，只能先选择再获得脚本，这导致
'          在备份操作之后，随便任按一键，可能误删除所有内容，尽管可撤销以恢复，还是不爽
'

On Error Resume Next

Set doc = editor.ActiveDocument
Set sel=doc.Selection

docName=doc.Name

curX=sel.GetAcitvePointX
curY=sel.GetActivePointY
sel.SelectAll
sel.Copy
txt=sel.Text

sel.SetActivePoint eePosLogical,curX,curY

Set jMM=CreateObject("JMail.Message")

With jMM
	.Logging=True
	'如遇乱码，应当修改此处，设置邮件正文编码，具体请狂搜谷歌
	.Charset="gb2312"
	'邮件主题，默认是前缀+文件名+日期时间，可根据需要自由修改，个性化你的需求
	.Subject="自动备份:"+docName+"("+FormatDateTime(Now,0)+")"
	'邮件正文内容为你的文本内容
	.Body=txt
	'
	'!!!!!----以下部分需要自行修改
	'
	'----From填写你发邮件所用的电子有奖账户
	.From="YOURSENDFROMMAIL@163.com"
	
	'----FromName可随便填写，它会出现在邮件的“发送人”信息内
	.FromName="YOURNMAME"
	
	'----此处可在引号内添加多个收件人，并用英文逗号隔开
	.Addrecipient "YOURBACKUPMAIL@163.com"
	
	'----邮箱的帐号name，密码password，此处以163为例，其他邮件服务器请参考其设置
	.Send("name:password@smtp.163.com")
	
	'
	'!!!!!-----修改结束
	'
End With

'在Emeditor的输出窗口可以查看JMail组件发送邮件的日志，方便找出问题
OutputBar.Clear
OutputBar.Writeln jMM.Log

jMM.Close()
set jMM=Nothing

转载于:https://www.cnblogs.com/xuanhuahua/archive/2011/03/07/1973181.html