adding current user to CC line of outlook email

[billybeer]

I have a Access report with a command button that sends an email (with the report as PDF attachment) to a Outlook user. I want to add the current user to automatically be CC'ed on the email. Currently what I have is:

 DoCmd.SendObject acSendReport, , acFormatPDF, "billybeer@youremail.com", , , "Daily Log", "Daily Log attached", True

This opens Outlook with the attachment and the recipient as I want it.

What do I add to get the email of current user added to the CC line.

[ranman256]

sPersonToCC=Environ("Username") & "@youremail.com"

DoCmd.SendObject acSendReport, , acFormatPDF, "billybeer@youremail.com",sPersonToCC , , "Daily Log", "Daily Log attached", True

[billybeer]

Thank you - works as I want.