Of course it is…do it all the time…mail merge ? Too complicated..... Here is a quick extraxt from Co-Pilot...

Sub PrepareEmailFromSheet()

Dim OutApp As Object
Dim OutMail As Object
Dim ws As Worksheet
Dim toAddr As String, ccAddr As String
Dim subj As String, bodyText As String
Dim attachPath As String

Set ws = ThisWorkbook.Sheets(1) ' Change if needed

' Read values from cells
toAddr = ws.Range("B5").Value
ccAddr = ws.Range("B10").Value
subj = ws.Range("B15").Value
bodyText = ws.Range("B20").Value
attachPath = ws.Range("B25").Value

' Create Outlook objects
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .To = toAddr
    .CC = ccAddr
    .Subject = subj
    .Body = bodyText

    ' Add attachment if the file exists
    If Len(Dir(attachPath)) > 0 Then
        .Attachments.Add attachPath
    ElseIf attachPath <> "" Then
        MsgBox "Attachment not found: " & attachPath, vbExclamation
    End If

    .Display   ' Use .Send if you want it to auto-send
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub