Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Ломается файл при отправке через CDO.Message
 
Добрый день ув. форумчане.
Пытаюсь отправить книгу, без использования Outlook. В целом все получилось, но сам файл приходит на почту битый и открывается через раз. Пробовал отправлять в разных форматах - всегда одна и та же беда. Подскажите, пожалуйста, в чем может быть дело и как с этим бороться?

(почтовые адреса и путь к файлам из кода удалил)
 
Код
    With oMSG
        .To = "" 'адрес получателя1
        .From = "" 'адрес отправителя
        .Subject = "Тест" ' тема письма
        .BodyPart.Charset = "windows-1251" ' кодировака письма
                
        ThisWorkbook.Sheets("Statistic").Copy
        ActiveWorkbook.SaveAs ("")
        ActiveWorkbook.Close False
        
        .AddAttachment "" 'путь к вложенному файлу
        Kill ""
        .send 'отправляем
    End With
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Цитата
(почтовые адреса и путь к файлам из кода удалил)
 
Павел, что означает Ваша цитата себя? Я привел модифицированный кусок кода. Вы его попробовали?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Извините, не правильно понял ваше сообщение.
Спасибо что подправили код, но проблема осталась.
 
Значит проблема, скорее всего в том, как сохраняете.
Пример:
ActiveWorkbook.SaveAs "C:\Новая книга.xls",vbNormal
vbNormal - отвечает за тип файла. В данном случае это файл формата Excel 2003.

Если необходимо сохранить файл в том же формате, что и исходный файл:
ActiveWorkbook.SaveAs "C:\Новая книга.xls",ThisWorkbook.FileFormat
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
vbNormal - ругается Method 'SaveAs' of object '_Workbook' failed
ThisWorkbook.FileFormat - все равно битый.
 
Напишите нормально, как и что Вы сохраняете. Тогда можно будет помучаться. А так...Вместо vbNormal попробуйте 56.
Код
ActiveWorkbook.SaveAs "C:\Новая книга.xls", 56
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Данные прошли, но криво - есть пустые ячейки и некоторые числа перековерканы.
 
А возможно таблицу впихнуть в тело письма?
 
Проблема все еще актуальна. Предложите, пожалуйста, способ как ее решить, или обойти.
Заранее благодарен.
Страницы: 1
Читают тему (гостей: 1)