Имя: Пароль:
1C
1С v8
ПФ в письмо и отправка клиенту
,
0 Singenor
 
18.07.12
16:51
Профиль          = Новый ИнтернетПочтовыйПрофиль;
   Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;    
   Профиль.АдресСервераPOP3    = "pop.z4412с.ru";
   Профиль.АдресСервераSMTP    = "smtp.z888с.ru";
   Профиль.Пользователь        = "[email protected]";
   Профиль.ПользовательSMTP    = "[email protected]";
   Профиль.Пароль                = "fire";
   Профиль.ПарольSMTP            = "fire";
   
   Почта.Подключиться(Профиль);
   
   письмо = Новый ИнтернетПочтовоеСообщение;
   письмо.ИмяОтправителя    = "[email protected]";
   письмо.Получатели.Добавить("[email protected]");
   письмо.Тема                = "Приветик как оно?";
   
   имяФайла = ПолучитьИмяВременногоФайла("xls");
   табДок.Записать(имяФайла, ТипФайлаТабличногоДокумента.XLS97);  
   Почта.Послать(письмо);
   Почта.Отключиться();

ТабДок - это сама Пф, которую нужно отправить, выдается следующая ошибка:
{ВнешняяОбработка.ЛистСогласования.МодульОбъекта(83)}: Ошибка при вызове метода контекста (Послать)
   Почта.Послать(письмо);
по причине:
Почтовый ящик не доступен (SMTP error code 550, Headers have bogus format)
1 Singenor
 
18.07.12
17:33
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp1";
Профиль.АдресСервераPOP3 = "pop3";
Профиль.ПортSMTP = 25;
Профиль.ПортPOP3 = 110;
Профиль.Пользователь = "Mail1";
Профиль.ПользовательSMTP = "Mail1";
Профиль.Пароль = "Pass1";
Профиль.АутентификацияSMTP=СпособSMTPАутентификации.Login;
Профиль.ПарольSMTP = "Pass1";

Почта.Подключиться(Профиль);
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Получатели.Добавить("[email protected]");
Сообщение.Тексты.Добавить(ТабДок);
Сообщение.УведомитьОДоставке = Истина;
Сообщение.Отправитель = "Mail1";
Почта.Послать(Сообщение);
Почта.Отключиться();
2 Singenor
 
18.07.12
17:33
письмо отправялется.а как тепеь сделаьт, чтобы в письме еще была ПФ кторая формируется перед отравкой письма?
3 and2
 
18.07.12
17:35
вложения
добавить
4 Singenor
 
18.07.12
17:37
(3) мне нужно чтобы у мен ПФ сначала сохранялась в ексель, написал так:
Каталог = КаталогВременныхФайлов();
       Письмо = ТабДок.Записать(Каталог + "ЛистСогласования.xls", "xls");
как теперь это заслаьт н почту?
5 Singenor
 
18.07.12
17:38
(4) хотя не
Каталог = КаталогВременныхФайлов();
ТабДок.Записать(Каталог + "ЛистСогласования.xls", "xls");
вот так тольк можно
6 Singenor
 
18.07.12
17:41
Сообщение.Тексты.Добавить("Кандибобер");
Сообщение.Вложения.Добавить("ТабДок");
Сообщение.УведомитьОДоставке = Истина;
Сообщение.Отправитель = "[email protected]";
Почта.Послать(Сообщение);
Почта.Отключиться();

{ВнешняяОбработка.ЛистСогласования.МодульОбъекта(79)}: Ошибка при вызове метода контекста (Добавить)
Сообщение.Вложения.Добавить("ТабДок");
по причине:
Файл не обнаружен 'ТабДок'

куда мне его зсунуть, чотбы он его обнаружил?
7 rutony
 
18.07.12
17:45
ИнтернетПочтовыеВложения (InternetMailAttachments)
Добавить (Add)
Вариант синтаксиса: Добавить файл

Синтаксис:

Добавить(<АдресФайлаВложения>, <НаименованиеВложения>)
Параметры:

<АдресФайлаВложения> (обязательный)

Тип: Строка.
Адрес файла-вложения.
<НаименованиеВложения> (необязательный)

Тип: Строка.
Имя вложения, которое отображают почтовые клиенты.
Описание варианта метода:

