批处理自动配置Outlook账户
2016-01-12 10:03
274 查看
批处理自动配置Outlook账户
使用批处理程序自动执行Outlook客户端的配置过程，自动判断Office版本，自动区分32位、64位。代码如下，请修改代码中的邮箱后缀即可：<span style="font-size:18px;"><span style="font-family:Courier New;">@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"签名和信纸">&
4000
gt;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.SendK
de54
eys "{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</span>
</span>
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- iOS中用UIWebView的loadHTMLString后图片和文字失调解决方法
- “error C2664: “MessageBoxW”: 不能将参数 2 从“char [300]”转换为“LPCWSTR” 1> 与指向的类型无关；转换要求 reinterpret_”问题解决
- DNS服务器配置之前传------基础知识普及
- eclipse安装php插件
- HTML5标签元素下的下划线动画
- 献给那些纯白的爱
- 国内四个不错的技术团体博客
- ubuntu server 12.04U盘安装，提示无法挂载安装光盘或光盘读取数据出错
- 公开密匙(public key)和专用密匙(private key)
- darknet网络中识别本地视频
- LZO,LZOP
- 【Unity3d】火炬之光的X射线效果
- Qt学习：再次理解隐式共享
- FPGA求负数原码
- Uiautomator API简介-摘要
- Error 1033 received logging on to the standby
- SparseArray介绍
- 20160112
- Android 对话框(Dialog)大全 建立你自己的对话框
- linux hosts&dns