We've been using VFP with automation to create an Excel file which is then emailed as an attachment to a group out of state, for several years.
All of a sudden they are no longer able to receive the emails. Their IT department states that due to the "embedded code" the emails are being "dumped". Does automation embed code? Here is the program code: ***m_hip wait "Please be patient, running data to Excel" window at 25, 50 nowait with thisform.stcnthip if .sttxtfhip.value <> " " mfhip = .sttxtfhip.value mlhip = .sttxtlhip.value mhips = " stnhorse.hip_no >= mfhip and stnhorse.hip_no <= mlhip " else mhips = " (stnhorse.HIP_NO <> ' ' OR STNHORSE.HIP_NO = ' ') " endif if .stcmbcons.value = " " mcons = " (stnhorse.cons_no <> ' ' OR STNHORSE.CONS_NO = ' ') " else mcons = " stnhorse.cons_no = .Stcmbcons.value " endif if .Stchkallmixed.value = 0 with .stcmbtype do case case .value = " " mtype = " type_horse <> ' ' " case .value = "S" mtype = " type_horse = 'S' " case .value = "Y" mtype = " type_horse = 'Y' " case .value = "W" mtype = " type_horse = 'W' " case .value = "R" mtype = " type_horse = 'R' " case .value = "B" mtype = " type_horse = 'B' " otherwise mtype = " type_horse <> ' ' " endcase endwith else mtype = " type_horse <> 'Y' " endif select ; PADR(chrtran(dam1, " '-", ""),25," ") as nameord, ; ARR_NO, ; type_horse, ; val(stnhorse.hip_no) as hip_no, ; proper(stnhorse.name) as name, ; tattoo, ; lower(stnhorse.color) as color, ; iif(stnhorse.sex = "H","c",iif(stnhorse.sex = "M","f",lower(stnhorse.sex))) as sex, ; lower(stnhorse.gait) as gait, ; iif(date_foal <> {}, dtoc(date_foal),dtoc({})) as date_foal, ; proper(stnhorse.sire1) as sire1, ; proper(stnhorse.dam1) as dam1, ; proper(stnhorse.sire2) as sire2, ; proper(bred_to) as bred_to, ; iif(last_bred <> {}, dtoc(last_bred),dtoc({})) as last_bred, ; preg_bar, ; maiden, ; stnhorse.cons_no as cons_no, ; iif(stnconsi.fname<>" ",trim(stnconsi.fname) + " " + ; trim(stnconsi.lname),trim(stnconsi.lname)) as consignor, ; alltrim(stnconsi.city) + ", " + alltrim(stnconsi.state) as citystate, ; HBSTB as stable, ; hbrw as row, ; hbstl as stall, ; sire_state, ; stnhorse.sbfname, ; stnhorse.sblname, ; stnhorse.sb_city, ; stnhorse.sb_st, ; stnhorse.sb_country, ; iif(stnhorse.amount>0,transform(stnhorse.amount,"9,999,999"),"OUT ") as amount, ; day ; from ; stnhorse ; left join stnconsi on stnhorse.cons_no = stnconsi.cons_no ; where ; &mcons ; and ; &mhips ; and ; &mtype ; order by ; nameord ; into cursor SYS(2015) *!* mnumb = 1 *!* mstart = 'L' *!* seek mstart *!* scan *!* replace stord with mnumb *!* mnumb = mnumb + 1 *!* endscan *browse ************************************************************ oexcel = createobject("excel.application") obook = oexcel.workbooks.add() orange = oexcel.activesheet.range("a1:p1") with oexcel.activesheet .range("a1").value = "Type" .range("b1").value = "Hip No." .range("c1").value = "Name" .range("d1").value = "Tattoo" .range("e1").value = "Color" .range("f1").value = "Sex" .range("g1").value = "Gait" .range("h1").value = "Date Foal" .range("i1").value = "Sire" .range("j1").value = "Dam" .range("k1").value = "By" .range("l1").value = "Bred To" .range("m1").value = "Last Bred" .range("n1").value = "P/B" .range("o1").value = "Maiden" .range("p1").value = "Cons#" .range("q1").value = "Consignor" .range("r1").value = "City/State" .range("s1").value = "Arrival#" .range("t1").value = "Stb/Barn" .range("u1").value = "Row" .range("v1").value = "Stall" .range("w1").value = "Sire State" .range("X1").value = "Sign By First" .range("Y1").value = "Sign By Last" .range("Z1").value = "City" .range("AA1").value = "State" .range("AB1").value = "Country" .range("AC1").value = "Amount" .range("AD1").value = "Day" .range("AE1").value = "Name Order" orange = orange.offset(1,0) scan with orange .columns[1].value = type_horse .columns[2].value = hip_no .columns[3].value = name .columns[4].value = tattoo .columns[5].value = color .columns[6].value = sex .columns[7].value = gait .columns[8].value = date_foal .columns[9].value = sire1 .columns[10].value = dam1 .columns[11].value = sire2 .columns[12].value = bred_to .columns[13].value = last_bred .columns[14].value = preg_bar .columns[15].value = maiden .columns[16].value = cons_no .columns[17].value = consignor .columns[18].value = citystate .columns[19].value = ARR_NO .columns[20].value = stable .columns[21].value = row .columns[22].value = stall .columns[23].value = sire_state .columns[24].value = sbfname .columns[25].value = sblname .columns[26].value = sb_city .columns[27].value = sb_st .columns[28].value = sb_country .columns[29].value = amount .columns[30].value = day .columns[31].value = nameord endwith orange = orange.offset(1,0) endscan with oexcel.activesheet .columns[1].columnwidth = 5 .columns[2].columnwidth = 6.5 .columns[3].columnwidth = 20 .columns[4].columnwidth = 8.5 .columns[5].columnwidth = 3.5 .columns[6].columnwidth = 3.5 .columns[7].columnwidth = 3.5 .columns[8].columnwidth = 8.5 .columns[9].columnwidth = 20 .columns[10].columnwidth = 20 .columns[11].columnwidth = 20 .columns[12].columnwidth = 20 .columns[13].columnwidth = 8.5 .columns[14].columnwidth = 3.5 .columns[15].columnwidth = 3.5 .columns[16].columnwidth = 7 .columns[17].columnwidth = 35 .columns[18].columnwidth = 35 .columns[19].columnwidth = 6.5 .columns[20].columnwidth = 7 .columns[21].columnwidth = 7 .columns[22].columnwidth = 7 .columns[23].columnwidth = 12 .columns[24].columnwidth = 35 .columns[25].columnwidth = 35 .columns[26].columnwidth = 35 .columns[27].columnwidth = 10 .columns[28].columnwidth = 35 .columns[29].columnwidth = 10 .columns[30].columnwidth = 3.5 .columns[31].columnwidth = 20 endwith endwith .stcmbtype.value = " " .stcmbcons.value = " " .sttxtfhip.value = " " .sttxtlhip.value = " " .Stchkallmixed.value = 0 wait clear oexcel.visible = .t. endwith thisform.refresh James E Harvey Hanover Shoe Farms, Inc. M.I.S./Corresponding Officer Off: 717-637-8931 fax: 717-637-6766 email: [EMAIL PROTECTED] _______________________________________________ Post Messages to: ProFox@leafe.com Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.