论坛 › 已解决问题区 › excel如何读取outlook正文的内容[已解决]

天天笑 发表于 2014-9-12 17:57:17

excel如何读取outlook正文的内容[已解决]

本帖最后由 天天笑 于 2014-10-14 17:01 编辑

大神们，
因为工作需要，每天都会收到一封很长的邮件，里面可能会更改部分内容或者没有更改到，所以想将今天收到的这一份邮件提取到Excel里面再和昨天收到邮件的进行对比。

天天笑 发表于 2014-9-25 13:33:56

回复 1# 天天笑


    自己再来顶一个

kevinch 发表于 2014-9-25 14:24:56

Sub test()
Dim Mail$
Mail = "你的邮箱名"
On Error Resume Next
With GetObject("", "outlook.application")
    With .GetNameSpace("MAPI").Folders(Mail)
      If .Folders("收件箱").items.Count > 0 Then
            Cells(Rows.Count, 1).End(3).Offset(1).Value = .Folders("收件箱").items(1).body
      End If
    End With
End With
End Sub这样试下

天天笑 发表于 2014-9-26 09:54:07

Office的问题，看到Kevinch兄出现就淡定了~~~~
再请问一下Kevinch兄，我不知道从何下手啊，你这一段代码我应该放在哪里呢？
不好意思哈~~

kevinch 发表于 2014-9-26 10:48:15

在excel里按alt+f11，然后再alt+i+m，然后把代码粘贴到出现的窗口里，如果outlook已经打开，执行过后在a列会看到提取到第一个邮件的内容

天天笑 发表于 2014-9-26 13:38:24

测试可以用。
再请问一下，如果要提取今日内特定主题的邮件的内容，应该怎样做呢？

天天笑 发表于 2014-9-26 13:46:12

测试可以用的。
再请问一下，如果要提取今日内特定主题的邮件的内容，该如何做呢？

kevinch 发表于 2014-9-26 15:15:13

把items(1)里面的1换成主题名试下，比如items("测试")这样

天天笑 发表于 2014-9-26 15:52:04

感谢你，测试Pass

kk_lee69 发表于 2014-10-7 09:34:53

回复 9# 天天笑

問題解決 請將標題 標註已解決

zzghty 发表于 2018-9-12 04:59:03

一直想找这个，真是高人啊！

zss66783 发表于 2019-7-16 21:45:08

能人，胜任各类高难度 需求:face (1):

查看完整版本: excel如何读取outlook正文的内容[已解决]