Dim cp As Object
Set cp = CreateObject("CDONTS.NewMail")
With cp
     .To = "test@test.com"
     .From = "test@test.com"
     .Subject = "test"
     .Body = "test"
     .Send
End With