In excel 2000 ,

1. need macro for create new email message and send it.
2. need macro that rename file , delete file.


best regards

Hi Yuvalbra,

1. need macro for create new email message and send it.

See Ron de Bruin's extensive range of email code at:

http://www.rondebruin.nl/sendmail.htm


2. need macro that rename file , delete file.

'=============
Public Sub Tester()
Const sFilename As String = "OldName.xls" '<<=== CHANGE
Const sNewName As String = "NewName.xls" '<<=== CHANGE

Workbooks(sFilename).SaveAs sNewName
Kill sFilename

End Sub
'<<=============


---
Regards,
Norman

thanks norman it was very very helpful

i need function to check if exist file name in folder

thanks



Norman Jones wrote:
Hi Yuvalbra,

1. need macro for create new email message and send it.

See Ron de Bruin's extensive range of email code at:

http://www.rondebruin.nl/sendmail.htm


2. need macro that rename file , delete file.

'=============
Public Sub Tester()
Const sFilename As String = "OldName.xls" '<<=== CHANGE
Const sNewName As String = "NewName.xls" '<<=== CHANGE

Workbooks(sFilename).SaveAs sNewName
Kill sFilename

End Sub
'<<=============


---
Regards,
Norman

Hi Yuvalbra,

i need function to check if exist file name in folder

Try:

'=============
Function FileExists(FileName As String, _
Optional FilePath As String) As Boolean
If Len(FilePath) Then
If Right(FilePath, 1) < "\" Then
FilePath = FilePath & "\"
End If
End If
FileExists = Len(Dir(FilePath & FileName)) 0
End Function
'<<=============


'=============
Public Sub TestIt()
MsgBox FileExists("Test1.xls", "C:\B\AA\AA2\")
End Sub
'<<=============

By the way, it is conventional to open a new thread for distinct question.



---
Regards,
Norman