我正在使用命名插座来显示侧边栏。工作正常:
router.navigate(['/', {outlets: {sidebar: 'profile'}}])
我还有一个按钮,点击它,关闭侧边栏。也可以正常工作:
router.navigate(['/', {outlets: {sidebar: null}}])
另一个按钮应关闭侧栏并使用矩阵参数路由到联系人
router.navigate(['/', {outlets: {sidebar: null, primary: "contacts"}}]">
我能够路由,但无法传递参数。
答案 0 :(得分:2)
我不确定你到目前为止所尝试的是什么,但是这样会有用吗?
Sub SendBasicEmail()
Dim olApp As Outlook.Application
Dim olEmail As Outlook.MailItem
Set olApp = New Outlook.Application
Set olEmail = olApp.CreateItem(olMailItem)
'set your range as needed, i chose one named "recipients"
bc_r = ""
For each cl in range("recipients")
bc_r = bc_r & "; " & cl.Value
Next cl
With olEmail
.BodyFormat = olFormatHTML
.Display
.HTMLBody = "<h3>Testing</h3><br>" & "<br>" & .HTMLBody
.Attachments.Add "xxx/test.pdf"
.To = ""
.BCC = bc_r
.Subject = "Test Message"
'.Send
End With
End Sub