VBA電子郵件環帶附件和不同的收件人，CC不執行

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 

我caanot增加.cc函數來執行順利請大家幫忙，也可能你，如果我可以循環列表中每一行中幫助

請參考Excel中的快照文件enter image description here

Answer 1

.cc的應該是工作，例如

.cc = "YourEmail@Email.com;" 

你收到什麼錯誤？