Pulling JPEG files from Outlook

[Gintaras]

Gets source URLs of jpg images in current email in Outlook 2003.

Macro Macro2019

Code:

Copy      Help

int w=win("Inbox - Microsoft Outlook" "rctrl_renwnd32")
HtmlDoc d.InitFromInternetExplorer(w)
ARRAY(MSHTML.IHTMLElement) a
d.GetHtmlElements(a "IMG")
int i
for i 0 a.len
,str s=a[i].getAttribute("src" 0)
,sel s 3
,,case ["*.jpg","*.jpeg"]
,,out s
,