Посылайте сообщения через SMTP сервер, используя библиотеку Microsoft Collaboration Data Object

1. Const SEND_USING_PORT = 2
2. Dim iMsg As CDO.Message
3. Dim iConf As CDO.Configuration
4.  
5. Set iMsg = New CDO.Message
6. Set iConf = iMsg.Configuration
7.  
8. With iConf.Fields
9.    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = SEND_USING_PORT
10.    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SmtpServer"
11.    .Update
12. End With
13. With iMsg  
14.    .To = "likhobori@sources.ru"
15.    .From = "zen@wery.com"
16.    .Subject = "Some text"
17.    .TextBody = "Some info"
18.    .AddAttachment "c:\1.bat"
19.    .Send
20. End With