Saving then Delete Workbook

[Guest]

Is there a way to save a temp file so that I can send an e-mail then have it
delete when the e-mail is sent? I'm using a macro to send the e-mail.

 

[Guest]

hi,
Try something like this.....
Sub SaveSendDelete()
Dim StrPath As String
Dim StrFileName As String
Dim StrToDelete As String
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\Book1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkBook.Close

' your email macro

StrPath = "c:\" ' the folder path
StrFileName = InputBox("Enter File Name")
StrToDelete = StrPath & StrFileName & ".xls"
On Error GoTo Err
Kill StrToDelete
MsgBox ("File " & StrFileName & ".xls" & " deleted!")
Exit Sub
Err: MsgBox "Whao!! ERROR!!! File NOT deleted!!"
End Sub

since i have not seen your email macro....edit above to fit your machine.
worked on my machine. except for the email part. using xp

regards
FSt1