Здравствуйте, есть код.
В конце хотела создавать email, вставлять получателей, тему, текст в тело письма и чтобы оно оставалось открытым.
Почему-то выдает ошибку "Active X component can't create object". Не могли бы подсказать,какая может быть проблема?
Вот пример кода для создания емейла.
В конце хотела создавать email, вставлять получателей, тему, текст в тело письма и чтобы оно оставалось открытым.
Почему-то выдает ошибку "Active X component can't create object". Не могли бы подсказать,какая может быть проблема?
Вот пример кода для создания емейла.
Код |
---|
Dim OutApp As Object Dim OutMail As Object Dim cell As Range Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") --------------------------на этом шаге выдает ошибку OutApp.Session.Logo On Error GoTo cleanup Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "myemail@address" .CC = "" .Subject = "test email" .Body = "Test is successful" '.Attachments.Add Range("A4").Value .Display End With On Error GoTo 0 Set OutMail = Nothing cleanup: Set OutApp = Nothing Application.ScreenUpdating = True |