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

亲爱的

我提出这个问题是因为另一封邮件中的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文件的快照。例如，cc应该可以工作

.cc = "YourEmail@Email.com;"

---

您收到了哪些错误？

在GT列的每一行中循环新的附件路径服务器thre是一个例外只有当我添加.cc时，它抛出错误，其余它工作得很好您能帮我循环100行中的数据吗