Тема: CDO.Message: Отправка файла
Доброго Всем времени суток!
Помогите разобраться с проблемой отправки файла. Есть шаблон Excel. Записываю в него кое-какие данные, сохраняю под новым именем. Отправляю его при помощи CDO.Message
Письмо приходит, файл прикреплён, однако открыть его не могу. Вываливается сообщение "Документ поврежден и не может быть открыт".
Процедура отсылки письма
Function CDOMessage(varAddress, strPathFile)
Dim objMessage
Set objMessage = CreateObject("CDO.Message")
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xx.xx.xxxx.x"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = xx
objMessage.BodyPart.Charset ="windows-1251"
objMessage.Subject = "Мониторинг ПВД"
objMessage.From = "no-reply@yyyy.ru"
objMessage.To = varAddress
objMessage.AddAttachment strPathFile
objMessage.Configuration.Fields.Update
objMessage.Send
End Function
сам созданный файл прекрасно открывается. объектные переменные уничтожаю ДО отправки письма, т.е. файл ничто не держит...
Спасибо!