Отправка на мыло

[Yakuza]

Цитата:

Сообщение от Sancho

пришла мысль.
если длинных текстовых переменных еще нет, то массив из коротких уже есть?
это дополнительный геморрой, но должно сработать.

даже если массива еще нет, то можно воспользоваться временной табличкой...

там правда траблы могут быть с пробелами: если строка оканчивается на пробел, то пробел будет утерян посде вставки

Может сработать. Возникла еще одна идея, выводить текст письма в файл, а затем передавать jMailу его для отправки. Вообщем, варинаты есть, буду пробовать.

[Storkich]

Вот .vbs файл, можно генерить из нава и отправлять

Set objEmail = WScript.CreateObject("CDO.Message")  'Create CDO-object and get link on it into objEmail (var) 
'''''''''''''''''''''''''''''''''''''''''''''''''''' 
' Required parameters of CDO-object 
'''''''''''''''''''''''''''''''''''''''''''''''''''' 
objEmail.From = "robot@Sercer.ru"                         'Sender (mine) address 
objEmail.To = "DPugaev@Server.ru"                                     'Address of recipient or distribution list 
'objEmail.BCC = "DPugaev@Server.ru"                             'Hide copy recipient address 
objEmail.Subject = "Field Management Report "      'Subject of message 
objEmail.TextBody = "Body"                                  'Message Text 
objEmail.BodyPart.Charset = "windows-1251"                    'Cyrillic encoding 

'Sending message using SMTP-service (1 - using of local SMTP-service) 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
'Name of SMTP-server 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.ru" 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  'Port of SMTP-server 
objEmail.Configuration.Fields.Update           'Update configuration of CDO-object 
objEmail.Send    'Sending of message by using Send-method