excel - VBA Excel 包含电子邮件形式的 IF 语句

Question

我似乎无法在我的代码中包含 IF 公式，在电子邮件发送给我的 Excel 文件的 R2 列中包含的某些人的部分

我想从 .CC 中排除电子邮件 yyy@gmail.com如果该用户已经在 R2 列中(所以在 .To 中)。我怎么能写代码？否则，我的用户 yyy@gmail.com收到了两次电子邮件，一次是因为用户在 .To还有一次是因为他在.CC

.To = Worksheets("MyData").Range("R2").Value
.CC = "yyy@gmail.com; zzz@gmail.com; aaa@gmail.com"
.BCC = ""
.Subject = "TEST"
.Body = "Hello"
.Attachments.Add ThisWorkbook.Path & "\ME\" & Check & " " & Format(Now, "dd-mmm-yy") & ".xlsx"
.Display
'.Send

这样做的代码是什么？

Answer 1

我不会为此使用 if 语句。相反，我会在设置两者后从 cc 行中删除每个收件人

.to = "yyy@gmail.com"
.cc = "yyy@gmail.com; zzz@gmail.com; aaa@gmail.com"
For Each addr In Split(.to, ";")
    .cc = Replace(.cc, addr, vbNullString)
Next addr
.BCC = ""
.Subject = "TEST"
.Body = "Hello"
.Attachments.Add ThisWorkbook.Path & "\ME\" & Check & " " & Format(Now, "dd-mmm-yy") & ".xlsx"
.Display

for 循环在分号字符 ; 上拆分 to 行然后循环遍历每一个，将其从 .cc 中删除这将同时处理 .To 中的单个和多个收件人。和 .CC线