How to attach a PDF-Report to existing Outlook Template (1 Viewer)

Private Sub Command18_Click()
    
    Dim oApp As Outlook.Application
    Dim oMsg As Outlook.MailItem
    Dim oAttachment As Outlook.attachment
    
 
    Set oApp = New Outlook.Application
    Set oMsg = oApp.CreateItemFromTemplate("*\\filepath*\comienzo_campana.oft")
    DoCmd.OutputTo acOutputReport, "email-campanas-lista", acFormatPDF
    
    If Not oMsg Is Nothing Then
        oMsg.Display
        Set oMsg = Nothing
    Else
        MsgBox "Template Not Found. Contact I.T team"
    End If
End Sub

    If Not oMsg Is Nothing Then
        [COLOR="Blue"]oMsg.Attachments.Add "Path:\To\Document", olByValue[/COLOR]
        oMsg.Display
    Else

Dim oApp As Outlook.Application
Dim oMsg As Outlook.MailItem
Dim oAttachment As Outlook.attachment
Dim strPath As String
   
   strPath = "C:"""\reportdoc.PDF"
   Set oApp = New Outlook.Application

   ''Get template for email
   Set oMsg = oApp.CreateItemFromTemplate("\C:"""\email_template.oft")

'' create report in PDF format and save it
   DoCmd.OutputTo acOutputReport, "reportdoc", acFormatPDF, strPath, True
    
   
   With oMsg
''attach report to email
   .Attachments.Add "C:"""\reportdoc.PDF"

    End With
   If Not oMsg Is Nothing Then
        oMsg.Display
        Set oMsg = Nothing
    Else
       MsgBox "Template Not Found. Contact I.T team"
    End If
End Sub