如何在Outlook VBA中执行类型检查

时间:2019-05-22 12:27:18

标签: vba outlook

我正在编写一个宏,用于读取邮件并自动编写回复。我正在阅读的邮件是HTML格式的,因此我正在使用<button mat-menu-item></button>。我创建了一个“元素”,如下所示:

menuData.menuItems

这工作正常,但是我不喜欢硬编码类型检查。

在当前窗口中,我正在尝试使用<button mat-menu-item *ngFor="let item of aliasMenuItems"> Item {{item.code}}: {{item.name}} </button> ,但这无法正常工作,如您所见:

Microsoft HTML Object library

但是,在其他情况下,Dim element As MSHTML.IHTMLElement ... Set oExplorer = Application.ActiveExplorer If oExplorer Is Nothing Then MsgBox "No current mail" Else Set NewMail = oExplorer.Selection.Item(1) HtmlDoc.Body.innerHTML = NewMail.HtmlBody ... For Each element In HtmlDoc.all: If TypeName(element) = "HTMLHeaderElement" Then ... If ((InStr(1, element.innerText, "_Something", vbTextCompare)) And _ (TypeName(element) = "HTMLTableCell") And _ (customerName <> "")) Then ... 似乎运行良好:

TypeOf

有人知道我如何避免使用硬编码的类型名称,为什么? TypeName(element) HTMLTableCell <= this, I know, is correct ? TypeOf element Is HTMLHeaderElement True <= this, I know, is wrong!!! 有时会起作用,而有时却不会?

预先感谢

0 个答案:

没有答案