Function Send Email via Outlook from Access

Function Send email via Outlook Put this function in the form       Sub SendEmail() Dim oOutlook As Outlook.Application Dim oEmailItem As MailItem ‘ prevent 429 error, if outlook not open On Error Resume Next Err.Clear Set oOutlook = GetObject(, “Outlook.application”) If Err.number <> 0 Then Set oOutlook = New Outlook.Application End If Set oEmailItem = oOutlook.CreateItem(olMailItem) With oEmailItem .To = [CustomerName] .Display End With Set oEmailItem = Nothing Set oOutlook = nothign End Sub Call function under the click button to send email. Private Sub Command21_Click()      Call…

Read More