找回密码
 加入
搜索
查看: 6296|回复: 11

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

[复制链接]
发表于 2014-9-12 17:57:17 | 显示全部楼层 |阅读模式
本帖最后由 天天笑 于 2014-10-14 17:01 编辑

大神们,
因为工作需要,每天都会收到一封很长的邮件,里面可能会更改部分内容或者没有更改到,所以想将今天收到的这一份邮件提取到Excel里面再和昨天收到邮件的进行对比。
 楼主| 发表于 2014-9-25 13:33:56 | 显示全部楼层
回复 1# 天天笑


    自己再来顶一个
发表于 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兄,我不知道从何下手啊,你这一段代码我应该放在哪里呢?
不好意思哈~~
发表于 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 | 显示全部楼层
测试可以用的。
再请问一下,如果要提取今日内特定主题的邮件的内容,该如何做呢?
发表于 2014-9-26 15:15:13 | 显示全部楼层
把items(1)里面的1换成主题名试下,比如items("测试")这样
 楼主| 发表于 2014-9-26 15:52:04 | 显示全部楼层
感谢你,测试Pass
发表于 2014-10-7 09:34:53 | 显示全部楼层
回复 9# 天天笑

問題解決 請將標題 標註  已解決
发表于 2018-9-12 04:59:03 | 显示全部楼层
一直想找这个,真是高人啊!
发表于 2019-7-16 21:45:08 | 显示全部楼层
能人,胜任各类高难度 需求
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 14:07 , Processed in 0.081074 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表