Excelのテキストボックスにテキストを使用してOutlook電子メールを送信する - エラー424：オブジェクトが必要です

Question

本文としてテキストボックス（Excelでtxという名前）にテキストを使用してOutlookで電子メールを送信しようとしています。

私は、コードを実行すると、ライン上のエラーがある：

strbody = tx.Text 

エラー424：オブジェクトは、CDOを使用することができ

Sub SendMail() 

Dim OutApp As Outlook.Application 
Dim OutMail As Outlook.MailItem 
Dim strbody As String 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(olMailItem) 

strbody = tx.Text 

'On Error Resume Next 
With OutMail 
    .To = "..." 
    .CC = "" 
    .BCC = "" 
    .Subject = Cells(3, 2) 
    .Body = strbody 

    .Send 
End With 

Set OutMail = Nothing 
Set OutApp = Nothing 
End Sub 

Answer 1

は、あなたのテキストボックスがstrbody = ThisWorkBook.Sheets("Sheet's name").Shapes("tx").ControlFormat.Value

で
あるシートの名前で Sheet's nameを交換してください

Sub SendMail() 

Dim OutApp As Outlook.Application 
Dim OutMail As Outlook.MailItem 
Dim strbody As String 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(olMailItem) 

strbody = ThisWorkBook.Sheets("Sheet's name").Shapes("tx").ControlFormat.Value 

'On Error Resume Next 
With OutMail 
    .To = "..." 
    .CC = "" 
    .BCC = "" 
    .Subject = Cells(3, 2) 
    .Body = strbody 

    .Send 
End With 

Set OutMail = Nothing 
Set OutApp = Nothing 
End Sub 

Answer 2

が必要？ここで私は（電子メールアドレスと編集さSMTPサーバのアドレスを）エクセルVBAでのテスト関数に入れていくつかの簡単なVBAのコードは次のとおりです。

Sub test() 

    Dim strbody As String 
    strbody = "Test Email" & vbNewLine & vbNewLine & "TEST EMAIL" 

    Dim iMsg As Object 
    Set iMsg = CreateObject("CDO.Message") 

    With iMsg 

     .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ 
      = "whateverYourSMTPServerIs" 
     .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ 
      = 25 
     .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") _ 
      = 2 'Stands for sending using CDO 
     .Configuration.Fields.Update 

     .To = "someemail@someplace.com" 
     .CC = "" 
     .BCC = "" 
     .From = "someemail@someplace.com" 
     .Subject = "Test Email" 
     .TextBody = strbody 
     .Send 
    End With 

End Sub