Цитата |
---|
john22255 написал: наверное ошибку бы выдавал макрос |
нет. Уберите On Error Resume Next и проверьте работу.
По идее, Outlook можно вызывать всегда методом CreateObject("Outlook.Application") - если он уже запущен, будет подключение к существующему экземпляру. Т.е. проверка через GetObject совершенно не обязательна и для проверки работы кода этот блок можно убрать, оставив лишь нужное:
Код |
---|
Dim objOutlookApp As Object, objMail As Object
Dim sTo As String, sSubject As String, sBody As String, sAttachment As String
Application.ScreenUpdating = False
Set objOutlookApp = CreateObject("Outlook.Application")
objOutlookApp.Session.Logon
Set objMail = objOutlookApp.CreateItem(0) 'создаем новое сообщение |
Возможно, Outlook конфликтует с 2007 офисом или просто "криво" установлен и в итоге подключения просто не происходит.
Тоже самое с PDF - посмотрите, нет ли где выше по коду On Error Resume Next и уберите(или закомментируйте). В 2007 может экспорт не работать, если не подключен специальный PDF принтер. Начиная с 2010 он уже как бы встроен, а в 2007 вроде бы надо было проверять, что он точно есть. Или установить все доступные для офиса обновления - в каком-то из них накатывался этот принтер вроде бы.