PROCEDURE Send1ViaOutlook(tcReturn, tcTo, tcSubject, tcBody, taFiles, tcCC, tcBCC, tlHTMLFormat, tnImportance, tlOpenEmail) ******************************************* LOCAL loOutlook, loItem, lnCountAttachments, loMapi TRY loOutlook = CREATEOBJECT("outlook.application") loMapi = loOutLook.GetNameSpace("MAPI") loMapi.Logon() loItem = loOutlook.CreateItem(0) WITH loItem .Subject = tcSubject .TO = tcTo IF tlHTMLFormat .HTMLBody = tcBody ELSE .Body = tcBody ENDIF IF TYPE("tcCC") = "C" .CC = tcCC ENDIF IF TYPE("tcBCC") = "C" .BCC = tcBCC ENDIF *IF TYPE("tnImportance") != "N" tnImportance = 0 && normal importance *ENDIF .Importance = tnImportance *OlWindowState * olMaximized = 0 * olMinimized = 1 * olNormalWindow = 2 IF tlOpenEmail .display() olNormalWindow = 0 loInspector = .GetInspector() loInspector.WindowState = olNormalWindow oWSH = CreateObject( "WScript.Shell" ) &&&& Sergey's suggestion to bring window to forefront oWSH.AppActivate( oMailItem.Application.ActiveInspector.Caption ) *olMinimized = 1 * loInspector = .GetInspector() * loInspector.WindowState = olMinimized ELSE .SEND() ENDIF ENDWITH>Try
>oWSH = CreateObject( "WScript.Shell" ) >oWSH.AppActivate( oMailItem.Application.ActiveInspector.Caption ) >>
>>_SCREEN.WINDOWSTATE=1 >>>>
>>IF tlOpenEmail >> .display() >> olNormalWindow = 0 >> >> loInspector = .GetInspector() >> loInspector.WindowState = olNormalWindow >>endif >>>>