oOutlook = CREATEOBJECT("Outlook.Application") oEmailItem = oOutlook.GetNameSpace("MAPI") oMessage = oEmailItem.GetDefaultFolder(4) oNewMessage = oMessage.items.add() WITH oNewMessage .Recipients.add('[FAX:' + ALLTRIM(m.FaxNumber) + ']') .Attachments.Add(ALLTRIM(m.Attachment)) IF thisformset.Preview .display(.t.) ELSE .Send() ENDIF ENDWITHKind regards