Excel VBA 提取outlook指定子文件夹中全部文件名

Itachi

想在Excel中，通过VBA提取Outlook中，“私人邮件”账号下， “收件箱” 中的 “重要邮件” 文件夹中的全部邮件的：邮件主题、发件人、邮件接收时间

请问代码应该怎么写？谢谢各位！

dsd999

先在论坛里搜搜相关的代码。

younges

Private Sub vsoCommbandSendDraftMail_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)

'出现错误时下一句代码继续运行
    On Error Resume Next

    Dim fld_Draft   As Outlook.MAPIFolder
    Dim objItems    As Outlook.Items
    Dim myItem      As Object
    Dim myItems() As Object
    Dim iIndex As Integer
    iIndex = 0
               
    Set fld_Draft = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts)
    Set objItems = fld_Draft.Items
    ReDim myItems(objItems.count - 1)
   
   Set myItem = objItems.GetFirst
    Do While TypeName(myItem) <> "Nothing"
        Debug.Print myItem.Subject
        Set myItems(iIndex) = myItem
        iIndex = iIndex + 1
        Set myItem = objItems.GetNext
    Loop
   
    For n = 0 To UBound(myItems)
        If (myItems(n).Class = 43) Then
           myItems(n).Send
        End If
    Next
   
    MsgBox "send complete!"

End Sub



发送所有草稿箱的邮件，红色字体部分可以参考。论坛找的，谢谢论坛的老大前辈们。我也需要这功能，正在研究

jiangli1984

同求，找论坛半天没找到相关的帖子，求回复