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