Автоматическое вложение файла к письму в зависимости от даты (outlook)

[Kinghandles]

Всем привет.. ребята нужна небольшая помощь .. не могу понять в чем дело.. задача такова: есть файл в котором содержится кнопка по нажатию которой формируется письмо с вложенным файлом, файл который нужно вложить имеет переменную в название и в зависимости от даты (Daily sales report 17 November 2013 St-Petersburg)

Вот сам код с помощью которого я пытаюсь это сделать, но к с сожалению пока что ничего не выходит , письмо создается без вложения, .. буду очень благодарен за помощь

Sub Отправка3_Click()
Dim OutlookApp As Object, SM As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set SM = OutlookApp.CreateItem(olMailItem)
SM.To = ""
SM.Subject = ""
On Error Resume Next
SM.Attachments.Add ("C:\Users\Kodak\Desktop\Отчеты\Dai ly sales report " & Application.Text(Date, "[$-409]dd mmmm yyyy") & " St-Petersburg.xlsx")
SM.Display
Set SM = Nothing
Set OutlookApp = Nothing
End Sub

[doober]

А,что,здесь не решили свой вопрос?
Или вы думаете, что на разных форумах,вам будут отвечать другие.

[Kinghandles]

Сообщение от doober

А,что,здесь не решили свой вопрос?
Или вы думаете, что на разных форумах,вам будут отвечать другие.

было бы здорово скорее решить свой вопрос =)) .. я считаю что он не такой уж и трудный для людей который разбираются в этом....

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

[Kinghandles]

Вопрос решен =) путем выпрямления своих кривых рук =))