问题描述
我创建了一个Dart HttpServer,它在浏览器上显示“ HTML”代码,但我也想将“ CSS”和“ JS”连接到此HTML, 我该怎么办?请帮助
Private Sub Application_ItemSend(ByVal Item As Object,Cancel As Boolean)
Dim objMailPuvodni As Outlook.MailItem
Dim CurrentItem As Object
Dim lngOdpoved As Long
Select Case TypeName(Application.ActiveWindow)
Case "Inspector"
Set objMailPuvodni = Application.ActiveInspector.CurrentItem
Case "Explorer"
If Application.ActiveExplorer.Selection.Item(1).Class = _
OlObjectClass.olMail Then
Set objMailPuvodni = _
Application.ActiveExplorer.Selection.Item(1)
End If
End Select
lngOdpoved = MsgBox("text",_
vbQuestion + vbYesNoCancel + vbDefaultButton2,_
"Send")
Select Case lngOdpoved
Case vbCancel
Cancel = True
Case vbNo
Cancel = False
Case vbYes
Call SifrovatZip(objMailPuvodni)
Cancel = True
End Select
Set objMailPuvodni = nothing
End Sub
PS 1:一种解决方案是在HTML代码中添加CSS和JS代码,该方法可以运行,但效率较低。
解决方法
- 只需使用html标签。
- 不要忽略html标记导入的每个源都是一个http请求。您应该处理这些请求。 Dart HttpServer无法处理这些。