Vba 编辑自动转发的电子邮件以删除开头的行

规则在特定项目的电子邮件开头添加两行并转发给我

我需要删除这两行

我的方法- 我将邮件放在一个特定的文件夹中（假设该文件夹为“试用版”）。
使用下面的代码，我打开特定文件夹中的邮件，并使其进入编辑模式

我的算法的进一步步骤如下-

删除正文中的前两行（不考虑内容）

将邮件保存到其他文件夹中

子更改\u Body\u和\u Save（）
Dim olApp作为Outlook.Application
Dim-olNs作为名称空间
将Fldr设置为MAPI文件夹
将子文件夹Dim设置为MAPI文件夹
Dim olkInsp作为Outlook.Inspector
以电子邮件作为变体
作为整数的Dim i
Set olApp=newoutlook.Application
Set olNs=olApp.GetNamespace（“MAPI”）
设置Fldr=olNs.GetDefaultFolder（olFolderInbox）
Set subfldr=Fldr.Folders（“试用版”）
MsgBox（子LDR）
i=1
对于子文件夹项中的每个olMail
olMail.Display
ActiveInspector.CommandBars.ExecuteMso“编辑消息”
*要在此处添加的代码*
下一封邮件
端接头
<代码>代码>选项“显式”考虑此强制
“工具|选项|编辑器”选项卡
'需要变量声明
子更改\u正文\u和\u保存（）
'将olApp设置为Outlook.Application
Dim-olNs作为名称空间
'将Fldr设置为MAPI文件夹
Dim Fldr As文件夹
'将子文件夹作为MAPI文件夹
Dim subfldr As文件夹
Dim targetFldr As文件夹
“Dim olkInsp作为Outlook.Inspector
作为对象的Dim-olObj
“将电子邮件作为变体
Dim olMitm作为MailItem的新名称，olMail在Outlook中的含义
'作为整数的Dim i
'Set olApp=New Outlook.Application
'Set olNs=olApp.GetNamespace（“MAPI”）
设置olNs=GetNamespace（“MAPI”）
设置Fldr=olNs.GetDefaultFolder（olFolderInbox）
Set subfldr=Fldr.folders（“试用版”）
'MsgBox（子LDR）
调试.打印子文件夹
设置targetFldr=Fldr.folders（“TrialEditedMail”）
调试。打印targetFldr
Dim msgPrefix作为字符串
将msgPrefixLen调暗至与长度相同
“i=1
msgPrefix=“要替换的文本”
msgPrefixLen=Len（msgPrefix）
'对于子文件夹项中的每个olMail
'olMail.Display
'ActiveInspector.CommandBars.ExecuteMso“EditMessage”
“*要在此处添加的代码*
“下一封邮件
对于子文件夹项中的每个olObj
如果olObj.Class=olMail，则
设置olMitm=olObj
如果左侧（olMitm.Body，msgPrefixLen）=msgPrefix，则
嗅觉障碍
如果仪表（.Body，msgPrefix），则
如果.BodyFormat=olFormatHTML，则
.HTMLBody=替换（.HTMLBody，msgPrefix，”）
其他的
.Body=替换（.Body，msgPrefix，“”）
如果结束
.移动目标FLDR
如果结束
以
如果结束
如果结束
下一个
端接头