Dim MyOutlook As New Outlook.Application, MyMessage As Outlook.MailItem
Set MyOutlook = CreateObject("Outlook.Application")
Set MyMessage = MyOutlook.CreateItem(0)
With MyMessage
.Attachments.Add ListBox1.List(ListBox1.ListIndex, 1)
.Display
End With