[已解决]如何修改邮箱后缀，公司邮箱后缀变更，客户端是foxmail。具体我在内容里面写

liushenchi

公司客户端用的是foxmail。邮箱后缀有稍微做了变更。还有收发邮件地址也都有变动。邮箱保留客户端原本的邮件。不能删除之前的帐号。想用au3自动替换下里面的后缀和密码。
如下图的：后缀是 @shentongxm.com  现在想变更成  @shentong.com
跪求哪位大神帮忙处理下。
我网上模仿的写了一小段。定位到要替换的位置。
Run("D:\Program Files\Foxmail 7.0\Foxmail.exe")
WinWait("Foxmail","工具栏")
Send("!tc")
WinWaitactive("帐号管理","更改(&E)")
ControlClick("帐号管理","更改(&E)","[CLASS:TTntEdit.UnicodeClass]")
Send("{tab},{tab}")
因为公司有2000左右的客户端在使用的都是foxmail7.0  要求保留原本的邮件内容。所以不能重新更换成6.5版本，也不能删除原本的账号只能替换后缀。如果手工改这个客户端数量很庞大。伤不起
跪求亲们帮忙。
或者谁能教我下替换字符我自己想想办法。

javascript:;javascript:;

ila

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

liushenchi

感谢二楼的帮忙，但是我需要的还是foxmail7.0的更改。公司客户端有2000左右。数量太庞大。如果要重新更改客户端那就更要命。或者谁能教我替换字符。