从 Outlook 获取附件并在格式化后放置在新电子邮件的正文中

Question

这基本上就是我想要做的......

1. 按主题名称搜索特定电子邮件

2. 获取该电子邮件的附件（附件是原始数据的 excel 表）

3. 从 Excel 附件上的另一个模块运行格式化子例程

4. 将新格式的附件放在新电子邮件的正文中

5. 将新邮件发送给客户

我需要关于步骤 3 和 4 的帮助。

Option Explicit
Sub sendEmail()

Dim olApp As Outlook.Application
Dim olEmail As Outlook.MailItem
Dim olNs As Namespace
Dim Fldr As MAPIFolder
Dim olMi As MailItem
Dim olAtt As Attachment
Dim MyPath As String
Dim i As Long

Set olApp = New Outlook.Application
Set olEmail = olApp.CreateItem(olMailItem)
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
MyPath = "C:\Users\(Me)\Desktop\"

For i = Fldr.Items.count To 1 Step -1
    Set olMi = Fldr.Items(i)
    If InStr(1, olMi.Subject, "[The email I'm looking for by subject]") > 0 Then
         For Each olAtt In olMi.Attachments
                olAtt.Module2.Format   '<--- this is where i try to do step 3
                olAtt.SaveAsFile MyPath & "NewSheet" & ".xls"             
        With olEmail
            .BodyFormat = olFormatHTML
            .Body = olAtt.Range   '<----this is where i try to do step 4
            .To = "someone@something.com"
            .Subject = "Tester"
            .send
        End With

        Next olAtt
        olMi.Save
    End If
Next i

Set olAtt = Nothing
Set olMi = Nothing
Set Fldr = Nothing
Set MoveToFldr = Nothing
Set olNs = Nothing
Set olApp = Nothing

End Sub

Answer 1

见Getting Started with VBA in Outlook 2010。

我注意到以下代码：

For i = Fldr.Items.count To 1 Step -1
 Set olMi = Fldr.Items(i)
  If InStr(1, olMi.Subject, "[The email I'm looking for by subject]") > 0 Then

不要遍历文件夹中的所有项目。相反，您需要使用 Items 类的 Find/FindNext 或 Restrict 方法来获取与您的条件相对应的项目。您可以在 MSDN 中的以下文章中阅读有关它们的更多信息。此外，您可能会发现以下文章很有帮助：

• How To: Use Find and FindNext methods to retrieve Outlook mail items from a folder (C#, VB.NET)
• How To: Use Restrict method to retrieve Outlook mail items from a folder

.Body = olAtt.Range '

Outlook 对象模型提供了三种处理项目主体的主要方式：

1. Body.
2. HTMLBody。
3. Word 编辑器。 Inspector 类的WordEditor 属性返回代表消息正文的Word 文档实例。因此，您可以使用 Word 对象模型对消息正文进行任何您需要的操作。

更多信息请参见Chapter 17: Working with Item Bodies。