У меня есть факс-факс, который мы используем для отправки факсов. Это можно сделать с помощью outlook, отформатировав адреса следующим образом: FAX=FaxNumber@faxfinder.domain.local. Я создал приведенный ниже макрос, который откроет окно и попросит указать номер факса, а затем поместит этот номер в поле «Кому» электронной почты.

Могу ли я добавить остальную часть адреса к любому введенному номеру? Я хочу, чтобы пользователям было легко, чтобы они не запоминали остальную часть адреса.

Public Sub CreateNewMessage()
Dim objMsg As MailItem

Set objMsg = Application.CreateItem(olMailItem)

FaxTo = InputBox("Please enter fax number")
 With objMsg
  .To = FaxTo


  .Display
End With

Set objMsg = Nothing
End Sub

1 ответ1

0

Да.

Вы можете изменить переменную FaxTo и добавить текст до и после.

В вашем случае часть вашего кода будет выглядеть следующим образом (я копирую только две строки кода, между которыми проходит остальная часть)

FaxTo = InputBox("Please enter fax number")
'new code here
FaxTo = "FAX=" & FaxTo & "@faxfinder.domain.local"
'end of new code
 With objMsg

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .