正文提取 java_将Outlook正文提取到Excel VBA

这对你有用 . 我们基本上将电子邮件正文拆分为基于新行的数组 . 请注意，如果电子邮件正文中有空行，则会生成空白单元格 .

Public Sub SplitEmail() ' Ensure reference to Word and Excel Object model is set

Dim rpl As Outlook.MailItem

Dim itm As Object

Set itm = GetCurrentItem()

If Not itm Is Nothing Then

Set rpl = itm.Reply

rpl.BodyFormat = olFormatHTML

'rpl.Display

End If

Dim objDoc As Word.Document

Set objDoc = rpl.GetInspector.WordEditor

Dim txt As String

txt = objDoc.Content.text

Dim xlApp As Excel.Application

Set xlApp = CreateObject("Excel.application")

xlApp.Visible = True

Dim wb As Excel.Workbook

Set wb = xlApp.Workbooks.Add

Dim i As Long

For i = LBound(Split(txt, Chr(13)), 1) To UBound(Split(txt, Chr(13)), 1)

wb.Worksheets(1).Range("A" & i &#