Question

我使用此VBA代码从Outlook中的HTML电子邮件填充网站文本区域。

我想在保留文字的同时从"website"website删除HYPERLINK "mailto:email@email.com"email@email.com和HYPERLINK mailitem.body。

我该怎么做？

ie.document.getElementById("message").Value = Replace(objItem.Body, vbCrLf & vbCrLf, vbCrLf)

一些例子：

www.google.com

在textarea中以HYPERLINK＆＃34; www.google.com＆＃34; www.google.com的形式出现发来的电子邮件是HYPERLINK＆＃34; mailto：dr_patso@email.com" dr_patso@email.com

Answer 1

使用此功能，开始使用“txt”代替objitem.body进行填充。

If objItem.BodyFormat = olFormatHTML Then
txt = objItem.Body
strt = InStr(txt, "HYPERLINK")
do until strt = 0
  nd = InStr(strt + 13, txt, """")
  txt = Left(txt, strt - 1) & Mid(txt, nd + 1)
  strt = InStr(txt, "HYPERLINK")
loop
End If

If objItem.BodyFormat = olFormatRichText Then
txt = objItem.Body
strt = InStr(txt, " HYPERLINK")
do until strt = 0
  nd = InStr(strt + 13, txt, """")
  txt = Left(txt, strt - 1) & Mid(txt, nd + 2)
  strt = InStr(txt, " HYPERLINK")
loop
End If

然后用body ...填充文本区域。

如果objItem.BodyFormat = olFormatHTML那么 ie.document.getElementById（“message”）。Value = Replace（txt，vbCrLf＆amp; vbCrLf，vbCrLf）万一如果objItem.BodyFormat = olFormatPlain然后 ie.document.getElementById（“message”）。Value = objItem.Body 万一如果objItem.BodyFormat = olFormatRichText那么 ie.document.getElementById（“message”）。Value = txt 结束如果

从HTML电子邮件填充网站文本区域

1 个答案: