you can try:
for the export to PDF - the CCI.range can be changed depending on what range you want to be published as PDF. you can declare 3 range if you are going to save 3 ranges to PDF
card = "path and file name of your file" & ".pdf"
CCI.Range("A1:Y49").ExportAsFixedFormat Type:=xlTypePDF, Filename:=card, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
for the email:
Dim oLook as outlook.Application
Dim olEmail as outlook.MailItem
Set oLook = New outlook.Application
Set olEmail = oLook.CreateItem(olMailItem)
With olEmail
.To = "place the email here or cell range here of the email"
.CC = ""
.Body = ""
.Subject = ""
.Attachments.add "place the path where you saved your pdf here"
.Display 'or use .Send
End with
and make sure you tick the "Microsoft Outlook Object Library" in your References
Bookmarks