我一直在 VBA 中使用以下代码来获取邮件内容,但我无法获取所有详细信息。
您能帮我获取所有字段(邮件内容等)吗?
With OutlookMAPIFolder.Items(i)
Range("A" & Trim(Str(RowValue))).Select
ActiveCell.FormulaR1C1 = RowValue - 1
Range("B" & Trim(Str(RowValue))).Select
ActiveCell.FormulaR1C1 = Format(.ReceivedTime, "DD/MM/YYYY HH:MM:SS")
Range("C" & Trim(Str(RowValue))).Select
ActiveCell.FormulaR1C1 = .Subject
Range("D" & Trim(Str(RowValue))).Select
ActiveCell.FormulaR1C1 = .Sender
End With