如何启动outlook

Question

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 LongPrivate Sub command_Click()
    ShellExecute Me.hwnd, "open", "mailto:你的EMAIL", vbNullString, vbNullString, 1
End Sub

Answer 1

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 LongPrivate Sub command_Click()
    ShellExecute Me.hwnd, "open", "mailto:你的EMAIL", vbNullString, vbNullString, 1
End Sub

Answer 2

Mailto要看你默认的电子邮件的工具，也许是FoxMail

Answer 3

启动outlook什么也不做了吗?---------------------------------------------------------------十年生死两茫茫。不思量，自难忘。千里孤坟，无处话凄凉。纵使相逢应不识。尘满面，鬓如霜。夜来幽梦忽还乡。小轩窗，正梳妆。相顾无言，惟有泪千行。料得年年肠断处。明月夜，短松岗。

Answer 4

Private Sub Command1_Click()
Shell "c:\Program Files\Outlook Express\msimn.exe"
End Sub------------
好人有好梦！