[已解决]如何修改邮箱后缀，公司邮箱后缀变更，客户端是foxmail。具体我在内容里面写
本帖最后由 liushenchi 于 2015-12-2 17:11 编辑公司客户端用的是foxmail。邮箱后缀有稍微做了变更。还有收发邮件地址也都有变动。邮箱保留客户端原本的邮件。不能删除之前的帐号。想用au3自动替换下里面的后缀和密码。
如下图的：后缀是 @shentongxm.com现在想变更成@shentong.com
跪求哪位大神帮忙处理下。
我网上模仿的写了一小段。定位到要替换的位置。
Run("D:\Program Files\Foxmail 7.0\Foxmail.exe")
WinWait("Foxmail","工具栏")
Send("!tc")
WinWaitactive("帐号管理","更改(&E)")
ControlClick("帐号管理","更改(&E)","")
Send("{tab},{tab}")
因为公司有2000左右的客户端在使用的都是foxmail7.0要求保留原本的邮件内容。所以不能重新更换成6.5版本，也不能删除原本的账号只能替换后缀。如果手工改这个客户端数量很庞大。伤不起
跪求亲们帮忙。
或者谁能教我下替换字符我自己想想办法。
javascript:;javascript:; 本帖最后由 ila 于 2015-11-29 13:48 编辑
foxmail7.0不好用。
就算是win7 64位 我也装6.5版本。
所以你现在的简单解决：
安装6.5版本，
用脚本辅助，手工填写邮箱前缀，
然后导入用脚本修改了的地址簿。
而且，7.0版本很不好用au3之类的脚本来辅助。
贴个我以前安装foxmail6.5，并添加邮箱地址，并更新地址簿的脚本。If Run(@ScriptDir&"\foxmail65.exe") Then
WinWait($foxmail,"欢迎使用 Foxmail 6.5 正式版 安装向导")
WinActivate($foxmail,"欢迎使用 Foxmail 6.5 正式版 安装向导")
ControlClick($foxmail,"下一步(&N) >","Button2")
WinWait($foxmail,"软件许可协议")
WinActivate($foxmail,"软件许可协议")
ControlClick($foxmail,"我同意(&I)","Button2")
WinWait($foxmail,"选定安装位置")
Sleep(1000)
Send("D:\Foxmail\")
Sleep(500)
ControlClick($foxmail,"下一步(&N) >","Button2")
WinWait($foxmail,"选择“开始菜单”文件夹")
WinActivate($foxmail,"选择“开始菜单”文件夹")
ControlClick($foxmail,"安装(&I)","Button2")
Sleep(500)
WinWait($foxmail,"安装完成")
WinActivate($foxmail,"安装完成")
ControlCommand($foxmail,"显示“自述文件”(&M)","Button4","uncheck")
Sleep(500)
ControlClick($foxmail,"完成","Button2")
WinWait("向导","AccName")
WinActivate("向导","AccName")
$mail1=InputBox("输入用户拼音全拼","举例:王大,输入wangda","","",-1,-1,0,0)
ControlSetText("向导","","TEdit1",$mail1&"@kjpcb.cn")
Sleep(500)
$mail2=InputBox("输入密码","输入四位的字母和数字混合","","",-1,-1,0,0)
ControlSetText("向导","","TEdit2",$mail2)
Sleep(500)
ControlClick("向导","下一步(&X) >","TButton3")
WinWait("向导","Server")
WinActivate("向导","Server")
ControlSetText("向导","","TEdit3","192.168.1.222")
Sleep(500)
ControlSetText("向导","","TEdit2","192.168.1.222")
Sleep(500)
ControlClick("向导","下一步(&X) >","下一步(&X) >")
WinWait("向导","Finish")
WinActivate("向导","Finish")
ControlClick("向导","完成","TButton3")
If ProcessExists("Foxmail.exe") Then
WinWait("Foxmail")
WinActivate("Foxmail")
Send("^k")
Else
ShellExecute("Foxmail.lnk","",@DesktopDir,"open",@SW_MAXIMIZE)
EndIf
Sleep(500)
WinSetOnTop("地址簿","MenuBar",1)
WinWait("地址簿","MenuBar")
WinActivate("地址簿","MenuBar")
Send("!t")
Sleep(500)
Send("{right}")
Sleep(500)
Send("{enter}")
Sleep(500)
WinWait("向导","IMpFileName")
WinActivate("向导","IMpFileName")
ControlSetText("向导","","TEdit1",@DesktopDir&"\add.csv")
WinWait("向导","下一步(&X) >")
WinActivate("向导","下一步(&X) >")
Send("!x")
Sleep(500)
WinWait("向导","ImpSelectFields")
WinActivate("向导","ImpSelectFields")
ControlClick("向导","全选(&S)","TButton7")
Sleep(500)
ControlClick("向导","完成","TButton3")
Sleep(500)
AdlibRegister("_fugai")
WinWait("消息","确定")
WinActivate("消息","确定")
ControlClick("消息","确定","TButton1")
AdlibUnRegister("_fugai")
WinSetOnTop("地址簿","MenuBar",0)
Sleep(500)
MsgBox(0,"foxmail地址簿更新","更新成功",2)
Else
MsgBox(16,"安装失败","检查安装文件是否有效",2)
EndIf
Func _fugai()
If WinExists("确认","替换所有(&P)") Then
WinActivate("确认","替换所有(&P)")
ControlClick("确认","替换所有(&P)","TButton1")
Sleep(500)
EndIf 感谢二楼的帮忙，但是我需要的还是foxmail7.0的更改。公司客户端有2000左右。数量太庞大。如果要重新更改客户端那就更要命。或者谁能教我替换字符。
页:
[1]