Не удалось получить 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 и может предлагать автозавершения из этой библиотеки. Пример:

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

  • Как экспортировать элемент почты в файл Excel
  • Экспорт электронной почты из папок Outlook в Excel. Проблема с кодированием
  • Excel Macro для создания электронных писем работает только при открытии IDE
  • Добавить изображение в тело письма и подпись в Outlook через Excel-Vba
  • Как создать соединение / ссылку между Excel и электронной почтой Outlook?
  • Захват графов (объектов) в пределах выделения
  • VBA: выберите первую отфильтрованную ячейку, затем перейдите на следующую
  • Отправка с дополнительной учетной записи электронной почты в Outlook
  • выберите, на какую учетную запись отправить адрес электронной почты Outlook?
  • Экспорт электронной почты / органа электронной почты с темой «ПРЕДУПРЕЖДЕНИЕ: Ошибка доставки сообщений» из Outlook 2007
  • Убить места в теле почты Outlook
  • Interesting Posts
    Давайте будем гением компьютера.