Visual FoxPro

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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL loDomains
LOCAL n
LOCAL i

lnSuccess = 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.

loEmail = CreateObject('Chilkat.Email')
loEmail.Subject = "LinkedDomains example"

*  An HTML body containing several hyperlinks.
loEmail.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.
loDomains = CreateObject('Chilkat.StringTable')

lnSuccess = loEmail.LinkedDomains(loDomains)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    RELEASE loDomains
    CANCEL
ENDIF

n = loDomains.Count

FOR i = 0 TO n - 1
    ? loDomains.StringAt(i)
NEXT

RELEASE loEmail
RELEASE loDomains