![将添加输入到传真地址的数字的宏](https://linux22.com/image/1543786/%E5%B0%86%E6%B7%BB%E5%8A%A0%E8%BE%93%E5%85%A5%E5%88%B0%E4%BC%A0%E7%9C%9F%E5%9C%B0%E5%9D%80%E7%9A%84%E6%95%B0%E5%AD%97%E7%9A%84%E5%AE%8F.png)
我有一个传真查找器,我们用它来发送传真。这可以通过 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