VBAのOutlook電子メールに本文として.docxを追加する

Question

私はExcelでvbaを使用して電子メールを送信するためにこのコードを使用できます。

.Inspector.WordEditorの代わりに.bodyを使用して、私は電子メールに入れたいものを正確に入力できますが、電子メールのテキストをWord文書にして、その中に写真。

どうすればいいですか？私は得ることができません。インスペクタ。私はそれをしたい方法で動作するエディタ。 （正直に言うと、それは私のために全く機能しません）

Sub Test1() 

Dim networkstatus As Boolean 
If InternetGetConnectedState(0&, 0&) Then 
    networkstatus = True 
Else 
    networkstatus = False 
End If 
If Not networkstatus = True Then 
     Exit Sub 
End If 

Dim OutApp As Object 
Dim OutMail As Object 
Dim cell As Range 

Application.ScreenUpdating = False 
Set OutApp = CreateObject("Outlook.Application") 

On Error GoTo cleanup 
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants) 
    If cell.Value Like "?*@?*.?*" And _ 
     LCase(Cells(cell.Row, "C").Value) = "yes" Then 

     Set OutMail = OutApp.CreateItem(0) 
     On Error Resume Next 
     With OutMail 
      .To = cell.Value 
      .Subject = "Test" 
      .Inspector.WordEditor ("C:\test.docx") 
      .Send 
     End With 
     On Error GoTo 0 
     Set OutMail = Nothing 
    End If 
Next cell 

クリーンアップ：

Set OutApp = Nothing 
Application.ScreenUpdating = True 



End Sub 

編集：私はあなたがのHtmlBodyを使用できることを承知していますが、私は使用するために私の同僚にはカウントされません。それ。

Answer 1

は

.Attachments.Add("C:\test.docx")