本示例设置用户的寄信人地址。Chr 函数用于返回换行符。
Application.UserAddress = "4200 Third Street NE" & Chr(10) _
& "Anytown, WA 98999"