.send vba가 작동하지 않지만 .display는

Question

".dendplay"는 작동하지만 내 ".send"는 작동하지 않습니다. 내가 정의한 개체가 계속 오류가 발생했습니다. 디버깅 할 때 ".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 Object Library를 찾아 확인하십시오.

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