Добавляет файл в коллекцию почтовых вложений.
Вариант синтаксиса: Добавить двоичные данные

Синтаксис:

Добавить(<ДвоичныеДанные>, <НаименованиеВложения>)
Параметры:

<ДвоичныеДанные> (обязательный)

Тип: ДвоичныеДанные.
Данные вложения.
<НаименованиеВложения> (необязательный)

Тип: Строка.
Имя вложения, которое отображают почтовые клиенты.
Значение по умолчанию: Пустая строка
Описание варианта метода:

Добавляет двоичные данные в коллекцию почтовых вложений.
8 Singenor
 
18.07.12
17:50
{ВнешняяОбработка.ЛистСогласования.МодульОбъекта(79)}: Ошибка при вызове метода контекста (Добавить)
Сообщение.Вложения.Добавить(Каталог,"ТабДок");
по причине:
Ошибка доступа к файлу 'C:\Documents and Settings\user\Local Settings\Temp\a'
9 Singenor
 
18.07.12
17:50
типа не хватает прав? или туда файл не сохраняется?
10 and2
 
18.07.12
17:57
ты ж каталог указал.
а надобно полный путь к файлу
11 Singenor
 
18.07.12
17:58
ТабДок.Записать("C:\Documents and Settings\user\" + "ЛистСогласования.xls", "xls");


Сообщение.Вложения.Добавить("C:\Documents and Settings\user\","табДок");
12 Singenor
 
18.07.12
18:01
файл схраняется по указанному пти, но не отпавляется, выдается ошибка:

{ВнешняяОбработка.ЛистСогласования.МодульОбъекта(79)}: Ошибка при вызове метода контекста (Добавить)
Сообщение.Вложения.Добавить("C:\Documents and Settings\uzhn\","ЛистСогласования");
по причине:
Ошибка доступа к файлу 'C:\Documents and Settings\user'
13 NS
 
18.07.12
18:06
uzhn - это что?
14 Singenor
 
18.07.12
18:06
все, сделал
15 NS
 
18.07.12
18:06
И после записи лучше сделать паузу.
16 Singenor
 
18.07.12
18:08
одна теперь порблема, файл схраняется в определенную папку, а если н другом компе эту обработку открыьт, и там не бует соответствующей папки, то будет ошибка, как это исправить?
17 Singenor
 
18.07.12
18:09
все, эту проблему тоже решил
18 Singenor
 
18.07.12
18:10
теперь как сдеать, чтобы письмо отправлялось по данным, которое указно у контрагета, где адрес электронный? помогите с запорсом,  то туплю че то уже)
19 Singenor
 
18.07.12
18:14
Запрос.Текст = "ВЫБРАТЬ
                  |    КонтактныеЛицаКонтрагентов.Представление КАК Адрес
                  |ИЗ
                  |    Справочник.КонтактныеЛицаКонтрагентов КАК КонтактныеЛицаКонтрагентов";


педставление это емэил, но он егоневидит (
20 Singenor
 
19.07.12
11:10
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
|КонтактнаяИнформация.Представление как Почта
|ИЗ
|РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
|ЛЕВОЕ СОЕДИНЕНИЕ Справочник.КонтактныеЛицаКонтрагентов КАК КонтактныеЛицаКонтрагентов
|ПО КонтактнаяИнформация.Объект =
КонтактныеЛицаКонтрагентов.Ссылка
|ГДЕ КонтактнаяИнформация.Вид.Код = ""000000024""";                        
Результат = Запрос.Выполнить().Выгрузить();

Сообщение.Получатели.Добавить(Результат.Почта);



поле почта не обнаружено. что я не так делаю?
21 Singenor
 
19.07.12
11:18
Запрос.Текст = "ВЫБРАТЬ
                  |    КонтактнаяИнформация.Представление как Электронка
                  |ИЗ
                  |    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
                  |ГДЕ КонтактнаяИнформация.Вид.Код = ""000000024""";

вот запрос, по идеи в нем должно браться представление с кодом 0000024, так ведь? но не берется(
22 Singenor
 
19.07.12
11:24
ребята, помогите)
2 + 2 = 3.9999999999999999999999999999999...