Добрый день!
Заранее извиняюсь если подобное есть, но я не нашел
Имеем макрос для отправки листа по почте
Проблема в следующем.
Надо, что бы при создании документа, который полетит по почте, разрывались связи с другим листом.
Заранее извиняюсь если подобное есть, но я не нашел
Имеем макрос для отправки листа по почте
Код |
---|
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 - 01.02.2013 22:42:28