Здравствуйте, есть код.
В конце хотела создавать 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 |
