>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 >>>>>>