можно примерно так
Вариант номер 2:
майлер работающий с командной строки postie.exe (www.infradig.com), готовим батничек и ...
Вариант номер 3:
делаем vbs cкрипт с использованием объектов CDO и запускаем на выполненние как внешнюю команду, например:
Option Explicit
dim iMsg,Flds,iConf
set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.9"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 0 'cdoAnonymous
Flds.Update
With iMsg
Set .Configuration = iConf
.To = "
vader@webmercs.com"
.From = "
vader@webmercs.com"
.Subject = "Test Mail"
.TextBody = "TEST2" + vbCrLf
.Send
End With
вариант номер 4:
используем sp_OACreate и остальной набор для работы с COM объектами (с той же CDO)
declare @From VARCHAR(255)
,@To VARCHAR(255)
,@Subject VARCHAR(255)
,@Body VARCHAR(8000)
,@SMTPServer VARCHAR(255)
,@SMTPPort INT
DECLARE
@iMsg INT
,@iConf INT
,@iFlds INT
,@hr INT
,@src varchar(255)
,@desc varchar(255)
set @to='
vader@webmercs.com'
set @from='
vader@webmercs.com'
set @Subject='Test OACreate '
set @body='OACreate sended'
set @SMTPServer= '192.168.0.9'
set @SMTPPort= 25
declare @source varchar(500), @description varchar(500)
EXEC @hr = sp_OACreate 'CDO.Message', @iMsg OUT
print @hr
IF @hr = 0 BEGIN
EXEC @hr = sp_OACreate 'CDO.Configuration', @iConf OUT
print @hr
IF @hr = 0 BEGIN
EXEC @hr=sp_OAGetProperty @iConf, 'Fields', @iFlds OUT
print 'sp_OAGetProperty @iConf, '+str(@hr)
EXEC @hr=sp_OASetProperty @iFlds,'Item',2, '"http://schemas.microsoft.com/cdo/configuration/sendusing"'
if @hr<>0
begin
print 'sendusing'
EXEC sp_OAGetErrorInfo @iFlds, @source OUT, @description OUT
print @source
print @description
print @hr
return
end
EXEC @hr=sp_OASetProperty @iFlds, 'Item', @SMTPServer,
'http://schemas.microsoft.com/cdo/configuration/smtpserver'
if @hr<>0
begin
print '@SMTPServer'
EXEC sp_OAGetErrorInfo @iFlds, @source OUT, @description OUT
print @source
print @description
print @hr
return
end
EXEC @hr=sp_OASetProperty @iFlds, 'Item', @SMTPPort,
'http://schemas.microsoft.com/cdo/configuration/smtpserverport'
if @hr<>0
begin
print '@SMTPPort'
EXEC sp_OAGetErrorInfo @iFlds, @source OUT, @description OUT
print @source
print @description
print @hr
return
end
EXEC @hr=sp_OASetProperty @iFlds, 'Item', 0,
'http://schemas.microsoft.com/cdo/configuration/smtpauthenticate'
if @hr<>0
begin
print 'smtpauthenticate'
EXEC sp_OAGetErrorInfo @iFlds, @source OUT, @description OUT
print @source
print @description
print @hr
return
end
EXEC @hr= sp_OAMethod @iFlds, 'Update'
if @hr<>0
begin
print 'Update'
EXEC sp_OAGetErrorInfo @iFlds, @source OUT, @description OUT
print @source
print @description
print @hr
return
end
EXEC @hr=sp_OASetProperty @iMsg, 'Configuration', @iConf
if @hr<>0
begin
print 'Configuration'
EXEC sp_OAGetErrorInfo @iMsg, @source OUT, @description OUT
print @source
print @description
print @hr
-- return
end
EXEC @hr=sp_OASetProperty @iMsg, 'To', @To
if @hr<>0
begin
print 'To'
EXEC sp_OAGetErrorInfo @iMsg, @source OUT, @description OUT
print @source
print @description
print @hr
return
end
EXEC @hr=sp_OASetProperty @iMsg, 'From', @From
if @hr<>0
begin
print 'From'
EXEC sp_OAGetErrorInfo @iMsg, @source OUT, @description OUT
print @source
print @description
print @hr
return
end
EXEC @hr=sp_OASetProperty @iMsg, 'Subject', @Subject
if @hr<>0
begin
print 'Subject'
EXEC sp_OAGetErrorInfo @iMsg, @source OUT, @description OUT
print @source
print @description
print @hr
return
end
EXEC @hr=sp_OASetProperty @iMsg, 'TextBody', @Body
if @hr<>0
begin
print 'TextBody'
EXEC sp_OAGetErrorInfo @iMsg, @source OUT, @description OUT
print @source
print @description
print @hr
return
end
EXEC @hr = sp_OAMethod @iMsg, 'Send'
if @hr<>0
begin
print 'Send'
EXEC sp_OAGetErrorInfo @iMsg, @source OUT, @description OUT
print @source
print @description
print @hr
-- return
end
END
END
лучший конечно вариант 4, но почему то отработав без проблем на тестовом сервере, на рабочем он валиться с воплями следующего содержания:
CDO.Message.1
The "SendUsing" configuration value is invalid.
-2147220960
видно что то в настройках безопасности или самой системы не совпадает, может у кого есть какие идеи еще?
например как читать почту
