☰

将添加输入到传真地址的数字的宏

tag-icon • tag-icon microsoft-outlook vba macros
将添加输入到传真地址的数字的宏

我有一个传真查找器，我们用它来发送传真。这可以通过 Outlook 完成，方法是将地址格式化为：[电子邮件保护]。我创建了下面的宏，它将弹出一个框并要求输入传真号码，然后将该号码放在电子邮件的收件人字段中。

有没有办法让我将地址的其余部分附加到输入的数字上？我想让用户轻松一点，这样他们就不必记住地址的其余部分。

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

是的。

您可以更改 FaxTo 的变量并在其前后附加文本。

在你的情况下，你的部分代码将变成如下（我只复制了其余部分介于两者之间的两行代码）

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

相关内容