title: How to CC the sender?
body: <p>I have code to send email. I'm struggling to CC the sender? If I mail I should get the CC, if my colleague mails he should get the CC.</p>
  
  <p>Our usernames aren't firstname.lastname but our email addresses are.</p>
  
  <pre><code>Sub SendPDF()
  
  Dim strPath As String, strFName As String
  Dim OutApp As Object, OutMail As Object
  
  Title = Format(Now(), "dd/mm/yyyy") &amp; " - " &amp; ActiveSheet.Name &amp; ""
  
  strPath = Environ$("temp") &amp; "\" 'Or any other path, but include trailing "\"
  
  strFName = ActiveWorkbook.Name
  strFName = Format(Now(), "yyyymmdd") &amp; " - " &amp; ActiveSheet.Name &amp; ".pdf"
  
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      strPath &amp; strFName, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)
  
  On Error Resume Next
  With OutMail
      .To = "firstname.surname@email.com"
      .CC = ""
      .BCC = ""
      .Subject = Title
      .body = "Please see attached"
      .Attachments.Add strPath &amp; strFName
      '.Display
      .Send
  End With
  
  Kill strPath &amp; strFName
  On Error GoTo 0
  
  Set OutMail = Nothing
  Set OutApp = Nothing
  End Sub
  </code></pre>