不好意思，刚来就。。。。

Question

something like that
    Set m_objOL = New Outlook.Application
    Dim objItem As Object
    Set objItem = m_objOL.CreateItem(olMailItem)
    objItem.SenderName=....
    objItem.Subject=....
    ....

Answer 1

不是outlook 是 outlook Express

Answer 2

用shellExecute 就能实现。
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 
ShellExecute Me.hwnd, "open", "mailto:" & email &"?subject=" & zt, "", App.Path, True