Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 15:53

Отправка сообщения

Автор Shaman_blr, 18 апр 2023, 08:48

0 Пользователей и 1 гость просматривают эту тему.

Shaman_blr

Всем привет. Функция отправляет сообщения на email пользователя. Возможно ли сделать так, чтобы email Отправителя не на почте не отображался, а к примеру отображалось образно "Windows-1251" чтобы юзеры не видели от кого идет письмо.
Функция ОтправитьПисьмо(Отправитель = "", Получатель = "", ТемаСообщения = "", ТекстСообщения = "", ПочтаДляКопии = "", ПутьКФайлу = "") Экспорт
    ИспользоватьSSL = Истина;
    iConf = Новый COMОбъект("CDO.Configuration");
    iMsg = Новый COMОбъект("CDO.Message");
    iMsg.Configuration = iConf;
    iMsg.to = Получатель ;
    iMsg.from = Отправитель ;
    iMsg.cc = ПочтаДляКопии;
    iMsg.Subject = ТемаСообщения;
    iMsg.TextBody = ТекстСообщения;
    iMsg.BodyPart.Charset = "Windows-1251";

    iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2;
    iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = РегистрыСведений.ДополнительныеНастройкиУчета.ВернутьДополнительнуНастройкуИмениНастройки("СерверСМТП");
    iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value = РегистрыСведений.ДополнительныеНастройкиУчета.ВернутьДополнительнуНастройкуИмениНастройки("ПортСМТП"); 
    iMsg.addAttachment(ПутьКФайлу);//вложение письма
   
    Попытка   
        iConf.Fields.Update();
    Исключение   
        Сообщить(ОписаниеОшибки());
        Возврат Ложь;
    КонецПопытки;

    Попытка   
        iMsg.Send();
    Исключение   
        Сообщить(ОписаниеОшибки());
        Возврат Ложь;
    КонецПопытки;
   
    Возврат Истина;
КонецФункции

Afinogen

 B) что мешает завесті такую учетку і от нее отправлять?

Shaman_blr

Afinogen, там последовательность идет) и тот кто отправляет, всегда разный человек)

Kvark5d

Shaman_blr, а что это меняет? Подменяйте учетку пользователя на вновьсозданную учетку.

Shaman_blr

Kvark5d, типа кто подписывает, в отправителя у всех поставить одну учётку?)

Afinogen

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

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск