2014-09-14 3 views
3

Excel에서 Outlook 2010 이메일 템플릿을 열려고합니다.Excel VBA로 Outlook 이메일 템플릿을 열려고 시도합니다.

"런타임 오류 '-2147287038 (80030002)': 이 파일을 열 수 : C가 :. 내 \ 경로 \ \ 파일이 존재하지 않을 수 MyTemplate.oft, 당신은하지 않을 수 있습니다 나는 다음과 같은 오류가 발생합니다 사용 권한이 없거나 다른 프로그램에서 열려있을 수 있습니다. 파일이 들어있는 폴더를 마우스 오른쪽 단추로 클릭 한 다음 속성을 클릭하여 폴더에 대한 사용 권한을 확인하십시오. "

파일이 (올바른 위치에) 존재하고 사용 권한을 확인한 결과 (내가 아는 한) 파일이 이미 열려 있지 않습니다.

Sub Mail_experiment() 
    Dim OutApp As Outlook.Application 
    Dim OutMail As Outlook.mailitem 
    Set OutApp = CreateObject("Outlook.Application") 
    Set OutMail = OutApp.CreateItemFromTemplate("C:\My\Path\MyTemplate.oft") 
    On Error Resume Next 
    With OutMail 
     .to = "[email protected]" 
     .CC = "" 
     .BCC = "" 
     .Subject = "This is my Subject line" 
     .Send 
    End With 
    On Error GoTo 0 
    Set OutMail = Nothing 
    Set OutApp = Nothing 
    End Sub 

어떤 도움 주셔서 감사합니다! :

여기 내 코드입니다

+0

내 시스템에서 코드가 제대로 작동합니다. 파일이 없으면 런타임 오류 42가 발생합니다 (자동화 작업 중에 파일 이름 또는 클래스 이름을 찾을 수 없음). 코드가 오류없이 실행되는 동안 실제로 템플릿을 열 수 있습니다. 템플릿 파일 "C : \ My \ Path \ MyTemplate.oft"로 이동하여 수동으로 열려고하면 어떻게됩니까? –

+0

수동으로 열 수 있습니다. VBA로는 그럴 수 없습니다. Outlook을 열어 보았고 Outlook을 닫은 상태에서 시도했습니다. 코드를 사용하여 새 이메일을 보낼 수 있습니다. 템플릿을 열 수 없습니다. –

+0

케빈, 너의 노력에 감사를 표함을 깜박했다. 고맙습니다! –

답변

2

"다른 컴퓨터에서 코드를 시험해 보았습니다. 이전 이름이 모든 대문자로되어 있으므로 되돌아 가서 내 템플릿의 파일 이름을 변경했습니다. 이게 내 개인 가정용 컴퓨터이기 때문에 이상하게 생각하는 관리자가되어야한다는 메시지입니다. 그러나 "계속"을 클릭하면 이름이 바뀌 었습니다. - David Elphee 2011 년 9 월 14 일 at 13:23 "

+1

커뮤니티 위키. 답변은 코멘트에 있습니다. 검색에서이 주제를 찾는 사람은 누구나 답변을 볼 수 있으며 유용하게 유용한 답변을 찾을 가능성이 큽니다. – niton

+0

실제로 그것은 좋은 반사 동료입니다! ;) – R3uK

관련 문제