'reference Microsoft Outlook 10.0 Object Library
Sub SendMail()
    Dim oOutlook As Outlook.Application
    Dim oNamespace As Outlook.NameSpace
    Dim ofolder As Outlook.MAPIFolder
    Dim oMail As Outlook.MailItem
    Dim oRecipient As Outlook.Recipient
    
    'create object variables
    Set oOutlook = CreateObject("Outlook.Application")
    Set oNamespace = oOutlook.GetNamespace("MAPI")
    Set ofolder = oNamespace.GetDefaultFolder(olFolderInbox)
    Set oMail = oOutlook.CreateItem(olMailItem)
    
    'set up mail
    With oMail
        Set oRecipient = .Recipients.Add("david.coutts4@btinternet.com")
        oRecipient.Type = olTo
        .Body = "This is some text"
        .Subject = "This is the Title"
        .Send
    End With

    'get rid of object variables
    Set oRecipient = Nothing
    Set oMail = Nothing
    Set ofolder = Nothing
    Set oNamespace = Nothing
    Set oOutlook = Nothing
End Sub