Windows有個COM物件可以很簡便的寄信，就是CDO (Collaboration Data Objects) 物件，如果我們使用AutoHotkey來操作CDO的話，可以用一行命令、很簡單的就能把電子書檔案寄出，不必再使用IFTTT.com或進入電子郵件應用程式。
#SingleInstance Force
sFileName := A_Args[1] ;; //傳入參數必須帶有路徑
if (sFileName = "") {
MsgBox 必須傳入完整檔名
return
}
pmsg := ComObjCreate("CDO.Message")
;;pmsg.Charset := "UTF-8"
pmsg.From := """SendByAHK"" <你的Gmail帳號@gmail.com>"
pmsg.To := "你的Kindle帳號@kindle.com"
pmsg.BCC := "" ; Blind Carbon Copy, Invisable for all, same syntax as CC
pmsg.CC := ""
pmsg.Subject := "傳送Kindle檔名:" . sFileName
;You can use either Text or HTML body like
pmsg.TextBody := "傳送檔名:" . sFileName
;OR
;pmsg.HtmlBody := "<html><head><title>Hello</title></head><body><h2>Hello</h2><p>Testing!</p></body></html>"
;;MsgBox %sFileName%
sAttach := sFileName ; can add multiple attachments, the delimiter is |
fields := Object()
fields.smtpserver := "smtp.gmail.com" ; specify your SMTP server
fields.smtpserverport := 465 ; 25
fields.smtpusessl := True ; False
fields.sendusing := 2 ; cdoSendUsingPort
fields.smtpauthenticate := 1 ; cdoBasic
fields.sendusername := "你的Gmail帳號@gmail.com"
fields.sendpassword := "你的Gmail帳號密碼"
fields.smtpconnectiontimeout := 60
schema := "http://schemas.microsoft.com/cdo/configuration/"
pfld := pmsg.Configuration.Fields
For field,value in fields
pfld.Item(schema . field) := value
pfld.Update()
Loop, Parse, sAttach, |, %A_Space%%A_Tab%
pmsg.AddAttachment(A_LoopField)
pmsg.Send()
實際的操作影片
＃＃
您可能也會有興趣的類似文章
- 幾個AutoHotkey的實用範例：音量控制、滾輪回上層與語音功能（AHK #7） (0則留言, 2019/06/05)
- 輕鬆學會AutoHotkey的熱鍵：熱鍵用法實例解說（AHK #4） (0則留言, 2019/05/24)
- AutoHotkey腳本的４種除錯方法（AHK #5） (0則留言, 2019/05/25)
- [AutoHotkey] 將特定視窗固定顯示在第2螢幕 (0則留言, 2017/08/24)
- PhraseExpress：凡人版的AutoHotkey [修訂] (0則留言, 2009/11/28)
- [Tools] 操作熱鍵與熱字串的超便利工具：AutoHotKey (13則留言, 2005/04/29)
- 快速建立個人常用詞庫－AutoHotkey 熱字串小工具：HotString Helper（AHK #3） (0則留言, 2019/05/18)
- 用AutoGUI來學習AutoHotkey！超級簡單！（AHK #1） (0則留言, 2019/05/14)
- 輕鬆學會彈指神功－揭露AutoHotkey絕技 (59則留言, 2008/04/10)
- 參戰ClickClickClick大賽：我的自動點擊程式ccc.exe V1.3 (14則留言, 2007/06/16)
- [AutoHotkey] 連按兩次Escape鍵來關閉視窗 (27則留言, 2006/05/11)
- 讓MSN的Esc鍵失效 (5則留言, 2008/10/22)
- 支援Unicode的Autohotkey終於浮上抬面！ (1則留言, 2010/10/16)
- 用AutoHotkey統一不同工具的偵錯功能鍵 (0則留言, 2008/03/19)
- 使用AutoHotkey讀取Excel檔案的簡單說明 (1則留言, 2014/05/24)