Отправлено: 01.09.09 12:08. Заголовок: EMail из xHarbour

Кто подскажет, как из программы разослать несколько сотен писем разным адресатам? Пробовал sendmail, но на отправку одного письма уходит около минуты. Пробовал формировать файл .eml, но тогда надо вручную жать кнопку "Send". Как это дело автоматизировать?

 Отправлено: 01.09.09 12:54. Заголовок: Snake пишет: Пробов..

Snake пишет:

цитата:

Пробовал sendmail, но на отправку одного письма уходит около минуты

Попробуй после этого изменения (цитата из xharbour changelog):

цитата:

... 2009-02-03 21:00 UTC-0300 Luiz Rafael Culik Guimaraes <luiz at xharbour.com.br> ... * source/tip/sendmail.prg ! updated timeout to 3000 instead of 20000

 Отправлено: 03.09.09 11:16. Заголовок: Спасибо, помогло! А ..

Спасибо, помогло! А с timeout=500 вообще все мигом

 Отправлено: 04.09.09 08:44. Заголовок: Snake пишет: Пробов..

Snake пишет:

цитата:

Пробовал sendmail

А его пришлось переделывать из МиниГУИ ?

Есть ли под терминалом (gtwin, gtwvt) - sendmail ?

 Отправлено: 07.09.09 09:06. Заголовок: Он в библиотеке tip,..

Он в библиотеке tip, терминал вроде без разницы.
Минус - timeout и charset зашиты в модуле, хотя казалось бы очевидным вынести их в параметры. Из-за этого приходится включать в программу sendmail.prg и mail.prg

 Отправлено: 27.09.09 20:23. Заголовок: Snake пишет: Пробов..

Snake пишет:

цитата:

Пробовал sendmail

Я тоже попробовал, но не получил результата. Возвращает .F.

Кто-нибудь может привести пример использования?

И что означает в передаваемых HB_SENDMAIL() параметрах
cUser -> Required. User name for the POP3 server
cPass -> Required. Password for cUser
cPopServer -> Required. Pop3 server name or address
если отправкой занимается SMTP-сервер, а не POP3?

У меня сейчас так:
HB_SendMail( "mail.post.ru", , "knigaz@post.ru", Windows(client->email), , , ;
Windows("Здравствуйте!"), Windows("Тестовое письмо"), ;
IIF(answer = 5, Windows(acpu), NIL), ;
"login", "password", "mail.post.ru" )

Что неправильно?
Отладкой выяснил, что не проходит oInMail:OpenSecure(). Что это значит?

 Отправлено: 28.09.09 20:55. Заголовок: Snake А примерчик н..

Snake
А примерчик не покажешь, как почту отправлять ?!
тоже сталкнулся с проблемой "Сharset" не получается толком отослать письмо на русском. То заголовок не читается, то тело письма...

