我想我自己找到了解决办法。
Const olFolderContacts = 10
sOldDomain = "@olddomain.com"
sNewDomain = "@newdomain.com"
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oContactFolder = oNamespace.GetDefaultFolder(olFolderContacts)
For Each item in oContactFolder.Items
If InStr(1, item.Email1Address, sOldDomain, vbTextCompare) > 0 Then _
item.Email1Address = Replace(item.Email1Address, sOldDomain, sNewDomain, 1, 1, vbTextCompare)
If InStr(1, item.Email2Address, sOldDomain, vbTextCompare) > 0 Then _
item.Email2Address = Replace(item.Email2Address, sOldDomain, sNewDomain, 1, 1, vbTextCompare)
If InStr(1, item.Email3Address, sOldDomain, vbTextCompare) > 0 Then _
item.Email3Address = Replace(item.Email3Address, sOldDomain, sNewDomain, 1, 1, vbTextCompare)
item.Save
Next
Wscript.Echo "Finished."