* your code goes here ...... lcfile=fullpath(filename) loMail.Display oShell = CreateObject("WScript.Shell") IF oShell.AppActivate(loOutlook.ActiveWindow.caption) oShell.SendKeys("^{END}") && set cursor in the body area oShell.SendKeys("%IP") && activate Insert Picture Dialog oShell.SendKeys(lcfile+"{ENTER}") && Insert picture from file ENDIF loMail.Send()Check for proper key combination above.
>loOutlook = CREATEOBJECT("Outlook.Application") >loMail = loOutlook.CreateItem(0) && Email >loMail.Subject = "Hello" >loMail.Recipients.Add("tim@tml.be") >loMail.Attachments.Add("c:\dbfactw\logo.jpg") >loMail.HTMLBody = [<html><body bgcolor="#00CCFF"><img src=c:\dbfactw\logo.jpg" width="403" height="372"></body></html>] >loMail.Send() >