我想用当前事件电子邮件草稿中的某个字符串替换给定正则表达式的每个实例。
我特别卡在下面的第一行。
伪代码:
myMessage = active message
someRegex = \d\d[:,]\d\d
someString = "(Time Entry)"
myMessage.HTMLBody = Replace(myMessage.HTMLBody, someRegex, someCharacter)
最佳答案
类似的操作应该适用于草稿中的第一个项目。
稍后将添加进一步的错误处理和测试。
Dim objRegex As Object
Dim objNS As Outlook.NameSpace
Dim objItemj
Dim objFolder As Outlook.MAPIFolder
Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olFolderDrafts)
Set objItem = objFolder.Items(1)
Set objRegex = CreateObject("vbscript.regexp")
objRegex.Pattern = ":\d\d[:,]\d\d"
somestring = "(Time Entry)"
objItem.HTMLBody = objRegex.Replace(objItem.HTMLBody, somestring)
关于regex - 替换事件电子邮件草稿正文中的字符串，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/41605935/