Не удалось получить Excel для создания электронной почты

Когда я запускаю свой макрос для создания электронной почты, он останавливается на первом шаге, который я проверил, и проверяются MS Office и MS Outlook,

С кодом;

Dim OutApp As Outlook.Application 

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

и с кодом;

 Dim OutlookApp As Object Set OutlookApp = CreateObject("Outlook.Application") 

Я получаю

active x не может создать объект

Я пробовал работать как администратор, и с закрытием и открытием Outlook, все еще не могу заставить его создать беспорядок.

 Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Dim Email As String, Subj As String Dim answer As Integer Dim Msg As String, body As String, URL As String Dim OutApp As Object, OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = Email .CC = vbNullString .BCC = vbNullString .Subject = Subj .body = body .Display End With On Error GoTo 0 

Вот два рабочих решения для вас:

 Public Sub UsingEarlyBinding() 'A reference to the Microsoft Outlook XX Object Library is 'necessary to run this code (as mentioned by @gizlmeier) Dim OutlookApp As Outlook.Application Dim objEmail As Object Set OutlookApp = New Outlook.Application Set objEmail = OutlookApp.CreateItem(olMailItem) objEmail.Display End Sub 

,

 Public Sub UsingLateBinding() 'No references are necessary to run this code Dim OutlookApp As Object Dim objEmail As Object Set OutlookApp = CreateObject("Outlook.Application") Set objEmail = OutlookApp.CreateItem(0) objEmail.Display End Sub 

Преимущество использования первого решения заключается в том, что вы видите раскрывающееся меню в VBE (при написании кода), предлагающее автозаполнение. Это связано с тем, что VBE распознает (со ссылкой) библиотеку Outlook и может предлагать автозавершения из этой библиотеки. Пример:

введите описание изображения здесь

  • Отправка писем с помощью Outlook 2013 / Excel 2013
  • Вставка таблицы Excel в электронном письме Outlook: он оглядывается назад
  • Отправка с дополнительной учетной записи электронной почты в Outlook
  • Office 2013 - VBA Email не отображает переменные To / CC / BCC
  • Excel создает электронную почту Outlook, но текст не выравнивается
  • Текстовое поле подсказки, которое будет сохранять форматирование Outlook
  • Добавить изображение в тело письма и подпись в Outlook через Excel-Vba
  • VBA: Поиск электронной почты в почтовом ящике не по умолчанию?
  • Экспорт электронной почты из папок Outlook в Excel. Проблема с кодированием
  • Код Excel VBA для чтения имени пользователя из ячейки, затем отправьте электронное письмо этому пользователю
  • Вставить содержимое ячеек в Outlook, поддерживая форматирование
  • Interesting Posts

    Формула с утверждением IF и условием

    редактирование таблицы с помощью vba

    Автоматическая копирование-вставка из Excel в Word работает, но нет форматирования источника

    VBA. Мой код выполняет либо окраску, либо изменение формы, но «забывает» делать как

    Написание функции VLOOKUP в vba

    SSIS Как загрузить информацию из листа заметок Excel

    Использование VBS для сортировки столбца в excel при сохранении расширенного выбора

    Macro Excel: InputBox для ввода строк и столбцов

    Копирование диаграммы из одной книги в другую

    Если Statement не оценивает значение True при сравнении даты ввода и даты в другой книге

    Я не могу заставить этот код работать, это «ошибка несоответствия типа»,

    Как перенести текст из одного файла excel в другой с помощью vb.net

    Использование ASP / VBScript для записи в файл Excel

    Сохранение нескольких файлов CSV как XLS

    Как я могу перезаписать другой файл Excel без диалога «На самом деле хочу переписать» в VB.NET

    Давайте будем гением компьютера.