มาโครที่จะเพิ่มหมายเลขที่ป้อนลงในที่อยู่แฟกซ์

ฉันมีเครื่องโทรสารที่ใช้ในการส่งแฟกซ์ ซึ่งสามารถทำได้ผ่าน 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

ใช่.

คุณสามารถเปลี่ยนตัวแปรของ FaxTo และต่อท้ายข้อความก่อนและหลัง

ในกรณีของคุณส่วนหนึ่งของรหัสของคุณจะกลายเป็นดังต่อไปนี้ (ฉันคัดลอกโค้ด 2 บรรทัดที่เหลือเท่านั้น)

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