Всех с добрым утром и удачного всем дня.
Ребята, помогите, пожалуйста, решить такой вопрос: в разделе "Приёмы" есть такая тема:
«Отправка книги или листа по email»
Как быстро отправить всю книгу или отдельный лист по электронной почте на заданный адрес.
И дан следующий код:
Sub SendSheet()
ThisWorkbook.Sheets(1).Copy
With ActiveWorkbook
.SendMail Recipients:="vasya@pupkin.com", _
Subject:="Лови файлик"
.Close SaveChanges:=False
End With
End Sub
Всё работает отлично. Всё хорошо. Но есть одно маленькое "но": Когда я отправляю лист (формата EXCEL 2003) из EXCEL 2007, то программа автоматом создаёт и отправляет лист в формате EXCEL 2007. И получатель, у которого EXCEL 2003, полученный файл открыть уже не может. Как быть в таком случае? С уважением, Сергей.
Ребята, помогите, пожалуйста, решить такой вопрос: в разделе "Приёмы" есть такая тема:
«Отправка книги или листа по email»
Как быстро отправить всю книгу или отдельный лист по электронной почте на заданный адрес.
И дан следующий код:
Sub SendSheet()
ThisWorkbook.Sheets(1).Copy
With ActiveWorkbook
.SendMail Recipients:="vasya@pupkin.com", _
Subject:="Лови файлик"
.Close SaveChanges:=False
End With
End Sub
Всё работает отлично. Всё хорошо. Но есть одно маленькое "но": Когда я отправляю лист (формата EXCEL 2003) из EXCEL 2007, то программа автоматом создаёт и отправляет лист в формате EXCEL 2007. И получатель, у которого EXCEL 2003, полученный файл открыть уже не может. Как быть в таком случае? С уважением, Сергей.