change this portion to:
'=======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 sBCC 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
sBCC= sBCC & v(i) & ";"
End If
Next
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
If Len(sBCC) <> 0 Then
sBCC = Left$(sBCC, Len(sBCC)-1)
End If
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