Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Отправка листа по почте. Разорвать связи.
 
Добрый день!
Заранее извиняюсь если подобное есть, но я не нашел

Имеем макрос для отправки листа по почте

Код
Sub Mail_heinekenprobmail() Dim strdate As String Worksheets("Заказ-Наряд" ;) .Copy strdate = Format(Date, "dd.mm.yyyy" ;)  ActiveWorkbook.SaveAs "Заявка " & ActiveWorkbook.ActiveSheet.[g2] & " дата " & ActiveWorkbook.ActiveSheet.[c6] & ".xls" ActiveWorkbook.SendMail "qqqqq@qq.ru", _ "Заявка на ремонт" & ActiveWorkbook.ActiveSheet.[g2] ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End Sub



Проблема в следующем.
Надо, что бы при создании документа, который полетит по почте, разрывались связи с другим листом.
Изменено: SergeI - 1 Фев 2013 22:42:28
 
Код
Worksheets("Заказ-Наряд").Copy
Activesheet.usedrange.Value = Activesheet.usedrange.Value
'далее по тексту


P.S. Оформляйте листинги кодов тегами Code(<...>)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Весьма благодарен.

про оформления не совсем понял
 
Цитата
про оформления не совсем понял
Посмотрите как выглядит мой код в сообщении и как Ваш. Найдите отличия. Прочитайте мое сообщение. Попробуйте создать новое, но уже обращая внимание на ряд иконок над полем для создания сообщения(там, где смайлики еще есть).
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Исправил, на будущее буду иметь ввиду

Еще раз спасибо за помощь
Страницы: 1
Читают тему (гостей: 1)
Наверх