Type Info:
MimeType As String
Dim TU As TransUnit Dim MimeType As String Set TU = Application.ActiveTransUnit If (TU.IsBinUnit) Then MimeType = TU.MimeType End If