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
어떤 도움 주셔서 감사합니다! :
여기 내 코드입니다
내 시스템에서 코드가 제대로 작동합니다. 파일이 없으면 런타임 오류 42가 발생합니다 (자동화 작업 중에 파일 이름 또는 클래스 이름을 찾을 수 없음). 코드가 오류없이 실행되는 동안 실제로 템플릿을 열 수 있습니다. 템플릿 파일 "C : \ My \ Path \ MyTemplate.oft"로 이동하여 수동으로 열려고하면 어떻게됩니까? –
수동으로 열 수 있습니다. VBA로는 그럴 수 없습니다. Outlook을 열어 보았고 Outlook을 닫은 상태에서 시도했습니다. 코드를 사용하여 새 이메일을 보낼 수 있습니다. 템플릿을 열 수 없습니다. –
케빈, 너의 노력에 감사를 표함을 깜박했다. 고맙습니다! –