Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отправка сообщений на e-mail, Кто-нибудь отправлял сообщения на майлы? 
V
    Опции темы
oigolikova
Дата 8.9.2008, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 8.9.2008

Репутация: нет
Всего: нет



Кто-нибудь отправлял сообщения на e-mail из программ Фокса? Подскажите как это делать...

PM MAIL   Вверх
Akina
Дата 8.9.2008, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 454



Да собсно как и из всех других - подключаем библиотеку MAPI, создаем письмо и инициируем отправку.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Bishop
Дата 15.9.2008, 19:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 188
Регистрация: 3.6.2005
Где: Минск, Беларусь

Репутация: нет
Всего: 16



oigolikova, 

Цитата(Akina @  8.9.2008,  18:21 Найти цитируемый пост)
подключаем библиотеку MAPI, создаем письмо и инициируем отправку


Чтобы было совсем понятно:
Код
objEmail = CreateObject("CDO.Message")
objEmail.From = "sender <from@address>" && отправитель
objEmail.To = "to@adr" && получатель
objEmail.Subject = "Тема письма"
objEmail.Textbody = "Сообщение"
objEmail.AddAttachment("C:\attach.txt")&& вложение
WITH objEmail.Configuration.Fields
* http://msdn.microsoft.com/en-us/library/ms526318(EXCHG.10).aspx
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" && smtp server 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 && порт
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 3 && таймаут
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 && использовать авторизацию
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "login"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
    .Update
ENDWITH
objEmail.Send


Это сообщение отредактировал(а) Bishop - 16.9.2008, 21:38
PM WWW ICQ   Вверх
oigolikova
Дата 16.9.2008, 10:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 8.9.2008

Репутация: нет
Всего: нет



Хорошо. В форуме, так в форуме.

В строке objEmail.AddAttachment "C:\attach.txt" && вложение - не должно быть равно? Мне выдал в этом месте ошибку, когда написала =, то все просто зависло...

Добавлено @ 10:37
Вот те ошибки, которые получаю

Это сообщение отредактировал(а) oigolikova - 16.9.2008, 10:41

Присоединённый файл ( Кол-во скачиваний: 3 )
Присоединённый файл  errors1.doc 493,50 Kb
PM MAIL   Вверх
oigolikova
Дата 16.9.2008, 10:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 8.9.2008

Репутация: нет
Всего: нет



А еще вот такую ошибку получила...:(

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  errors2.doc 675,00 Kb
PM MAIL   Вверх
Bishop
Дата 16.9.2008, 21:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 188
Регистрация: 3.6.2005
Где: Минск, Беларусь

Репутация: нет
Всего: 16



oigolikova, 
да, ошибочка, нужно так (и в прошлом посте поправил):
Код
objEmail.AddAttachment("C:\attach.txt")

Вторая ошибка возникает из-за невозможности подключиться к серверу. Возможно вы неверно указали его адрес.
PM WWW ICQ   Вверх
oigolikova
Дата 16.9.2008, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 8.9.2008

Репутация: нет
Всего: нет



Спасибо. Завтра на работе попробую. Беда в том, что я не знаю, какой нужно указывать сервер :(
И вопрос 11 строка - она у вас зеленого цвета - она закомментирована или нет?

Это сообщение отредактировал(а) oigolikova - 17.9.2008, 08:54
PM MAIL   Вверх
oigolikova
  Дата 18.9.2008, 11:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 8.9.2008

Репутация: нет
Всего: нет



Огромное спасибо. Все сделала, все получилось
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Foxpro/Clipper/Dbase"
MoLeX

Запрещается!

1. Публиковать ссылки для чисто рекламных целей.

2. Оффтопить, флеймить, говорить не культурно.

Пожалуйста, адекватно задавайте свой вопрос. Тема должна создаваться с названием характеризующем Вашу проблему.

Задавайте вопросы правильно - как спросите, так вам и ответят.

Разрешено!

Давать ссылки на статьи, обзоры, если это не нарушает первый пункт правил.

Задавая вопрос, давайте нужную информацию касающуюся Вашей проблемы. Этим вы ускорите полезные ответы.

P.S. Размещение рекламы будет строго наказываться!



Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, MoLeX

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Foxpro/Clipper/Dbase | Следующая тема »


 




[ Время генерации скрипта: 0.0502 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.