下記のコードにおいてエラーがでますなぜですか

どこでどのようなエラーが出るのか示さないと、回答は得られないと思います。以下をよく読んで不足している情報を投稿してください。

• Microsoft Q&A で質問する | Microsoft Learn
• Microsoft Q&A で質の高い質問を書く方法 | Microsoft Learn

主観ではなく客観的情報、つまりあなたが「こうなった」と考えていることではなく、「こうなった」と考える根拠になっている事実＝目に見える、表示されている情報を示してください。

必要に応じてスクリーンショットを投稿してください。

• Microsoft Q&A コンテンツに添付ファイルを追加する | Microsoft Learn
• Snipping Tool を使ってスクリーン ショットをキャプチャする (microsoft.com)

Sub sendemail()

Dim olapp As New Outlook.Application

Dim olmail As Outlook.MailItem

Dim ws As Worksheet

Dim i As Long

Dim savepath As String

For i = 1 To 38

Sheets("メイン").Range("a1") = i

Set olmail = olapp.CreateItem(olMailItem)

Set ws = Worksheets("メイン")

savepath = ThisWorkbook.Path & "\test.pdf"

Worksheets("TF報告書").ExportAsFixedFormat Type:=xlTypePDF, Filename:=savepath

olmail.To = ws.Range("b2").Value

olmail.CC = ws.Range("b3").Value

olmail.BCC =

olmail.Subject = ws.Range("b4")

olmail.Body = Replace(ws.Range("b5").Value, vbLf, vbCrLf)

olmail.Attachments.Add savepath

'olmail.Display

olmail.Send

Next i

MsgBox "メール送信完了です。"

olapp.Quit

Set olmail = Nothing

Set olapp = Nothing

End

End Sub

上記の　olmail.send　の部分が黄色表示されます。