>>>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 >>>>>>
>>>>oWSH = CreateObject( "WScript.Shell" ) >>>>oWSH.AppActivate( oMailItem.Application.ActiveInspector.Caption ) >>>>>>>>
>>>>>_SCREEN.WINDOWSTATE=1 >>>>>>>>>>
>>>>>IF tlOpenEmail >>>>> .display() >>>>> olNormalWindow = 0 >>>>> >>>>> loInspector = .GetInspector() >>>>> loInspector.WindowState = olNormalWindow >>>>>endif >>>>>>>>>>