Доброе утро всем!!!

Помогите пожалуйста со следуюшей проблемой
есть активные лист экселя с кнопкой, которая отправляет этот лист по почте в txt формате адресату.
немогу догнать как сделать так, что приложенный файл назывался бы как дата и время((


Sub Макрос1()
Dim data As Date
Dim data1 As String
data1 = Date + Time

Application.Dialogs(xlDialogSendMail).Show "Адрес"


End Sub

или вот, но здесь 2 проблемы
1 файл не может быть сохранён на С так как он закрыт от записи, а на подпапки не получится так как файл предназначен для разных людей.
2 сохранёный файл, скотинка не хочет закрываться


Private Sub CommandButton1_Click()
Dim oOutlook As New Outlook.Application
Dim oMessage As Outlook.MailItem
Dim fl As FileSystemObject
Dim filik As String
Dim CurrentDate As Date
'Dim MyChar
CurrentDate = (Date + Time)

Debug.Print CurrentDate


ChDir "C:\Documents and Settings\Asivakov\?aai?ee noie"
ActiveWorkbook.SaveAs Filename:= _
"C:*.txt" _
, FileFormat:=xlText, CreateBackup:=False
'File.Close




Set oMessage = oOutlook.CreateItem(olMailItem)

oMessage.To = "Sivakov Aleksey"

oMessage.Subject = "****"


oMessage.Body = "****"
'Aiaaaeyai aei?aiea
oMessage.Attachments.Add ("C:\*.txt")

'oMessage.Display

oMessage.Send
Set fl = New FileSystemObject
filik = "C:\*.txt"

Application.DisplayAlerts = False
fl.DeleteFile filik, True

'Application.Dialogs(xlDialogSendMail).Show
End Sub