Copy from Excel to Outlook as HTML

Hi -

    With outlookMail
        .to="theemailaddress"
        .htmlBody = htmlBody
        .attachments.Add ThisWorkbook.Path & "\" & oneSheet.Name & ".xlsx"
        .Display
    End With

Regards,
Event

I'm getting a run time error 9

Subscript out of range

Sheets(oneSheet.Name).Copy in this line.

Cant really figure out whats wrong

Originally Posted by event21

Hi -

    With outlookMail
        .to="theemailaddress"
        .htmlBody = htmlBody
        .attachments.Add ThisWorkbook.Path & "\" & oneSheet.Name & ".xlsx"
        .Display
    End With

Regards,
Event

This code will work if the email address is same for all the sheets. But in my case I need to send the mails to different addresses