我正在编码一个小的VBA,以在列表框中显示电子邮件的所有附件。
用户可以选择应从电子邮件中删除并存储在目标文件夹中的附件。
我还在电子邮件中添加了HTML文件,其中包含所有已删除文件的列表(包括指向目标文件夹的每个文件的链接。)>
我对图像有问题,因为它们可能是
我只想在列表框中显示那些作为文件附加到电子邮件的图像。
嵌入式邮件应被忽略。
Sub SaveAttachment() Dim myAttachments As Outlook.Attachments Dim olMailItem As Outlook.MailItem Dim lngAttachmentCount As Long Dim Attachment_Filename As String Select Case True Case TypeOf Application.ActiveWindow Is Outlook.Inspector Set olMailItem = Application.ActiveInspector.CurrentItem Case Else With Application.ActiveExplorer.Selection If .Count Then Set olMailItem = .Item(1) End With If olMailItem Is Nothing Then Exit Sub End Select Set myAttachments = olMailItem.Attachments If myAttachments.Count > 0 Then For lngAttachmentCount = myAttachments.Count To 1 Step -1 '------------------------------------------------------------------------- ' Add the attachment to the list of attachments (form) '------------------------------------------------------------------------- Attachment_Filename = myAttachments(lngAttachmentCount).FileName With UserForm1.lstAttachments .AddItem (Attachment_Filename) .List(lngAttachmentListPos, 1) = Attachment_Type_Text .List(lngAttachmentListPos, 2) = FormatSize(myAttachments(lngAttachmentCount).Size) & " KB" End With Next lngAttachmentCount End If End Sub
我只添加了代码的相关部分,所以希望我没有忘记任何内容。
此刻,我显示所有附件(还包括嵌入式图像)。
我如何确定附件是否嵌入?
我在这里找到了可能的解决方案:Distinguish visible and invisible attachments with Outlook VBA提供的源代码不起作用,似乎第2行和第3行中的两个URL不再存在。
我正在编码一个小的VBA,以在列表框中显示电子邮件的所有附件。用户可以选择应从电子邮件中删除并存储在目标文件夹中的附件。我还添加了一个...
我不确定这是否在所有情况下都有效,但是它在我的环境中有效。这意味着“正确测试”。