Excel Vb 向多个收件人发送电子邮件

Question

我有这个代码，可以向一个收件人发送电子邮件。我有一张包含三个收件人的表格。

我尝试将代码更改为XLUp.value XLDown.value并更改范围并尝试范围名称。这些都不起作用。

这部分代码似乎不起作用

Dim SendTo As String
Dim BuildAddy As Integer
' Sheets("Emails").Select
'For BuildAddy = 1 To Range("A1048000").End(xlUp).Row ' ie the last value in the column
For BuildAddy = 1 To Range("A1:A").End(xlUp).Row   ' ie the last value in the column
    SendTo = SendTo & Range("A1:A" & BuildAddy).Value & ";" ' at least I think it's a ;.  It might be a ,
Next BuildAddy
.To = SendTo
.To = Sheets("Emails").Range("A1:A").Value ' <-- Put email of the recipient here

Answer 1

Range("A1:A")不是有效的地址，因为末尾缺少行号。

它应该是这样的...

Range("A" & Rows.Count).End(xlUp).Row

因此，它应该是

SendTo = SendTo & Range("A" & BuildAddy).Value & ";"

此外，您还应该为所有Range(…)指定范围所在的工作表。就像Worksheets("Emails").Range(…)一样，否则Excel无法知道这一点。