Question

电子邮件主题：[XX＃123456] Banana ABC 输出：Banana ABC

我的代码基本上是搜索电子邮件主题是否包含“[XX＃”，如果是，那么它将删除“[XX＃123456]”之后的其余字符串，并且主题现在将是香蕉ABC。

但是，使用下面的代码，输出是：香蕉ABC123456]香蕉ABC

For i = objItems.Count To 1 Step -1
    Set obj = objItems.item(i)
        If obj.Class = olMail And _
        (InStr(1, obj.ConversationTopic, "[XX#", vbTextCompare) > 0) Then
        Debug.Print "Found"
        Found = True
        obj.Subject = Replace(obj.Subject, "[XX#", (Mid(obj.Subject, InStr(obj.Subject, "[XX#") + 8)))

        obj.Save
        End If
    Next

Answer 1

好的，明白了。只需删除我的代码中的“替换”

obj.Subject = (Mid(obj.Subject, InStr(obj.Subject, "[XX#") + 8))

删除主题中的特定字符串

1 个答案: