Solved: Send a copy of Excel file.

[Marcster]

The code below helped me with a previous thread and
was submitted kindly by xld.


[VBA] 'Coded by xld
'Remove all VBA code in all modules:
Dim oVBComp As Object
Dim oVBComps As Object

Set oVBComps = ActiveWorkbook.VBProject.VBComponents


For Each oVBComp In oVBComps
Select Case oVBComp.Type
Case 1, 3, 2
oVBComps.Remove oVBComp
Case Else
With oVBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next oVBComp [/VBA]





Can the above be extended so it saves a copy of the workbook to disk
then sends that copy as an attachment via Outlook 2000?.
Thanks,

Marcster