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
![](https://img2024.cnblogs.com/blog/35695/202502/35695-20250207193659673-708765730.jpg)