>IF VarType(oOutlook) <> "O" > RELEASE oOutlook > PUBLIC oOutlook > oOutlook = CreateObject("Outlook.Application") >ENDIF >oNameSpace = oOutlook.GetNameSpace("MAPI") >oMessage = oOutlook.CreateItem( olMailItem ) > >WITH oMessage > .Subject = "Subject" > .Body = "The monthly staff meeting... " > oRecipient = .Recipients.Add( "&cAddr." ) > IF FILE(cFile) > .Attachments.Add( cFile ) > ENDIF > .visible && doesnt like this > * .Send() >ENDWITH >