are you getting an error? if so what is the error message?
And always better to copy/paste the code as described. It can be difficult to respond to attachments
'Email the results of the report generated
Set oEmail = oApp.CreateItem(olMailItem)
With oEmail
.Recipients.Add Me.ET_FSmail
.CC = [Form_PM_Schedule].ET_FMmail & ";
AjeeshCJ@et.ae;
PrakashBR@et.ae;
m.Afsal@et.ae;
NimalST@et.ae;
RajeshNS@et.ae;
NaseebNA@et.ae;
SivadasSN@et.ae"
If IsNull(Me.REG_EX) Then
.Subject = Me.Fleet & " - " & Me.Manufacturer & " - " & Me.Model & " - " & " Service (PM) Scheduled on " & Me.PM_BookDate
Else
.Subject = Me.Fleet & " - " & Me.Manufacturer & " - " & Me.Model & " - " & " Service (PM) Scheduled on " & Me.PM_BookDate & " ** " & Me.REG_EX & " **"
End If
If Me.WC = "3004" Then
.Body = "Dear Rizwan" & "," & Chr(10) & _
WishTime & Chr(10) & "Kindly find above said details and do needful arrangement" & Chr(10) & Me.USER_DETLS & Chr(10) & Chr(10) & "Best Regards" & Chr(10) & "Premadas Puthiyiruthy"
Else
.Body = "Dear " & " ," & Chr(10) & "Kindly find above said details please" & Chr(10) & Chr(10) & "Best Regards" & Chr(10) & "Premadas Puthiyiruthy"
End If
' strbody = "Hi there " & vbNewLine & vbNewLine & _
' "This is line 1" & vbNewLine & _
' "This is line 2" & vbNewLine & _
' .Attachments.Add fileName
.Display
'.Send
End With
Me.ET_MailDate = Now()
MsgBox "Email successfully created !", vbInformation, "EMAIL STATUS"
Else
MsgBox "NO NEED TO SENT MAIL"
End If
End Sub