请问知道附件名字能否找到邮件名字呢?

zerohunter

如题~如果能找到~我要怎么做呢?

aaaaabbbbb

对啊，如果能找到，你要做什么？

以下代码可以显示当前打开文档的附件名称

Sub ShowAttachmentName()
    Dim myolApp As New Outlook.Application
    Dim myinspector As Outlook.Inspector
    Dim myItem As Outlook.MailItem
    Dim myattachments As Outlook.Attachments
    Set myolApp = Outlook.Application
    Set myinspector = myolApp.ActiveInspector
    If Not TypeName(myinspector) = "Nothing" Then
        Set myItem = myinspector.CurrentItem.Forward
        Set myattachments = myItem.Attachments
        For i = 1 To myattachments.Count
              MsgBox myattachments.Item(i).FileName
        Next
       
    Else
        MsgBox "There is no active inspector."
    End If
    Set myinspector = Nothing
    Set myolApp = Nothing
End Sub

[此贴子已经被作者于2007-6-8 5:54:00编辑过]

zerohunter

你理解错了~~我有个批量保存附件的宏~然后我执行

但是保存的附件中有代特殊符号的~不知道附件是什么意思

所以我想要哪我已保存的附件的名称`~去找到我相对应的邮件名称

应该怎么做呢?????

aaaaabbbbb

看这个贴吧。

http://club.excelhome.net/viewthread.php?tid=245039&px=0