由于公司分公司没和总公司统一,有部分64位版本的Office,所以完善了一下之前的自动配置程序,改为自动判断Office版本并使用对应的方式安装,代码如下,请修改代码中的邮箱后缀即可:
@echo off color 0A mode con cols=80 lines=30 echo Outlook 客户端自动配置程序 echo. echo 退出360等安全软件后,请根据本程序提示,输入您的用户名和密码后回车,等待程序自动配置完成,直到出现“配置完成”提示,过程中出现的窗口不需要您手动输入用户名和密码,程序会自动输入,完成后会自动打开Outlook客户端,中间步骤不需要您操作。根据电脑配置不同,配置时间可能较长,请您耐心等待。 echo. echo. echo 请注意:如果您的系统为Win8系统,请确保一直处于英文输入法状态!!! echo. echo. if exist "C:\Program Files (x86)\Microsoft Office\Office14\OUTLOOK.EXE" goto office201032 if exist "C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE" goto office201064 if exist "C:\Program Files (x86)\Microsoft Office\Office15\OUTLOOK.EXE" goto office201332 if exist "C:\Program Files\Microsoft Office\Office15\OUTLOOK.EXE" goto office201364 if not exist OUTLOOK.EXE goto error :error echo 当前Office版本错误,或者没有安装Office。 pause exit :office201032 echo 您的Office版本是2010 32位版本 echo. echo 请输入您的邮箱用户名(例如liu.qi14): set /p mailname= echo. echo 请输入您的邮箱密码: set /p mailpassword= rem 生成vbs文件 echo MsgBox "请按“确定”开始配置邮箱,过程中请勿自行进行操作,程序会自动完成,直到弹出“配置完成”提示框。",0,"开始配置" >mail.vbs echo set xnet = createobject("wscript.network")>>mail.vbs echo Dim strPrgpth>>mail.vbs echo strPrgpth ="C:\Program Files (x86)\Microsoft Office\Office14\Outlook.exe">>mail.vbs echo Set wshshell=CreateObject("wscript.shell")>>mail.vbs echo Set oexec=wshshell.Exec(strPrgpth)>>mail.vbs echo WScript.Sleep 20000>>mail.vbs echo wshshell.AppActivate"欢迎使用 Microsoft Outlook 2010">>mail.vbs echo WScript.Sleep 5000>>mail.vbs echo wshshell.SendKeys"%%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Microsoft Outlook 帐户设置">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"%%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"添加账户">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"%mailname%">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"%mailname%@您的邮箱后缀">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 10000>>mail.vbs echo wshshell.SendKeys"%mailpassword%">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys" ">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 10000>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs rem 设置接受发送时间 echo WScript.Sleep 30000>>mail.vbs echo wshshell.SendKeys"%%F" >>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"%%T" >>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"%%D" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"1">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"1">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"{ESC}">>mail.vbs rem 设置签名 echo WScript.Sleep 3000>>mail.vbs echo wshshell.SendKeys"%%F" >>mail.vbs echo WScript.Sleep 5000>>mail.vbs echo wshshell.SendKeys"%%T" >>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"%%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"%%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"新签名">>mail.vbs echo wshshell.SendKeys"mail">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo MsgBox "配置完成,请修改《邮件签名模板.doc》文件为自己的信息,之后全选覆盖粘贴到本输入框,点击确定即可。",0,"配置完成" >>mail.vbs rem 删除vbs文件本身 echo Set fso =CreateObject("Scripting.Filesystemobject")>>mail.vbs echo fso.DeleteFile(WScript.ScriptFullName) >>mail.vbs rem 运行vbs文件 start mail.vbs exit :office201064 echo 您的Office版本是2010 64位版本 echo. echo 请输入您的邮箱用户名(例如liu.qi14): set /p mailname= echo. echo 请输入您的邮箱密码: set /p mailpassword= rem 生成vbs文件 echo MsgBox "请按“确定”开始配置邮箱,过程中请勿自行进行操作,程序会自动完成,直到弹出“配置完成”提示框。",0,"开始配置" >mail.vbs echo set xnet = createobject("wscript.network")>>mail.vbs echo Dim strPrgpth>>mail.vbs echo strPrgpth ="C:\Program Files\Microsoft Office\Office14\Outlook.exe">>mail.vbs echo Set wshshell=CreateObject("wscript.shell")>>mail.vbs echo Set oexec=wshshell.Exec(strPrgpth)>>mail.vbs echo WScript.Sleep 20000>>mail.vbs echo wshshell.AppActivate"欢迎使用 Microsoft Outlook 2010">>mail.vbs echo WScript.Sleep 5000>>mail.vbs echo wshshell.SendKeys"%%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Microsoft Outlook 帐户设置">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"%%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"添加账户">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"%mailname%">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"%mailname%@您的邮箱后缀">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 10000>>mail.vbs echo wshshell.SendKeys"%mailpassword%">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys" ">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 10000>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs rem 设置接受发送时间 echo WScript.Sleep 30000>>mail.vbs echo wshshell.SendKeys"%%F" >>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"%%T" >>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"%%D" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"1">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"1">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"{ESC}">>mail.vbs rem 设置签名 echo WScript.Sleep 3000>>mail.vbs echo wshshell.SendKeys"%%F" >>mail.vbs echo WScript.Sleep 5000>>mail.vbs echo wshshell.SendKeys"%%T" >>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"%%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"%%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"新签名">>mail.vbs echo wshshell.SendKeys"mail">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo MsgBox "配置完成,请修改《邮件签名模板.doc》文件为自己的信息,之后全选覆盖粘贴到本输入框,点击确定即可。",0,"配置完成" >>mail.vbs rem 删除vbs文件本身 echo Set fso =CreateObject("Scripting.Filesystemobject")>>mail.vbs echo fso.DeleteFile(WScript.ScriptFullName) >>mail.vbs rem 运行vbs文件 start mail.vbs exit :office201332 echo 您的Office版本是2013 32位版本 echo. echo 请输入您的邮箱用户名(例如liu.qi14): set /p mailname= echo. echo 请输入您的邮箱密码: set /p mailpassword= rem 生成vbs文件 echo MsgBox "请按“确定”开始配置邮箱,过程中请勿自行进行操作,程序会自动完成,直到弹出“配置完成”提示框。",0,"开始配置" >mail.vbs echo set xnet = createobject("wscript.network")>>mail.vbs echo Dim strPrgpth>>mail.vbs echo strPrgpth ="C:\Program Files (x86)\Microsoft Office\Office15\Outlook.exe">>mail.vbs echo Set wshshell=CreateObject("wscript.shell")>>mail.vbs echo Set oexec=wshshell.Exec(strPrgpth)>>mail.vbs echo WScript.Sleep 30000>>mail.vbs echo wshshell.AppActivate"欢迎使用 Microsoft Outlook 2013">>mail.vbs echo WScript.Sleep 5000>>mail.vbs echo wshshell.SendKeys"%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Microsoft Outlook 帐户设置">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"添加账户">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"%mailname%">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"%mailname%@您的邮箱后缀">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 10000>>mail.vbs echo wshshell.SendKeys"%mailpassword%">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys" ">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 10000>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs rem 设置接受发送时间 echo WScript.Sleep 30000>>mail.vbs echo wshshell.SendKeys"%%F" >>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"%%T" >>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"%%D" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"1">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"1">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"{ESC}">>mail.vbs rem 设置签名 echo WScript.Sleep 3000>>mail.vbs echo wshshell.SendKeys"%%F" >>mail.vbs echo WScript.Sleep 5000>>mail.vbs echo wshshell.SendKeys"%%T" >>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"%%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"%%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"新签名">>mail.vbs echo wshshell.SendKeys"mail">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo MsgBox "配置完成,请修改《邮件签名模板.doc》文件为自己的信息,之后全选覆盖粘贴到本输入框,点击确定即可。",0,"配置完成" >>mail.vbs rem 删除vbs文件本身 echo Set fso =CreateObject("Scripting.Filesystemobject")>>mail.vbs echo fso.DeleteFile(WScript.ScriptFullName) >>mail.vbs rem 运行vbs文件 start mail.vbs exit :office201364 echo 您的Office版本是2013 64位版本 echo. echo 请输入您的邮箱用户名(例如liu.qi14): set /p mailname= echo. echo 请输入您的邮箱密码: set /p mailpassword= rem 生成vbs文件 echo MsgBox "请按“确定”开始配置邮箱,过程中请勿自行进行操作,程序会自动完成,直到弹出“配置完成”提示框。",0,"开始配置" >mail.vbs echo set xnet = createobject("wscript.network")>>mail.vbs echo Dim strPrgpth>>mail.vbs echo strPrgpth ="C:\Program Files\Microsoft Office\Office15\Outlook.exe">>mail.vbs echo Set wshshell=CreateObject("wscript.shell")>>mail.vbs echo Set oexec=wshshell.Exec(strPrgpth)>>mail.vbs echo WScript.Sleep 30000>>mail.vbs echo wshshell.AppActivate"欢迎使用 Microsoft Outlook 2013">>mail.vbs echo WScript.Sleep 5000>>mail.vbs echo wshshell.SendKeys"%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Microsoft Outlook 帐户设置">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"添加账户">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"%mailname%">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"%mailname%@您的邮箱后缀">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 10000>>mail.vbs echo wshshell.SendKeys"%mailpassword%">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys" ">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 10000>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs rem 设置接受发送时间 echo WScript.Sleep 30000>>mail.vbs echo wshshell.SendKeys"%%F" >>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"%%T" >>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"%%D" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"1">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"发送/接受组">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"1">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.SendKeys"{ESC}">>mail.vbs rem 设置签名 echo WScript.Sleep 3000>>mail.vbs echo wshshell.SendKeys"%%F" >>mail.vbs echo WScript.Sleep 5000>>mail.vbs echo wshshell.SendKeys"%%T" >>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"%%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"Outlook 选项">>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"%%N" >>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"新签名">>mail.vbs echo wshshell.SendKeys"mail">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 1000>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{DOWN}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshshell.SendKeys"{ENTER}">>mail.vbs echo WScript.Sleep 500>>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo wshShell.SendKeys "{Tab}">>mail.vbs echo wshshell.AppActivate"签名和信纸">>mail.vbs echo MsgBox "配置完成,请修改《邮件签名模板.doc》文件为自己的信息,之后全选覆盖粘贴到本输入框,点击确定即可。",0,"配置完成" >>mail.vbs rem 删除vbs文件本身 echo Set fso =CreateObject("Scripting.Filesystemobject")>>mail.vbs echo fso.DeleteFile(WScript.ScriptFullName) >>mail.vbs rem 运行vbs文件 start mail.vbs exit :quit exit
时间: 2024-10-25 10:22:32