Fill in recipient of email in Outlook

Is there a way to add code to the existing code that will populate the "To" area in an Outlook email directly from source information located within the worksheet being sent?

Sub MailSheet()
    Dim shtName As String
    shtName = ActiveSheet.Name
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename("Request for Quote " & shtName, "Microsoft Excel File, *.xls")
    Application.DisplayAlerts = False
    Application.Dialogs(xlDialogSendMail).Show
    With ActiveWorkbook
        .ChangeFileAccess xlReadOnly
        Kill .FullName
        .Close False
    End With
     
    Application.DisplayAlerts = True
End Sub