Classic ASP

Extract Linked Domains from an HTML Email

Demonstrates the Chilkat Email.LinkedDomains method, which extracts the domain names from the hyperlinks in an HTML email. Lowercase domains are appended to a StringTable without creating duplicates. This example sets an HTML body with several links and lists the distinct domains.

Background: The set of domains a message links to is a strong signal for spam and phishing analysis — legitimate mail usually points at a few expected domains, while abusive mail often hides links to many unrelated or look-alike hosts. LinkedDomains gives you that de-duplicated list directly. Note it only parses the links; it does not fetch them, so no network request is made.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

'  Demonstrates the LinkedDomains method, which extracts the domain names from the
'  hyperlinks in an HTML email.  Lowercase domains are appended to a StringTable without
'  creating duplicates.

set email = Server.CreateObject("Chilkat.Email")
email.Subject = "LinkedDomains example"

'  An HTML body containing several hyperlinks.
email.SetHtmlBody "<html><body>Visit <a href=""https://www.example.com/page"">Example</a>, <a href=""http://sales.contoso.com"">Contoso</a>, and <a href=""https://www.example.com/other"">Example again</a>.</body></html>"

'  Extract the linked domains into a StringTable.
set domains = Server.CreateObject("Chilkat.StringTable")

success = email.LinkedDomains(domains)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( email.LastErrorText) & "</pre>"
    Response.End
End If

n = domains.Count

For i = 0 To n - 1
    Response.Write "<pre>" & Server.HTMLEncode( domains.StringAt(i)) & "</pre>"
Next

%>
</body>
</html>