Question

我想知道如何在以下代码中分隔电子邮件地址：

With OutApp.CreateItem(0)
If cel.Value <> "" Then
.To = cel.Value
.CC = cel.Offset(0, 10).Value & cel.Offset(0, 11).Value
.Body = strbody & vbNewLine & vbNewLine & Signature

在运行宏的CC字段中，它确实填充了字段，但是如下所示： CC：将@ me.comother @ mail.com，它应该是这样的CC：will@me.com; other@mail.com

关于如何解决这个问题的任何想法？我已经尝试过：cel.Offset(0, 10).Value & ";" & cel.Offset(0, 11).Value但没有运气

Answer 1

此问题已修复为此cel.Offset(0, 10).Value & " ; " & cel.Offset(0, 11).Value及其现在正在使用

Answer 2

考虑一些更有活力的东西：

join(worksheetfunction.Transpose(range("A1:A4")),";")

通过这种方式，您可以以编程方式更改范围，并且只会加入尽可能多的行。您选择的方法意味着必须有2个人（并且只有2个人）才能进行CC。

范围（＆＃34; A1：A4＆＃34;）获取数据范围，Transpose将从上到下的方向交换为从左到右的方案（使其成为数组），Join函数加入所有使用提供的分隔符（在本例中为＆＃34;;＆＃34;）

的数组元素

分隔电子邮件地址

2 个答案: