2 метода создания встречи, расположенной по адресу контакта в Outlook

Если вы хотите создать встречу с определенным контактом и использовать контактный адрес непосредственно в качестве места встречи. В этом случае вы можете применить 2 способа, представленных в этой статье.

Иногда вам может потребоваться назначить встречу с кем-то, кто является контактом в вашем Outlook, и использовать контактный адрес в качестве места встречи напрямую, рабочий адрес или домашний адрес. Формаost люди, мost знакомый метод — вручную создать встречу и скопировать контактный адрес в поле местоположения. Однако на самом деле с помощью Outlook VBA вы можете быстро получить его одним щелчком мыши. Теперь мы представим два способа соответственно.

Способ 1: скопируйте контактный адрес в новую встречу вручную

1. Прежде всего, запустите приложение Outlook.
2. Затем переключитесь на панель контактов.
3. Затем дважды щелкните исходный контакт, чтобы открыть его в отдельном окне.
4. Далее следует найти раздел «Адрес» и скопировать адрес.
5. После этого вы можете нажать на кнопку «Встреча» в группе «Общение» на вкладке «Контакты».
6. Позже будет встреча. Теперь вы можете щелкнуть поле «Местоположение» и нажать «Ctrl + V», чтобы вставить ранее скопированный адрес.
7. Наконец, чтобы превратить встречу в стандартную встречу, вы можете просто нажать кнопку «Отменить приглашение».

Способ 2: используйте Outlook VBA, чтобы сделать это в кратчайшие сроки

1. В самом начале нажмите сочетание клавиш «Alt + F11».
2. Затем в открывшемся окне редактора VBA можно открыть неиспользуемый модуль.
3. Затем скопируйте и вставьте в него следующие коды VBA.

Sub CreateAppointmentLocatedAtContactAddress()
    Dim objContact As Outlook.ContactItem
    Dim objAppointment As Outlook.AppointmentItem
    Dim nPrompt As Integer
 
    On Error Resume Next
    Set objContact = Application.ActiveExplorer.Selection.Item(1)
 
    If TypeOf objContact Is ContactItem Then
       Set objAppointment = Application.CreateItem(olAppointmentItem)
       objAppointment.Subject = "Appointment with " & objContact.FullName
 
       'Use the business address as the first choice
       If objContact.BusinessAddress <> "" Then
          With objAppointment
               .Location = objContact.BusinessAddress
               .Display
          End With
       'If no business address, then use the home address
       ElseIf objContact.HomeAddress <> "" Then
          With objAppointment
               .Location = objContact.HomeAddress
               .Display
          End With
       'If no address, then display a prompt
       Else
          nPrompt = MsgBox("You haven't filled in the contact's address!", vbExclamation, "Check Address")
       End If
    End If
End Sub

4. После этого добавьте макрос на панель быстрого доступа, как обычно.
5. В конце концов, вы можете попробовать.

• Сначала выберите контакт.
• Затем нажмите кнопку макроса на панели быстрого доступа.
• Сразу же отобразится новая встреча с контактным адресом в качестве местоположения, как показано на следующем снимке экрана:

Эффективно решать проблемы с Outlook

Чтобы эффективно избавиться от проблем с Outlook, рекомендуется подготовить надежный Исправление Outlook инструмент заранее, например DataNumen Outlook Repair. В противном случае, если вы просто ответите на средство восстановления папки «Входящие» Scanpst.exe, вы, наконец, обнаружите, что оно бесполезно в случае серьезных сбоев Outlook. Более того, гораздо лучше, если у вас выработалась хорошая привычка регулярно делать резервные копии данных.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com