列出附件的文件名

Question

在本次考試中，我將獲取草稿數據中電子郵件的「附件」的編號。

有沒有什麼辦法讓這個文件的名稱在msgbox或combobox或任何東西？

Private Sub CommandButton2_Click() 

Dim a As Attachments 
Dim myitem As Folder 
Dim myitem1 As MailItem 

Set myitem = Session.GetDefaultFolder(olFolderDrafts) 

Dim i As Integer 

For i = 1 To myitem.Items.Count 

If myitem.Items(i) = test1 Then 

Set myitem1 = myitem.Items(i) 

Set a = myitem1.Attachments 

MsgBox a.Count 

End If 
Next 

End Sub 

Answer 1

Private Sub CommandButton2_Click() 

Dim a As Attachments 
Dim myitem As Folder 
Dim myitem1 As MailItem 
Dim j As Long 
Dim i As Integer 

Set myitem = Session.GetDefaultFolder(olFolderDrafts) 

For i = 1 To myitem.Items.Count 
    If myitem.Items(i) = test1 Then 
    Set myitem1 = myitem.Items(i) 
    Set a = myitem1.Attachments 

    MsgBox a.Count 

    ' added this code 
    For j = 1 To myitem1.Attachments.Count 
     MsgBox myitem1.Attachments.Item(i).DisplayName ' or .Filename 
    Next j 

    End If 
Next i 
End Sub