전자 메일에 그림을 표시 할 outlook vba 코드

Question

기본적으로 내 Microsoft Outlook 2013은받은 HTML 전자 메일 메시지에서 이미지를 다운로드하지 않도록 설정되어 있습니다. 이 설정을 유지하고 싶습니다.

전자 메일이 내 Outlook VBA 코드 ...에 의해 처리되고 일부 폴더 (INBOX가 아닌)에 저장되는 일부 보낸 사람이 있습니다. 나는 내장 규칙을 사용하지 않습니다.

이들은 알려진 발신인입니다. 다운로드하고 표시되는이 SELECT KNOWN 발신자의 이메일에있는 사진을 갖고 싶습니다. 나는 각 전자 우편을 위해 이것을 수동으로 할 수 있었다 ... 오른쪽 클릭 등등에 의하여 ... 그러나 그것은 그런 전자 우편이 많은 때 고통이다 ....

전자 메일에서 이미지/그림 표시를 다운로드/활성화하는 데 필요한 몇 줄의 코드 (한 줄?)를 알아낼 수 없습니다. 뭔가 ... MailItem.Display (작동하지 않는 ... 그것은 독립된 윈도우에만 메일을 표시합니다) ... 또는 MailItem.DisplayImages (이는 알려진 메소드가 아닙니다!)와 같습니다.

알려진 한 발신자의 전자 메일을 처리하는 루틴에는이 한 줄 (또는 줄)을 포함하므로 전자 메일에는 항상 다운로드 한 이미지/그림이 있습니다.

감사합니다.

Answer 1

Outlook 개체 모델은 이에 대한 속성이나 메서드를 제공하지 않습니다.

Answer 2

PidTagBlockStatus 속성을 설정해야합니다 (http://msdn.microsoft.com/en-us/library/ee219242(v=exchg.80).aspx 참조).

MailItem.PropertyAccessor.SetProperty를 사용하여 해당 속성을 읽고 쓸 수는 있지만 Outlook 개체 모델은 메시지 배달 시간의 값을 반올림하므로 해당 값을 정확하게 계산할 수 없습니다. 원시 확장 MAPI 값 (C++ 또는 Delphi에서만 액세스 가능)을 FileTime 구조로 사용합니다.

Redemption 옵션을 사용하는 경우 RDOMail을 노출합니다. DownloadPictures 속성 다음과 같은 작업 (VB 스크립트)을 수행해야합니다 (VB 스크립트) :

set Session = CreateObject("Redemption.RDOSession") 
    Session.MAPIOBJECT = Application.Session.MAPIOBJECT 
    set Item = Session.GetRDOObjectFromOutlookObject(YourOutlookItem) 
    Item.DownloadPictures = true 
    Item.Save