Макрос отправки писем VBA 7

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос отправки писем VBA 7 (Макросы/Sub)

sboy

Дата: Понедельник, 09.01.2017, 10:05 | Сообщение № 1

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Доброго дня!
На работе установили 2010 офис и перестал работать макрос отправки писем
[vba]

Код

Set OutApp = CreateObject("Outlook.Application")
            OutApp.Session.Logon
            Set OutMail = OutApp.CreateItem(0)
                        With OutMail
                            .To = Mail_name
                            .CC = ""
                            .Subject = "Продажи " & Date
                            .Body = ""
                            .Attachments.Add snf
                            .Send
                        End With
            Set OutMail = Nothing
            Set OutApp = Nothing

[/vba]
Ошибка на первой строке (приведенного куска)
err.Description выдает ActiveX component can't create object

Яндекс: 410016850021169

Ответить

sboy

Дата: Понедельник, 09.01.2017, 10:56 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Поторопился с созданием темы.
Более тщательный поиск дал ответ на планете, проблема решается с помощью доп функции
[vba]

Код

Function GetObj() As Object
Dim i&
    On Error Resume Next
    For i = 20 To 8 Step -1
        Set GetObj = CreateObject("Outlook.Application." & i)
        If Not (GetObj Is Nothing) Then
            Exit For
        End If
    Next
    If GetObj Is Nothing Then MsgBox "объект не создан"
End Function

[/vba]

Яндекс: 410016850021169

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос отправки писем VBA 7 (Макросы/Sub)

Страница 1 из 1
1