Question

我想做的基本上是单击一个按钮，它弹出Excel MailEnvelope来发送电子邮件，然后您可以将其发送到相关的按钮电子邮件地址。”

但是，最终用户需要修改其中一个电子邮件地址。

所以我想在下拉菜单中选择所说的电子邮件，然后将其输入到VBA代码中。

我对VBA基本上一无所知，我找不到在网上搜索的方法。

我认为我需要某种方式来设置变量以读取单元格（下拉单元格），然后将其输入到MailEnvelope Item.CC中，但是我很费劲。

任何帮助将不胜感激。

这是我到目前为止所拥有的；

Sub Send_Range_Email()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("B6:D302").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, CC and Subject lines.

With ActiveSheet.MailEnvelope
  .Introduction = ""
  .Item.To = "Email 0"
  .Item.Subject = "Email Tracker Results"
  .Item.CC = "Email 1" & text input here & "Email 2"
End With
End Sub

Answer 1

使用公式时，如果要在其中放置变量，只需将其拆开并添加变量即可。如评论所述，

.Item.CC = "email 1" & "," & Range("A1").Value & ", " & "Email 2"

因此，要明确起见，说我们想通过执行A1在此字符串中添加str = The man lives in STATE all the time的值：str = "The man lives in " & Range("A1").Value & " all the time"

如何从单元格中获取文本并将其输入到VBA中？

1 个答案: