oa = CreateObject("Outlook.Application") oEmailItem = oa.CreateItem(0) with oEmailItem .Recipients.Add("[FAX:"+YourFaxNumberString+"]") .Subject = "This is the subject of the fax" .Importance = 1 && or 2 for hight priority .Body = "Enter some text here if you want" .Attachments.Add(FullPath( "report.tif" ) ) .Send && and pray that it goes endwith release oEmailItem, oaNote: about the tif creation, i had problems creating the tif under Win98 workstations, and i didn't check lately to see if it works or not, so i create the tif as follow:
if OsVersionIs98 set printer to name "SharedFax" && name of fax printer installed report form blabla to file "report.tif" noconsole else && winxp use listener ox = CreateObject("ReportListener") ox.ListenerType = 3 && TIF output report form blabla object ox ox.OutputPage( 1, "report.tif", 101 ) endifHTH