Set objEmail = CreateObject("CDO.Message")
objEmail.From = "test@somewhere.com"
objEmail.To = "someone@somewhere.com"
objEmail.Subject = "Test 1" 
objEmail.Textbody = "Dit is een test."
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "mail.somewhere.com" 
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
'* Toevoegen van een attachment kan met de volgende prefixen
'* file://, ftp://, http://, and https://. De default prefix is file://. 
'* De default voor MimeFormatted is True
objEmail.MimeFormatted = True
objEmail.AddAttachment ("C:\test.txt")
objEmail.Send