Private Sub Command498_Click()
 On Error GoTo ErrorHandler
 Dim db As DAO.Database
 Set db = CurrentDb()
 Dim rs As DAO.Recordset
 Dim strSQL As String
 Dim Docs As String
 Dim MsgHtml As String
 Dim objbp As Object
 
 DoCmd.RunCommand acCmdSaveRecord
        
 strSQL = " SELECT Stips.Document, Stips.Notes " _
         & " FROM Stips " _
         & " WHERE Deal_ID =" & (Forms!Application!Deal_ID) & "And Received =" & False & ";"
         
 Set rs = db.OpenRecordset(strSQL)
 
 rs.MoveFirst

 Do While (Not rs.EOF)

 If Not IsNull(rs!Document) Then
 Docs = Docs & rs!Document & " " & rs!Notes & "; "
 End If

 rs.MoveNext
 Loop
 rs.Close

Docs = Left(Docs, Len(Docs) - 2)

 MsgHtml = "<div style=font-family: arial, helvetica, sans-serif; font-size: 11pt; color:#333333;>"
 MsgHtml = MsgHtml & "<p>Dear " & Forms!Application!First_name & ",</p>"
 MsgHtml = MsgHtml & "<p>The application for " & Forms!Application!Legal_B_Name & "/" & Forms!Application!DBA & " - MCA ID # " & Forms!Application!Deal_ID & " <em><strong> is missing the following documents required to fund their account:</strong></em></p>"
 MsgHtml = MsgHtml & "<ul>"
 MsgHtml = MsgHtml & "<li>" & Docs & "</li>"
 MsgHtml = MsgHtml & "</ul>"
 MsgHtml = MsgHtml & "<p>You can email missing documents by replying to this email or fax via our secure line to 1-(877)- 340-9184.</p>"
 MsgHtml = MsgHtml & "<p>We look forward to receiving the documents and funding your merchant. </p>"
 MsgHtml = MsgHtml & "<p>Best regards, " & Forms!Start!informWorker.Form!Name_worker & "</p>"
 
 'Logo

 MsgHtml = MsgHtml & "<p><span style=color: #14549b; line-height: 18pt;><strong>Email:&nbsp;"
 MsgHtml = MsgHtml & "</strong>" & Forms!Application!IDDBW.Column(12) & "</span>
"
 MsgHtml = MsgHtml & "<span style=color: #14549b; line-height: 18pt;><strong>Direct Phone:&nbsp;"
 MsgHtml = MsgHtml & "</strong><span style=color: #525252;>" & "</span>
"
 MsgHtml = MsgHtml & "<span style=color: #14549b; line-height: 18pt;><strong>Toll Free:&nbsp;"
 MsgHtml = MsgHtml & "</strong><span style=color: #525252;>" & Forms!Application!IDDBW.Column(7) & " ext </span>
"
 MsgHtml = MsgHtml & "<span style=color: #14549b; line-height: 18pt;><strong>Fax:&nbsp;"
 MsgHtml = MsgHtml & "</strong><span style=color: #525252;>" & Forms!Application!IDDBW.Column(14) & "</span>
"


Dim msg As Object
Dim config As String

Set msg = CreateObject("CDO.Message")
config = "http://schemas.microsoft.com/cdo/configuration/"

With msg
.To = Forms!Application!Email
.CC = "***@p******.com"
.FROM = "*********@*****.com"
.Subject = "PCF: Stips missing for funding - #" & Forms!Application!Deal_ID & " " & Forms!Application!Legal_B_Name & "/" & Forms!Application!DBA
 
.HTMLBody = MsgHtml
.HTMLBodyPart.Charset = "utf-8"
.TextBodyPart.Charset = "utf-8"
.BodyPart.Charset = "utf-8"
With .Configuration.Fields
.Item(config & "sendusing") = 2
.Item(config & "smtpserver") = "smtp.office365.com"
.Item(config & "smtpauthenticate") = 1
.Item(config & "smtpserverport") = 25
.Item(config & "sendusername") = "app@*******.com"
.Item(config & "sendpassword") = "*******"
.Item(config & "smtpusessl") = True
.Item(config & "smtpconnectiontimeout") = 60
.Update
End With
.Send
End With
Set msg = Nothing
MsgBox "The message sent to the recipient!", vbOKOnly, ""
    Exit Sub
ErrorHandler:
MsgBox (Forms!Application!Deal_ID) & ": The message is not sent to the recipient!", vbOKOnly, ""
End Sub