摘要： Sub Send(Subject As String, Body As String, SendTo As String)Dim OlApp As New Outlook.ApplicationDim mail As Outlook.MailItem Set mail = myOlApp.CreateItem(olMailItem) mail.To = SendTo mail.Subject = Subject mail.HTMLBody = Body mail.SendEnd SubSub SendFromCell()Dim sh As Workshee... 阅读全文