Ошибка выполнения 429 - Active X не может отправить письмо - PullRequest
Новая
       13

Ошибка выполнения 429 - Active X не может отправить письмо

0 голосов
/ 25 июня 2019

Я создал макрос ниже, но при попытке отправить ошибку я получаю сообщение об ошибке: 

 Set OutApp = CreateObject("Outlook.Application")

Это успешно работало в течение нескольких недель, прежде чем я получил следующую ошибку. Это происходит на нескольких созданных мной макросах отправки электронной почты. 

Sub SSTrades()

    Rows("1:14").Select
    Selection.Delete Shift:=xlUp
    Columns("R:R").Select
    Selection.Insert Shift:=xlToRight
    Range("R1").Select
    ActiveCell.FormulaR1C1 = "SS ID"
    Range("R2").Select
    Selection.End(xlToLeft).Select
    Selection.End(xlUp).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlUp).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlUp).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlUp).Select
    File Location And Name
    ActiveWorkbook.SaveAs ("File Location " & Format(Now(), "DD-MM-YY") & ".xlsx")


    Dim OutApp As Object
    Dim OutMail As Object
    Dim Filename As String
    Dim strbody As String


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)


    CarryOn = MsgBox("Do you want to send FX Report ", vbYesNo, "Continue?")

    If CarryOn = vbYes Then

    email body desciption
    strbody = "<font size=""3"">" & _
              "Hi All,<br><br>" & _
              "Please find attached the daily FX report" & "<br>"


    On Error Resume Next
    With OutMail
        .Display
        .to = "Teams"
        .CC = "TEAM"
        .BCC = ""
        .Subject = " FX Trades " & Date
        .HTMLBody = strbody & .HTMLBody
        .Attachments.Add ActiveWorkbook.FullName
        'You can add other files also like this
        .SentOnBehalfOfName = "team"
        .send
    End With

    MsgBox ("Complete")

    End If

    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

Ошибка выполнения TIme '429' Active X компонент не может создать объект

1 Ответ

0 голосов
/ 25 июня 2019

Прежде всего, убедитесь, что вы запускаете оба приложения в одном и том же контексте безопасности (запуск от имени администратора или без прав администратора).

В Вы получаете ошибку времени выполнения 429 при автоматизации приложений Office. В статье описаны возможные причины описанной ошибки.

Не ясно, с какой версией Office вы имеете дело, поэтому может пригодиться следующая информация:

Версия Office 2010 для Click2Run не поддерживает автоматизацию. Для получения дополнительной информации см. Совместимость Click-to-Run в Office 2010 с надстройками . Кроме того, вы можете найти статью Как проверить, является ли приложение Outlook работоспособным на компьютере .

...