问在Access中发送电子邮件

EN

Private Sub createEmail(ByVal toEmailAddresses As String, _
                    ByVal ccEmailAddresses As String, _
                    ByVal att1 As String, _
                    ByVal att2 As String, _
                    ByVal signature As String, _
                    ByVal subject As String, _
                    ByVal displayIt As Boolean)
    On Error GoTo foundError
    Dim outItem As Outlook.MailItem
    Set outItem = Outlook.CreateItem(olMailItem)

    outItem.BodyFormat = olFormatHTML
    outItem.Recipients.Add toEmailAddresses
    outItem.cc = ccEmailAddresses
    outItem.subject = subject
    If att1 <> "" Then
        outItem.Attachments.Add (att1)
    End If
    If att2 <> "" Then
        outItem.Attachments.Add (att2)
    End If

    outItem.HTMLBody = signature

    outItem.Send
    'Note: if you wanted to create the email and check it first, use outItem.Save
    Exit Sub
foundError:
    MsgBox "Error in createEmail: " + CStr(Err) + ", " + Error(Err), vbOKOnly, "ERROR"
End Sub