СПАСИБО!

 Отправлено: 06.10.09 09:10. Заголовок: HB_SENDMAIL(cSmtp,..

HB_SENDMAIL(cSmtp,,cFrom,cTo,,,'this is test 1','testato1',,,,,,,.t.)
HB_SENDMAIL(cSmtp,,cFrom,cTo,,,'tstmail.html','testato2',,,,,,,.t.)

Оба варианта ок.

Лукашевский:

IIF(answer = 5, Windows(acpu), NIL), ; - это что? В этом параметре должен быть список аттачей

Pager:

В sendmail.prg и mail.prg заменить charset "ISO-8859-1" на "windows-1251"

 Отправлено: 20.10.09 06:03. Заголовок: Snake пишет: IIF(an..

Snake пишет:

цитата:

IIF(answer = 5, Windows(acpu), NIL), ; - это что? В этом параметре должен быть список аттачей

acpu - это имя файла,
Windows() - соответственно перекодировка имени файла из 866-й в Win-1251,
"answer = 5" - это программный переключатель, что есть файл который нужно прикрепить к письму. Ну и соотв. без файла тоже пробовал, - результат один, в смысле он отсутствует.
А "список аттачей" - это как, массивом?

 Отправлено: 20.10.09 07:01. Заголовок: Snake пишет: HB_SEN..

Snake пишет:

цитата:

HB_SENDMAIL(cSmtp,,cFrom,cTo,,,'this is test 1','testato1',,,,,,,.t.)

Snake извини я не понял, а как ты задаёшь SMTP-серверу логин-пароль ?
Твой вариант у меня выдаёт ту же самую ошибку.

 Отправлено: 03.12.09 09:59. Заголовок: Пример из xHarbour&#..

Пример из xHarbour'овского Help'а (кстати, как уже недавно обсуждали в моей ветке, в Harbour некоторые вещи - особенно для получения почты - работают некорректно или вообще вышибают программу с ошибкой; поэтому мне и пришлось для этих целей использовать xHarbour):
----------------
см. "xHarbour Reference Documentation" - "Class Reference (text mode)" - "TIpMail()"
----------------
Скрытый текст

// The example outlines the steps required for composing an eMail // and sending it to an SMTP mail server. PROCEDURE Main LOCAL oSmtp, oEMail LOCAL cSmtpUrl LOCAL cSubject, cFrom, cTo, cBody, cFile // preparing data for eMail cSmtpUrl := "smtp://mailaccount:password@smtp.server.com" cSubject := "Testing eMail" cFrom := "MyName@Mail.server.com" cTo := "YourName@another.server.com" cFile := "File_Attachment.zip" cBody := "This is a test mail sent at: " + DtoC(Date()) + " " + Time() // preparing eMail object oEMail := TIpMail():new() oEMail:setHeader( cSubject, cFrom, cTo ) oEMail:setBody( cBody ) oEMail:attachFile( cFile ) // preparing SMTP object oSmtp := TIpClientSmtp():new( cSmtpUrl ) // sending data via internet connection IF oSmtp:open() oSmtp:sendMail( oEMail ) oSmtp:close() ? "Mail sent" ELSE ? "Error:", oSmtp:lastErrorMessage() ENDIF RETURN

м.б. поможет...

 Отправлено: 17.04.12 17:59. Заголовок: А с этим сервисом по..

А с этим сервисом по отправке кто то работал ?
http://smsukraine.com.ua/services/email2sms/

если слать месагу через оутлук експресс, то приходит читаемая SMS на мобилу
если слать через HB_SENDMAIL , приходят крякозяблы.
если то же сообщение слать через HB_SENDMAIL себе на мыло , то приходит читаемый текст.

PS
Проблема только с кирилицей.
PS1
Harbour 2.0

 Отправлено: 17.04.12 18:16. Заголовок: Я не пользовался, но..

Я не пользовался, но могу сказать следующее: судя по примеру с сайта сообщение должно быть в UTF-8

//send on SMS and receive it's id for tracking
//message in UTF-8
$id = $sms->sendSMS('AlphaName','+380504412345', 'Текст сообщения на русском языка в UTF-8 любой длинны');
или в транслите

//just for usage - text can be translierated to use less symbols in sms
echo SMSclient::translit('Текст сообщения на русском языка в UTF-8 любой длинны');

 Отправлено: 17.04.12 18:18. Заголовок: И, судя по всему, кл..

И, судя по всему, класс разработан индусами, незнакомыми с русском языка

 Отправлено: 17.04.12 18:53. Заголовок: Петр Спасибо. Завтр..

Петр
Спасибо. Завтра попробую.
Текст сообщения у меня набран в CP866.
Достаточно ли конвертнуть его с помощью hb_strToUTF8 ?

 Отправлено: 17.04.12 19:19. Заголовок: Dima пишет: Достато..

Dima пишет:

цитата:

Достаточно ли конвертнуть его с помощью hb_strToUTF8 ?

Скорее всего, нет

cBody := hb_strToUTF8( text, "RU866" ) - это понятно, а дальше
нужно будет еще правильно установить параметры cCharset, cEncoding, т.е.

cCharset := "UTF8"
cEncoding := "base64"

P.S. Я это написал после разглядывания исходников, опыта применения HB_SENDMAIL у меня нет.

 Отправлено: 18.04.12 11:10. Заголовок: Петр Все получилось..

Петр
Все получилось !
Большое спасибо !

 Отправлено: 18.04.12 12:04. Заголовок: Dima пишет: Все пол..

Dima пишет:

цитата:

Все получилось !

Поделись примером как надо правильно делать ?

 Отправлено: 18.04.12 12:15. Заголовок: Andrey Зарегистриро..

Andrey
Зарегистрироваться на сервисе http://smsukraine.com.ua/
Бесплатно можно отправить 3 СМС (вроде)
Пополнить счет если надо.
Отправлять мыло c помощью Hb_sendmail() на мобилу , формат отправки тут http://smsukraine.com.ua/services/email2sms/

PS
Отправка не только по Украине

 Отправлено: 18.04.12 12:20. Заголовок: Спасибо БОЛЬШОЕ ! :s..

Спасибо БОЛЬШОЕ !