【vba控制outlook】批量读取收件箱内所有列表-yihui
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


【vba控制outlook】批量读取收件箱内所有列表

发表时间:2018/3/27 9:22:26 评论(0) 浏览(11585)  评论 | 加入收藏 | 复制
   
摘 要:vba,outlook
正 文:

      近日有网友咨询批量读取收件箱内所有列表的代码,特录制如下:

点击图片查看大图


相关代码如下:

Sub ListMailSubject()
'列出所有账户的收件箱中的邮件标题
  Set d = CreateObject("Scripting.Dictionary")
    On Error Resume Next
    Dim olApp As Outlook.Application
    Dim nmsName As Namespace
    Dim fldFolder As MAPIFolder
    Dim subFolder As MAPIFolder
    Dim objitem As Object
    Dim i As Integer
    


    Set olApp = Outlook.Application
    Set nmsName = olApp.GetNamespace("MAPI")
    For Each fldFolder In nmsName.Folders
            For Each subFolder In fldFolder.Folders
                If (subFolder.Name = "收件箱") Then
                    For Each objitem In subFolder.Items
                        If objitem.Class = olMail Then                                                 
                         Cells(2, 1).Offset(i, 1).Value = objitem.SenderName
                         Cells(2, 1).Offset(i, 2).Value = objitem.Subject
                         Cells(2, 1).Offset(i, 3).Value = objitem.SentOn
                            i = i + 1
                           
                        End If
                    Next
                End If
            Next
     
Next
end sub


备   注:

需要引用一下Microsoft outlook的选项,如下图:


Access软件网交流QQ群(群号:198465573)
 
 相关文章
【Access示例】通过outlookup发送邮件(可以附带附件)  【缪炜  2015/2/20】
【Access示例】向OutLook中添加联系人  【缪炜  2015/4/10】
【Access示例】向OutLook中添加日历条目  【缪炜  2015/4/19】
用 Access+Outlook 来采集信息  【缪炜  2016/4/2】
选项组treeView 动态添加图片仿outlook样式菜单  【yuhong  2016/9/9】
outlook2010怎么设置  【杨雪  2017/5/12】
【Access示例】批量读取OutLook里的附件并保存到指定文件...  【缪炜  2018/3/25】
常见问答
技术分类
相关资源
文章搜索
关于作者

yihui

文章分类

文章存档

友情链接