VB 中用代码打开 Outlook 发Mail

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

Const SW_SHOWNORMAL = 1

Private Sub Form_Load()

'Send an E-Mail to the KPD-Team

ShellExecute Me.hwnd, vbNullString, "mailto:ygyuan@elong.com", VBNullString, "C:/", SW_SHOWNORMAL

End Sub

或

Call ShellExecute(Me.hwnd,"open",_ "mailto:omeName@Somewhere.com?subject=MySubject&Attach = ""c:/Mvp_form.doc"" ",_ vbNullString,vbNullString,SW_SHOW)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!