Sub Send(Subject As String, Body As String, SendTo As String)
Dim OlApp As New Outlook.Application
Dim mail As Outlook.MailItem
    
    Set mail = myOlApp.CreateItem(olMailItem)
    mail.To = SendTo
    mail.Subject = Subject
    mail.HTMLBody = Body
    mail.Send
End Sub

Sub SendFromCell()
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Sheet1")
Send sh.Cells(2, 1), sh.Cells(2, 2), sh.Cells(2, 3) & "@DoMainName"
End Sub