VBScript

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 VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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 = 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 = CreateObject("Chilkat.StringTable")

success = email.LinkedDomains(domains)
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

n = domains.Count

For i = 0 To n - 1
    outFile.WriteLine(domains.StringAt(i))
Next

outFile.Close