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