Visual Basic 6.0
Visual Basic 6.0
Extract Linked Domains from an HTML Email
See more Email Object Examples
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 Visual Basic 6.0 Downloads
Dim success As Long
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.
Dim email As New ChilkatEmail
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.
Dim domains As New ChilkatStringTable
success = email.LinkedDomains(domains)
If (success = 0) Then
Debug.Print email.LastErrorText
Exit Sub
End If
Dim n As Long
n = domains.Count
Dim i As Long
For i = 0 To n - 1
Debug.Print domains.StringAt(i)
Next