send report by outlook

[amna77]

I have one DMR report. Basically when I click on the report button it sends the report to all people listed in there.
But one thing, the subject of the report comes to bcc line, insted of stubject line. I am using Microsoft outlook.
below is my code line, please help me.
Thanks

Private Sub Command80_Click()
DoCmd.SendObject acSendReport, "rptDMRFullLocationDaily", acFormatRTF, "CSkinner@eg.trendtechnologies.com;MKansfield@eg.trendtechnologies.com;ImaniT@eg.trendtechnologies.com;gmcardle@eg.trendtechnologies.com;RKothari@eg.trendtechnologies.com", "jsippy@eg.trendtechnologies.com;richw@eg.trendtechnologies.com", , "Daily DMR Location Report for " & DateAdd("d", IIf(Weekday(Date) = 2, -3, -1), Date), , False
End Sub

 

[Mudface]

It might be best to break down your code to more manageable statements and qualify each parameter. I know it's not necessary, but it would certainly be more readable to have something like this: -

Private Sub Command36_Click()
Const strObjName As String = "rptDMRFullLocationDaily"
Dim strRecipients As String
Dim strSubject As String
Dim strCopyTo As String

strRecipients = "CSkinner@eg.trendtechnologies.com;MKansfield@eg.trendtechnologies.com;"
strRecipients = strRecipients & "ImaniT@eg.trendtechnologies.com;gmcardle@eg.trendtechnologies.com;"
strRecipients = strRecipients & "RKothari@eg.trendtechnologies.com"
strCopyTo = "jsippy@eg.trendtechnologies.com;richw@eg.trendtechnologies.com"
strSubject = "Daily DMR Location Report for " & DateAdd("d", IIf(Weekday(Date) = 2, -3, -1), Date)

DoCmd.SendObject acSendReport, strObjName, acFormatRTF, to:=strRecipients, cc:=strCopyTo, _
subject:=strSubject, editmessage:=False

End Sub