excel에서 보낸 이메일은 창 8에서 작동하지 않습니다. 2012 문제

Question

다음 코드를 사용하면 문제가 해결되었습니다. 나는 표면 프로로 업데이 트하고 내 매크로가 작동을 멈춘 것을 알 수 있습니다.

는 내가 그것을 일부는 윈도우 8

내가이

어떤을 가지고 더 이상 전망을 사용 설정 OutApp = CreateObject를 ("으로 Outlook.Application")에서이 줄을 생각하지 않는 것 할 생각 같아요 다른 하나는 가

Private Sub CommandButton21_Click() 
Dim OutApp As Object 
    Dim OutMail As Object 

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

    On Error Resume Next 
    With OutMail 
     .to = "help@hiall.com.au" 
     .CC = "" 
     .BCC = "" 
     .Subject = "Inspection" 
     .Body = "Inspection n" 
     .Attachments.Add ActiveWorkbook.FullName 
     .Send 
    End With 
    On Error GoTo 0 

    Set OutMail = Nothing 
    Set OutApp = Nothing 
End Sub 

Answer 1

무엇 아웃룩 버전 아래

전체 코드는 사용자가 PC에 설치되어 있습니까 이 문제

했다? Outlook의 보안 센터 설정을 확인 했습니까?

일반적으로 코드가 정확하고 이상한 메시지가 표시되지 않습니다 ... How to automate Outlook from another program 문서는 Outlook 자동화에 필요한 단계를 설명합니다.

Office 2010의 Click2Run 버전은 자동화를 지원하지 않습니다. 또한 You receive run-time error 429 when you automate Office applications 문서가 도움이 될 수도 있습니다.