'=======Code=========
Dim olApp As Object
Dim olMail As Object
Dim strPath As String
Dim strLocation As String
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
Dim strsubject As String
Dim sMsgBody As String
Dim a As String


Dim i As Integer
Dim v As Variant
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
'Replace yourTable with the name of the table that has Undergoing field"
Set rs = db.OpenRecordset( _
        "select [email id] from yourTable where Undergoing = '" & Me![MS No] & "'", dbOpenSnapshot, dbReadOnly)
                
'm = Me![email id]
'b = Me![Status Msg]


a = Me![MS No]
'MsgBox a
T = Me![Title]
'MsgBox T
'SB = Me![Subandbranch]
With olMail


    If Not (rs.BOF And rs.EOF) Then
        rs.MoveFirst
    End If
    Do Until rs.EOF
        v = Split(rs![email id], ",")
        For i = 0 To UBound(v)
            v(i) = Trim$(v(i))
            If Len(v(i)) Then
                .Recipients.Add v(i)
            End If
        Next
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    strsubject = "Received your manuscript for publication, www.ijpbs.net"
    sMsgBody = "Respected author,"
    sMsgBody = sMsgBody & "<br><br>"
    sMsgBody = sMsgBody & "Ref manuscript number MS: " & a & ""
    sMsgBody = sMsgBody & "<br><br>"
    sMsgBody = sMsgBody & "We have received your research/review article “" & T & "” and the copy right form and would be categorized under " & sb & ". We have allotted manuscript number MS " & a & " for your article. For further correspondence, kindly use this manuscript number only. We would be sending your manuscript to our reviewer (Reviewer 1) for evaluation. We will send the acceptance decision within 7-10 working days"
    sMsgBody = sMsgBody & "<br><br>"
    .To = m
    .Subject = (strsubject)
    .HTMLBody = (sMsgBody)
    '.Attachments.Add "\\Dell-lptp\d\IJPBS process\Vol - 5, Issue 1\Downloads\Down1\link.txt"
    ' strLocation = "\\Dell-lptp\d\IJPBS process\Vol - 5, Issue 1\Downloads\Down1\MS " & a & " RAW.docx"
    '.Attachments.Add (strLocation)
    
    
    .Display
End With