Example:

'****************************************************************************
' CreateFootnotesFromHyperlinks - Copyright (c) 2004 Per Soderlind
'
' The macro creates footnotes from HTML hyperlinks
'
' NOTE:  Very useful when run against web pages containing a lot of
'      links -- after having first cut and pasted the web page into word.
'      The macro is only tested in Microsoft Word 2003
'
' This work is licensed under a Creative Commons License:
'        http://creativecommons.org/licenses/by-nc-sa/2.0/
'
'****************************************************************************
Option Base 1
Public Sub CreateFootnotesFromHyperlinks()
Dim MyRange As Range, i As Long, linkFound As Boolean

linkFound = False
Btn = MsgBox("Create footnotes from hyperlinks?" + Chr(13) + Chr(13) _
+ "NOTE: Hyperlinks will be removed from the document", vbYesNo, "Create Footnotes from Hyperlinks")

If Btn = vbNo Then Exit Sub

For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
If Len(Trim(ActiveDocument.Hyperlinks(i).Address)) > 0 Then
linkFound = True
Set MyRange = ActiveDocument.Hyperlinks(i).Range
ActiveDocument.Footnotes.Add Range:=MyRange,         Reference:="",Text:=ActiveDocument.Hyperlinks(i).Address
ActiveDocument.Hyperlinks(i).Delete
MyRange.Style = wdStyleHyperlink
End If
Next i

If Not linkFound Then
Btn = MsgBox("NO hyperlinks found", vbExclamation, "Extract Hyperlinks")
Exit Sub
End If
End Sub

This work is licensed under a Creative Commons License.
For commercial use, please contact me.

LMsg.From.Text = AFrom;
LMsg.Recipients.Add().Text = ATo;
LMsg.Subject = ASubject;
LMsg.Body.Text = AMsg;

SMTP LSMTP = new SMTP();
LSMTP.OnStatus += new Indy.Sockets.IndyComponent.TIdStatusEvent(SMTPStatus);
LSMTP.Host = “mail.domain.tld”;
LSMTP.Connect();

try {
LSMTP.Send(LMsg);
Status(“Completed”);
}

finally {
LSMTP.Disconnect();
}

more …

CREATE TABLE [dbo].[Person] (
   [Id] [int] IDENTITY (1, 1) NOT NULL ,
   [Person] [Person] NOT NULL
) ON [PRIMARY]

The Person type is a .NET class. Columns in Yukon can be typed to custom .NET classes.”

more …