Mail server for windows

http://www.hmailserver.com/

An example of how to send message using visual trash
dim oMessage
Set oMessage = CreateObject("hMailServer.Message")
oMessage.From = "Me"
oMessage.FromAddress = "myaddress@mydomain.com"
oMessage.Subject = "Hi"
oMessage.AddRecipient "My friend", "myfriend@myfriend.com
oMessage.Body = "This is the contents of the email."
oMessage.Save

Link here, and here is how to attach stuff to the message.