文件命令以*.vbs
脚本如下:(修改脚本中id and password即可)
password = "123456" 'Notes密码
name = "lkf" '名字拼音
id = "123456" '工号
set ws = createobject("wscript.shell")
if Not ws.appactivate(name) then
' ws.appactivate id
' ws.appactivate "Work"
' ws.appactivate "Notes"
' ws.appactivate "Logout"
ws.sendkeys "%"
if Not ws.appactivate("Lotus Notes") then
' ws.popup "No",1
createobject("InternetExplorer.application").navigate("mailto:")
end if
wscript.sleep 50
' delaysendkeys "{enter}"
delaysendkeys password
delaysendkeys "{enter}"
end if
function delaysendkeys(s)
ws.sendkeys s
wscript.sleep 50
end function
脚本如下:(修改脚本中id and password即可)
password = "123456" 'Notes密码
name = "lkf" '名字拼音
id = "123456" '工号
set ws = createobject("wscript.shell")
if Not ws.appactivate(name) then
' ws.appactivate id
' ws.appactivate "Work"
' ws.appactivate "Notes"
' ws.appactivate "Logout"
ws.sendkeys "%"
if Not ws.appactivate("Lotus Notes") then
' ws.popup "No",1
createobject("InternetExplorer.application").navigate("mailto:")
end if
wscript.sleep 50
' delaysendkeys "{enter}"
delaysendkeys password
delaysendkeys "{enter}"
end if
function delaysendkeys(s)
ws.sendkeys s
wscript.sleep 50
end function