带有附件和CC中不同收件人的VBA电子邮件循环不会执行

Question

亲爱的，

我

正在发布这个问题，因为另一封邮件中的VBA代码没有执行我的目的

为什么我不能添加.CC到我的代码并执行，它抛出错误

Sub exporttoemail2()
 Dim OutlookApp As Object
 Dim MItem As Object
 Dim cell As Range
 Dim Subj As String
 Dim EmailAddr As String
 Dim Recipient As String
 Dim Msg As String
 Dim strLocation As String

 Set OutlookApp = CreateObject("Outlook.Application")
 Set MItem = OutlookApp.CreateItem(olMailItem)
 With MItem
 .To = Range("D2") & ";" & Range("E2") & ";" & Range("F2")
 .Subject = "Hilti SOA - *Payment Notification* - " & Range("A2") & " - " & Range("B2")
 .htmlbody = "Body" 

 strLocation = Range("G2")
 .Attachments.Add (strLocation)
 .Display
 End With
End Sub

我不加.CC功能顺利执行请帮忙，如果我能循环每行中的列表，您也能帮忙吗

请参考 excel 文件的快照在此处输入图像说明

Answer 1

.cc 应该可以工作

.cc = "[e-mail];"

您收到哪些错误？