Блог

Главная - Вопросы по программированию - Создайте контакт в Outlook 2016

Создайте контакт в Outlook 2016

#vba #outlook

#vba #outlook

Вопрос:

Я искал и нашел несколько предложений по использованию VBA и созданию нового контакта Outlook, ни одно из которых, похоже, не работает.

Я пытаюсь создать новые контакты, используя электронную таблицу Excel для данных. Я могу создавать новые электронные письма из этих же данных, я просто не могу получить правильный код для создания новой контактной формы.

Все предложения, которые я нашел на других досках объявлений, похоже, предназначены для более старых версий Outlook, и, по-видимому, они изменились с момента их публикации.

Именно здесь у меня возникают проблемы:

 Public Sub CreateNewContact()
Dim contactItem  As Outlook.contactItem 
Set contactItem = Application.CreateItem(olContactItem)    
contactItem.FullName = "Greg Thatcher"
contactItem.Email1Address = "gregt@xobni.com"
contactItem.BusinessTelephoneNumber = "415 555 1212"
contactItem.HomeTelephoneNumber = "415 555 1234"
contactItem.MobileTelephoneNumber = "415 555 1236"
contactitem.display    
End Sub

'''

Любая помощь будет с благодарностью,

Комментарии:

1. В чем проблема? Для меня это выглядит совершенно нормально.

Ответ №1:

У меня тоже были некоторые проблемы с вашим кодом (ошибка времени выполнения 438). Я решил проблемы с этим кодом (я добавил Dim myOutlook As Outlook.Application и Set contactItem = myOutlook.CreateItem(olContactItem) ):

 Public Sub CreateNewContact()
   Dim myOutlook As Outlook.Application
   Dim contactItem As contactItem

   Set myOutlook = CreateObject("Outlook.Application")
   Set contactItem = myOutlook.CreateItem(olContactItem)
   
    contactItem.FullName = "Greg Thatcher"
    contactItem.Email1Address = "gregt@xobni.com"
    contactItem.BusinessTelephoneNumber = "415 555 1212"
    contactItem.HomeTelephoneNumber = "415 555 1234"
    contactItem.MobileTelephoneNumber = "415 555 1236"
    contactItem.display
End Sub

Комментарии:

1. Он выдает ошибку «Dim myoutlook как outlook.application» с «Определяемый пользователем тип не определен»

2. Добавьте ссылку: Инструмент> Ссылки> Библиотека объектов Microsoft Outlook 16.0

3. Библиотека уже проверена, и у меня есть другой модуль, который создает электронные письма Outlook, и он работает нормально. Команда Set идентична. Это меня полностью сбило с толку. Это должно быть что-то простое, чего я просто не вижу, потому что я слишком долго смотрел на это.

4. Попробуйте это: Dim myOutlook As Object и Dim contactItem As Object . Обратите внимание, должна быть установлена справочная библиотека объектов Microsoft Outlook 16.0.

5. Библиотека установлена, и я попробовал затемнения как объекты.. Когда я это делаю, он выдает ошибку (438 — Объект не поддерживает это свойство или метод)) в contactitem. Строка с полным именем. Такое ощущение, что он не создает карточку контакта и, следовательно, не находит имена полей для заполнения.

Метки: