怎么用VBA命令将主题中的某个字符进行替换

zhuweimin1983b

各位老师好，我是用EXCEL VBA来调用OUTLOOK，因为每次发相同的邮件比较多，只是把几个字符更改下就可以了，所以我在邮箱中做了个模板，邮件在目录222下面，现在跑脚本的时候可以找到工单申请这个邮件，那么我将主题中字符“工单”改为“领导”的命令是什么呢？试了几个都无效，盼指教。（邮件正文也有几个字符会更改，一直没找到命令）

Sub rr()
    Dim myOlApp As Object
    Dim myNameSpace As Object
    Dim myFolder As Object
    Dim myItem As Object
    Dim a As Variant

  '如果outlook已经打开，直接取outlook实例，如果没有打开，则创建一个outlook实例
  '（我不喜欢多打开一个outlook窗口）

   On Error Resume Next
    Set myOlApp = GetObject(, "Outlook.Application")
    If Err.Number = 429 Then
        Set myOlApp = CreateObject("Outlook.Application")
    End If
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
   
'olFolderInbox是outlook的一个内置对象模型，在后期绑定对象库的时候不能被识别，因此不能常量“olFolderInbox”表示
    '要用值来表示，olFolderInbox的值为6

    Set myFolder = myNameSpace.GetDefaultFolder(6)       '这个目录就是收件箱的目录
    For Each fldFolder In myFolder.Folders
    If fldFolder.Name = "222" Then '找到222这个文件夹
        For Each objitem In fldFolder.Items
         If objitem.Subject = "工单申请" Then
         Subject.Replace "工单", "领导"
                     
    objitem.Display
   
    End If
    Next
    End If

Next
  
End Sub

dsd999

[code=vb]Subject = Replace(Subject, "工单", "领导")[/code]

zhuweimin1983b

01.Subject = Replace(Subject, "工单", "领导")
另外我正文中也有这种字符的替换，我用了命令body=replace(body,"工单","领导")，但是发现正文的格式全被改了，有什么命令能保持正文的原来格式吗？

zhuweimin1983b

谢谢，果然可以，但还有个问题要咨询下。
我这个邮件是模板邮件，放在222目录下面，是编写好未发送的邮件，如果直接发送，那么这份邮件就没了。所以每次发邮件时，都是对“工单申请”进行转发，这个转发的命令是什么？而且我更改的字符都是转发时编辑的，邮件转发后要求原模板中的邮件还是不变的。