Skip to content

Instantly share code, notes, and snippets.

View Kuanlin-Chen's full-sized avatar

Corey Kuanlin-Chen

View GitHub Profile
@Kuanlin-Chen
Kuanlin-Chen / sendmail.vbs
Last active January 8, 2019 12:16
Send mail automatically with Lotus Notes
set shell = CreateObject("WScript.Shell")
shell.run"YourLotusPath\notes.exe"
WScript.Sleep 1000
shell.run"YourLotusPath\notes.exe mailto:[email protected]?subject=Hello?attach=Result.txt"
WScript.Sleep 2000
shell.SendKeys"{TAB}"
shell.SendKeys"{ENTER}"
shell.SendKeys"^(+{ENTER})"
WScript.Sleep 1000
shell.SendKeys"{ENTER}"