.send vbaが動作していませんが、ディスプレイは

Question

です。私の ".display"は動作していません。私はオブジェクト定義エラーを取得し続けます。私がそれをデバッグすると、 ".send"が強調表示されます。助言がありますか？

Sub SendEmails() 

Dim olApp As Outlook.Application 
Dim olMail As Outlook.MailItem 

For i = 8 To 10 
    Set olApp = New Outlook.Application 
    Set olMail = olApp.CreateItem(olMailItem) 

    With olMail 
    .BCC = Cells(i, 1).Value 
    .Subject = Cells(i, 2).Value 
    .Body = "Hello " & Cells(i, 3).Value & "," & vbNewLine & vbNewLine & Cells(i, 4).Value & vbNewLine & vbNewLine & Cells(i, 5).Value & vbNewLine & Cells(i, 6).Value 
    .Attachments.Add "H:\Shared\Public\Focus 6\Private Equity\Send Emails\2017-01-18\EY - Capitalizing on Opportunities (PE O&G).pdf" 
    .Send 

    End With 
Next 

Set olMail = Nothing 
Set olApp = Nothing 

End Sub 

Answer 1

@ Nathan_Savが述べているように、おそらくあなたのOutlookのセキュリティ機能を使いこなすことができます。代わりに、.SendKeys関数を試すことができますが、これは非常に信頼できる方法ではないことに注意してください。特に、このマクロを試して使用するために他の人/他のマシンが必要な場合は注意してください。あなたは

.SendKeys "%S" 

で

.Send 

を交換する場合

しかし、それはあなたのために働くかもしれません。

Answer 2

.Displayあなたに電子メールのビューが表示されます。この手順を実行すると、.Sendが効率的に機能します。 .Sendを使用すると、サードパーティプログラムがOutlookにアクセスしようとしていることを確認するメッセージボックスが表示されます（すべてが正しく構成されている場合）。これが解決されない場合は、ブックを開き、VBE（Alt + F11）を開きます。そこからTools→Referencesに移動し、「Missing」とマークされているもののチェックを外します。可能であれば、適切なOutlookオブジェクトライブラリを探し、それを確認します。

Sub SendEmails() 

Dim olApp As Outlook.Application 
Dim olMail As Outlook.MailItem 

For i = 8 To 10 
    Set olApp = New Outlook.Application 
    Set olMail = olApp.CreateItem(olMailItem) 

    With olMail 
    .BCC = Cells(i, 1).Value 
    .Subject = Cells(i, 2).Value 
    .Body = "Hello " & Cells(i, 3).Value & "," & vbNewLine & vbNewLine & Cells(i, 4).Value & vbNewLine & vbNewLine & Cells(i, 5).Value & vbNewLine & Cells(i, 6).Value 
    .Attachments.Add "H:\Shared\Public\Focus 6\Private Equity\Send Emails\2017-01-18\EY - Capitalizing on Opportunities (PE O&G).pdf" 
    .Display 

    End With 
Next 

Set olMail = Nothing 
Set olApp = Nothing 

End Sub