VBA 宏从特定单元格获取电子邮件地址并向所有地址生成电子邮件

VBA 宏从特定单元格获取电子邮件地址并向所有地址生成电子邮件

我有下表,其中特定单元格中包含电子邮件地址:

在此处输入图片描述

我想做的是向所有人生成一封电子邮件,但不幸的是,我只能将其发送给其中一个人:

在此处输入图片描述

这是我的想法,但显然不起作用:(

'emailItem.to = Worksheets("Sheet14").Cells(2, 12).Value

'emailItem.to = Worksheets("Sheet14").Range("H2:H2, L2:L2, P2:P2, T2:T2") NOT WORKING

您还有其他想法吗?我不想将它们放在 CC 或 BCC 中。

答案1

我设法这样做:

Contact = Worksheets("Sheet16").Cells(2,8).Value
Contact1 = Worksheets("Sheet16").Cells(2,12).Value
Contact2 = Worksheets("Sheet16").Cells(2,16).Value
Contact3 = Worksheets("Sheet16").Cells(2,20).Value

' We build the emails below
Worksheets("Sheet16").Cells(12,1).Value = Contact & ";" & Contact1 & ";" & Contact2 & ";" & Contact3

相关内容