急吖~~~~最简单的调用outlook发邮件的代码

Question

急吖~~~~求最简单的调用outlook发邮件的代码，谢谢

Answer 1

用Jmail吧，很简单的哦，呵呵！

Answer 2

'引用Outlook
Public Function sendMail(strTo As String, _
                        strSubject As String, _
                        strBody As String, _
                        Optional strFileName As String _
                        ) As Boolean
    Dim oOutlookApp As New Outlook.Application
    Dim oItemMail As Outlook.MailItem
    Set oItemMail = oOutlookApp.CreateItem(olMailItem)
    On Error GoTo errHandle
    With oItemMail
        
        .To = strTo
        .Subject = strSubject
        .Body = strBody
        If strFileName <> "" Then
            .Attachments.Add (strFileName)
        End If
        .Importance = olImportanceHigh
        .Sensitivity = olPersonal
        .Display
    End With
    sendMail = True
    Exit Function
errHandle:
    sendMail = False
End Function

Answer 3

如果是通过Exchange Server发出去的话呢？

Answer 4

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
Private Sub Label1_Click()
    Call ShellExecute(frmAbout.hwnd, "open", "mailto:[email protected]", "", App.Path, 1)
End Sub

Answer 5

同意楼上如果你的系统默认发送邮件的程序是outlook的话，就会被调用。

Answer 6

Call ShellExecute？Call是什么意思呢？

Answer 7

如果我直接用send 不用display的话，如果发邮件出错怎样获取出错信息？？