none
Как приаттачить файл в письмо? RRS feed

Ответы

Все ответы

  • Думаю, вы быстрее получите ответ на форуме по Лотус.

     

    18 июля 2008 г. 11:39
    Модератор
  • А зачем тебе Лотус ? И без него все приаттачивается:

     

    JScript

    Code Snippet

     

    ///////////////////////////////////////////////////////////////
    // Скрипт: SendMail.js            //
    //  Описание: отправка сообщения по электронной почте       //
    //  Язык: JScript           //
    //////////////////////////////////////////////////////////////

    var objEmail;          //CDO объект для отправки сообщения
    var MessText;          //Текст сообщения
    var AttFile;          //Файл вложения.

    //Формируем текст сообщения
    MessText = "Данное сообщение послано\n";
    MessText +="скриптом Sendmail.js\n";

    AttFile = "C:\Temp\1.txt";        //Указываем путь к файлу, который необходимо вложить в сообщение
    objEmail = WScript.CreateObject("CDO.Message");    //Создаем объект CDO и получаем на него ссылку в переменную objEmail

    ////////////////////////////////////////////////////
    // Указание необходимых параметров объекта CDO   //
    ////////////////////////////////////////////////////
    objEmail.From = "\"Отправитель\" script@company.ru";  //параметры отправителя (имя и адрес электронной почты)   
    objEmail.To = "admin@company.ru";       //адрес электронной почты получателя
    objEmail.Subject = "Проверка связи";      //тема сообщения   
    objEmail.AddAttachment(AttFile);       //файла вложения
    objEmail.Textbody = MessText;        //текст сообщения 

    //Отправить сообщение используя сетевую SMTP-службу (1 - используется для отправки через локальную SMTP-службу)
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2;    
    //Указание имени SMTP-сервера  
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.company.ru";
    //Указание SMPT-порта на сервере
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25;
    //Обновить конфигурацию CDO-объекта
    objEmail.Configuration.Fields.Update();
    //Послать сообщение с помощью метода Send()
    objEmail.Send();

     

     

    VBScript

    Code Snippet

     

    ''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  Скрипт: SendMail.vbs        
    '  Описание: отправка сообщения по электронной почте
    '  Язык: VBScript      
    ''''''''''''''''''''''''''''''''''''''''''''''''''''
    Option Explicit

    Dim objEmail  'CDO объект для отправки сообщения
    Dim MessText  'Текст сообщения
    Dim AttFile   'Файл вложения.

    'Формируем текст сообщения
    MessText = "Данное сообщение послано" & VbCrLf
    MessText = MessText + "скриптом Sendmail.vbs" & VbCrLf

    AttFile = "C:\Temp\1.txt"        'Указываем путь к файлу, который необходимо вложить в сообщение
    Set objEmail = WScript.CreateObject("CDO.Message")  'Создаем объект CDO и получаем на него ссылку в переменную objEmail 

    ''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' Указание необходимых параметров объекта CDO  
    ''''''''''''''''''''''''''''''''''''''''''''''''''''
    objEmail.From = "Отправитель"" script@company.ru"   'параметры отправителя (имя и адрес электронной почты)   
    objEmail.To = "admin@company.ru"       'адрес электронной почты получателя
    objEmail.Subject = "Проверка связи"       'тема сообщения   
    objEmail.AddAttachment(AttFile)        'файла вложения
    objEmail.Textbody = MessText        'текст сообщения 

    'Отправить сообщение используя сетевую SMTP-службу (1 - используется для отправки через локальную SMTP-службу)
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    
    'Указание имени SMTP-сервера  
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.company.ru"
    'Указание SMPT-порта на сервере
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    'Обновить конфигурацию CDO-объекта
    objEmail.Configuration.Fields.Update
    'Послать сообщение с помощью метода Send
    objEmail.Send

     

     

    4 октября 2008 г. 8:14