Question

我想以为我是VBA的新手。我在下面的微软论坛上发现了以下宏，该宏几乎可以完成我想做的事情。基本上，我想根据电子表格中的特定单元格是否小于0，将两个不同范围的单元格（A1：A20）和C1：F20）并排发送给特定的一组个人。使用不同的if语句，但我继续收到错误消息。任何帮助或指导都将不胜感激。

Sub Send_Range()

  If (F187 < 0) Then


   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("A1:A20").Select


   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True

   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope

      .Introduction = "xxxxxxxxxx"
      .Item.To = "James@gmail.com"
      .Item.CC = "Alison@gmail.com"
      .Item.Subject = "Subject"
      .Item.Send







   End With

End If


End Sub

Answer 1

查看此内容，它显示了如何将范围复制到电子邮件中。可能就是您需要的：Pasting an Excel range into an email as a picture

VBA代码可根据条件发送电子邮件

1 个答案: