need macro for create new email message and send it
 

In excel 2000 ,

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


best regards

need macro for create new email message and send it
 

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

need macro for create new email message and send it
 

thanks norman it was very very helpful

need macro for create new email message and send it
 

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

need macro for create new email message and send it
 

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