关于调用OUTLOOK的问题

Question

如何程序实现调用OUTLOOK后，插入文件附件？要求全部编程实现！

Answer 1

Private Sub Command1_Click() 
    NewMailWithAttachment 
End Sub  Sub NewMailWithAttachment() 
         ' The Outlook object library needs to be referenced 
         Dim ol As Outlook.Application 
         Dim NewMessage As Object 
         Set ol = New Outlook.Application 
         ' Create a new MailItem 
         Set NewMessage = ol.CreateItem(olMailItem) 
         ' Embed a file into the new message 
         NewMessage.Attachments.Add "c:\autoexec.bat", olByValue 
         ' Display the message 
         NewMessage.Display 
End Sub

Answer 2

http://topic.csdn.net/t/20011220/22/433573.html