ActiveWorkbook.SaveAs Filename:= _
"C:\Book1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
"C:\Book1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
..........
Content-Type: application/octet-stream
Content-Length: xxxx
Content-Disposition: attachment; filename=filename.xls
..........