Macro que adicionará o número inserido no endereço de fax

Question

Eu tenho um fax appliance de fax que usamos para enviar faxes. Isso pode ser feito através do Outlook formatando os endereços como, [email protected]. Eu criei a macro abaixo que irá abrir uma caixa e pedir o número de fax e, em seguida, coloca esse número no campo Para de um email.

Existe uma maneira de eu acrescentar o resto do endereço a qualquer número digitado? Quero facilitar para os usuários, para que eles não precisem lembrar do restante do endereço.

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

    

Answer 1

Sim.

Você pode alterar a variável de FaxTo e acrescentar texto antes e depois.

No seu caso, parte do seu código se tornaria o seguinte (eu apenas copio as duas linhas de código que o resto entra no meio)

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