añade esta linea
if (filen > '') then header := header + '&attachment="' + filen+'"';
filen es un string más, que lo declaras junto a mailto,mailsubject etc...
y donde haces MailTo := 'foro@clubdelphi.com';, etc... haces
filen := 'c:\s.txt';
a ver que tal
PD:Copiate la lines,haz un copy paste de la linea, porque parecen comillas simples, y hay algunas comillas dobles
saludos
|