Convert RPT to PDF and send it in email

[namla]

Now i can send the email but how can i send the report:
----------------------------
Dim olAppt As Outlook.AppointmentItem
Set olAppt = olApp.CreateItem(olAppointmentItem)
----------------------------
...I got an error in this line:
olAppt .Attachments = rptATMCardAppli
(the error msg is: Run Time Error '-2147352567(80020009) Property is read only)