新入手Kindle Paperwhite,推送扩展什么的都搞定了,但"Send to Kindle for PC”只能推送到@kindle.com,无法推送@kindle.cn。每次都要接上数据线拷到KPW去又很不爽,干脆把网上自动发送邮件的vbs脚本改了改,加到右键“发送到”菜单里,顺手一点就推送了。
1. 新建一文本文档,粘贴如下代码(xxxxxx、********及smtp服务器等根据实际情况修改):
dim strFilepath
strFilepath = WScript.Arguments(0)
Const Email_From = "xxxxxx@gmail.com" '这里的Email要是在Amazon“已认可的发件人电子邮箱列表”中添加过的
Const Password = "********" '上面邮箱的密码
Const Email_To = "xxxxxx@kindle.cn"
Set CDO = CreateObject("CDO.Message")
CDO.Subject = "book" '邮件主题,随便填写
CDO.From = Email_From
CDO.To = Email_To
CDO.TextBody = "" '邮件正文,随便填写,我这儿留空了
cdo.AddAttachment strFilepath
Const schema = "http://schemas.microsoft.com/cdo/configuration/"
With CDO.Configuration.Fields
.Item(schema & "sendusing") = 2
.Item(schema & "smtpserver") = "smtp.gmail.com" '发送邮件邮箱的smtp设置,具体在邮箱帮助中查看
.Item(schema & "smtpauthenticate") = 1
.Item(schema & "sendusername") = Email_From
.Item(schema & "sendpassword") = Password
.Item(schema & "smtpserverport") = 465 'gmail邮箱的smtp端口为465,多数邮箱为45。同上在帮助中查看
.Item(schema & "smtpusessl") = True
.Item(schema & "smtpconnectiontimeout") = 60
.Update
End With
CDO.Send
2. 文件随便起名,格式另存为.vbs,例如我就保存为Kindle.vbs,创建快捷方式。
3. 打开我的电脑,地址栏输入“shell:sendto",进入发送到文件夹,将上一步创建的快捷方式放到此处,还可以根据自己喜好换个图标。
4. 结果图:
5. 因为个人没有那需求,所以每次只能发送一个文件。有需要多选文件发送的可自行修改代码。
6. 发送文件后无提示,个人使用正常。