替換活動電子郵件草稿正文中的字符串

Question

我想用當前活動電子郵件草稿中的某個字符串替換給定正則表達式的每個實例。

我特別被困在下面的第一行。

僞代碼：

myMessage = active message 
someRegex = \d\d[:,]\d\d 
someString = "(Time Entry)" 
myMessage.HTMLBody = Replace(myMessage.HTMLBody, someRegex, someCharacter) 

Answer 1

像這樣的東西應該在草案第一項工作。

稍後會添加進一步的錯誤處理和測試。

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)