获取附件名称

Function GetAttachmentName(doc As NotesDocument) As String
 '获得文件的附件名
 Dim filesize As long
 Dim attachedFile As NotesEmbeddedObject
 Dim tempStr As String,filename As String
 Dim FileNames As Variant
 Dim i As Integer
 FileNames=Evaluate("@AttachmentNames", doc)
 For i = LBound(FileNames) To UBound(FileNames)
  If FileNames(i)<>"" Then
   filename=FileNames(i)
   Set attachedFile=doc.getAttachment(filename)
  ' filesize=attachedFile.FileSize '附件大小
   'filesize=Format(filesize/1024,"0.0") '转换KB大小
  End If
 Next
 GetAttachmentName=filename
End Function