Excel-outlook VBA 2013が2016 Outlook版で動作しない

Question

マクロに問題があります。以前はOutlookの2013バージョンで作業していましたが、何らかの理由でCC機能が動作しなくなり、エラーが発生しています。

Set sh = Sheets ("Sheet1") 

     .to = cell.Value 
     .CC = sh.Cells(cell.Row, 1).Range("C1:C1") 
     .BCC = sh.Cells(cell.Row, 1).Range("D1:D1") 

これは、しかし、私のExcelとの見通しの2016バージョンでは動作しません：私はCCとBCCを定義するには、次のコードを使用し2013年バージョンで

。 excelのすべての行は、Excelの行から選択されたTo、CCおよびBCCを持つ必要があります。何らかの理由で、CCが有効な方法ではないと言い続ける。 object_Mailitemが失敗しました。

• "mail@x.com"に.ccと.bccの後ろの変数を編集すると、エラーが発生することなく動作しています。ですから、.ccの後の行に何か問題があると仮定します。複数の解決策を試しましたが、同じエラーまたは.Sendコマンドを認識できないことを伝える他のエラーが発生しました。

編集：私は件名には、、およびCcが完全に記載されているされていなかったために、同様の問題に遭遇していたマクロ

Sub Send files() 
Dim OutApp As Object 
Dim OutMail As Object 
Dim sh As Worksheet 
Dim cell As Range 
Dim FileCell As Range 
Dim rng As Range 
Dim ccontvangen As Range 

With Application 
    .EnableEvents = False 
    .ScreenUpdating = False 
End With 

Set sh = Sheets("Sheet1") 

Set OutApp = CreateObject("Outlook.Application") 

For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants) 

    Set rng = sh.Cells(cell.Row, 1).Range("E1:Z1") 

    If cell.Value Like "?*@?*.?*" And _ 
     Application.WorksheetFunction.CountA(rng) > 0 Then 
     Set OutMail = OutApp.CreateItem(0) 
     With OutMail 
      .to = cell.Value 
      .cc = "x" 
      .Subject = "Subject" 
      .Attachments.Add "G:\signature.png", olByValue, 0 
      .Body = " " 

      For Each FileCell In rng.SpecialCells(xlCellTypeConstants) 
       If Trim(FileCell) <> "" Then 
        If Dir(FileCell.Value) <> "" Then 
         .Attachments.Add FileCell.Value 
         End If 
        End If 
      Next FileCell 
      .Send 
     End With 

      Set OutMail = Nothing 
     End If 
    Next cell 

    Set OutApp = Nothing 
    With Application 
     .EnableEvents = True 
     .ScreenUpdating = True 
    End With 
End Sub 

Answer 1

の完全なコードを追加しました。

私は&を追加することで問題を見つけました ";"各フィールドの終わりまで