MS-Outlook 임베디드 이미지를 가져오고 MS-Access VBA를 사용하여 파일 시스템에 저장 (Getting MS-Outlook embedded images and saving them within the file system using MS-Access VBA)


문제 설명

MS‑Outlook 임베디드 이미지를 가져오고 MS‑Access VBA를 사용하여 파일 시스템에 저장 (Getting MS‑Outlook embedded images and saving them within the file system using MS‑Access VBA)

I have a very special question concerning MS‑Outlook and MS‑Access VBA. I want to import the email data from outlook into a database (and the file system > attachments and embedded images). Using Google I find ways to get the emails incl. emails properties and the attachments. But I need images too which are embedded in rich text‑ and html‑emails. Is there a way to realize this via VBA? 

Thanks in advance.

Tommy


참조 솔루션

방법 1:

Embedded HTML images are just regular image attachments and can be saved using Attachment.SaveAsFile.

Embedded RTF images are a different story: they are OLE objects, and Attachment.SaveAsFile will fail. You can use Redemption (I am its author) for that ‑ its RDOAttachment.SaveAsFile will extract WMF, Word, Excel, PowerPoint, PDF, etc. attachments from the attachment OLE storage and save them as files.

(by Tommy SaberDmitry Streblechenko)

참조 문서

  1. Getting MS‑Outlook embedded images and saving them within the file system using MS‑Access VBA (CC BY‑SA 3.0/4.0)

#vba #image #outlook






관련 질문

열에 문자열이 포함된 경우 열 번호 나열 (List column numbers if columns contain string)

SpinButton SpinUp 또는 SpinDown 새로 고침 (Refreshing SpinButton SpinUp or SpinDown)

변수를 사용하여 Excel VBA에서 3차원 배열 요소에 액세스 (Use variables to access 3 dimensional array elements in Excel VBA)

TODAY() 함수와 월 1일을 기준으로 범위 이동 (Moving a range based on TODAY() function and first of the month)

ALV 레이아웃의 표시된 모든 열을 제거하는 방법 (How to remove all displayed columns of ALV layout)

셀에 입력한 msoShapeOval은 MsoShapeType으로 선언된 변수의 값이 될 수 없습니다. (msoShapeOval entered in cell not allowed to be value for variable declared as MsoShapeType)

Excel VBA의 세로 열에 여러 json을 생성하는 방법은 무엇입니까? (How to generate multiple json in vertical column in Excel VBA?)

공개 함수의 VBA 런타임 오류 -2147319767(80028029) (VBA Run-time error -2147319767 (80028029) in Public Function)

알 수 없는 수의 문자를 패턴 일치시키는 방법 (How to Pattern Match an Unknown Number of Characters)

Excel VBA 파일이 열려 있는지 확인 기능 (Excel VBA Check if File is open function)

ActiveCell..Offset(-1,0)=을 사용하는 If/And/Then/Else 문의 VBA 문제= (VBA Issue with If/And/Then/Else statement using ActiveCell..Offset(-1,0)=)

VBA 런타임 오류 '1004': 응용 프로그램 정의 또는 개체 정의 오류" 설정 셀 내용 (VBA Runtime Error '1004': Application-defined or Object-defined error" setting cell contents)







코멘트