On-line: гостей 3. Всего: 3 [подробнее..]
АвторСообщение
администратор




Пост N: 1361
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 04.02.10 11:33. Заголовок: Hb_sendmail


Что то не получается почту отправить. Что я делаю не так ?
Hb_sendmail("mail.ru",25,"dim@mail.ru",;
"bbb@gmail.com",,,"Проверка связи",;
"Темка",,"dim","parolik","pop.mail.ru") // возвращает .f.

Harbour 1.1 Rev. 9661

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 73 , стр: 1 2 3 4 All [только новые]







Пост N: 343
Зарегистрирован: 12.11.06
ссылка на сообщение  Отправлено: 18.02.17 16:52. Заголовок: Dima пишет: я её са..


Dima пишет:

 цитата:
я её сам собирал


ИЛИ подскажите почтовый сервис через который могу посылать без этих заморочек. Раннее проверял - не подходят mail, gmail, теперь yandex, но может быть ещё остались?

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6295
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 18.02.17 17:25. Заголовок: AndreyZh У меня MIN..


AndreyZh
У меня MINGW а нужно я так понял под BCC
Как вариант можно взять из сборки MiniGui под BCC

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1423
Зарегистрирован: 09.10.06
ссылка на сообщение  Отправлено: 18.02.17 17:25. Заголовок: AndreyZh пишет: В п..


AndreyZh пишет:

 цитата:
В принципе обращался ко всем???



Скачайте нужный вам дистрибутив xHarbour или MiniGUI для xHb
click here
там библиотека есть


Спасибо: 1 
ПрофильЦитата Ответить
администратор




Пост N: 6296
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 18.02.17 17:30. Заголовок: Петр Упс , не обрат..


Петр
Упс , не обратил внимание что у него Xharbour

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 344
Зарегистрирован: 12.11.06
ссылка на сообщение  Отправлено: 18.02.17 18:16. Заголовок: Петр пишет: Скачайт..


Петр пишет:

 цитата:
Скачайте нужный вам дистрибутив xHarbour или MiniGUI для xHb


Преогромное спасибо Петр! Скачал, библиотеку увидел... Дальше наглеть с просьбами о помощи уже глупо - завтра (сегодня мозг уже затуманен алкоголем) попробую в свете рекомендаций Dima посылать письма! Всем спасибо за участие!

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 5315
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 18.02.17 22:09. Заголовок: AndreyZh пишет: ско..


AndreyZh пишет:

 цитата:
скорее всего любознательный Andrey имеет сборку и опыт под xHarbour?


Нет, ухожу с хХарбора на МиниГуи. Уже и забыл когда делал последний проект на хХарборе.
К сожалению у меня моя рабочая программа собрана под Харбор на МиниГуи. Её помогал мне сделать Григорий.
Работает уже давно, недавно пришлось кракозябы убирать (писал об этом на форуме).
Если надо, могу выложить рабочий кусок на МиниГуи.

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6297
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 18.02.17 23:47. Заголовок: Andrey пишет: Нет, ..


Andrey пишет:

 цитата:
Нет, ухожу с хХарбора на МиниГуи


Очередная жесть от тебя
Так ты ни чего и не понял



Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6298
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 19.02.17 15:10. Заголовок: AndreyZh На некотор..


AndreyZh
На некоторых компах может понадобится Microsoft Visual C++ 2005-2008-2010-2012-2013-2015
Взять можно тут

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 345
Зарегистрирован: 12.11.06
ссылка на сообщение  Отправлено: 19.02.17 17:46. Заголовок: Многоуважаемые Dima,..


Многоуважаемые Dima, Петр - большое Вам спасибо за помощь. Однако, как заметил, что хреновый из меня программист - ну не люблю мастурбировать с инструментом, когда банально нужно решить бизнес задачу... Вот и опять не получилось, хотя и потерял уйму времени!

В начале не пристыковывалась библа - старая 1.2.1 версия xHarbour, поставил полную новую версию по ссылке Петра - на основной программе полезли сотни ошибок компиляции... Однако нашел колхозное, РАБОТАЮЩЕЕ решение и может быть кому сгодится?

 

* -------------------------------------------------------------------------------------------------
* Посылка электронной почты с почтового сервиса. Использую объектную модель Windows. Содрал с VBS
* Исходный скрипт под Windows 10 работал с приложенными замечаниями. Переделка по xHarbour не была
* удачной. Использую подход: создаю текстовую строку, содержащую код скрипта, сохраняю её в файл
* и запускаю на выполнения. Большинство параметров скрипта пока не передаю - нужно изучать!
/*
Dim oMes, v_Conf
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
Set oMes = CreateObject("CDO.Message")
With oMes
.To = "zh..t@mail.ru" 'куда отправляем
.From = "Андрей <pos...@yandex.ru>" 'имя отправителя + Email
.Subject = "Тема письма"
.TextBody = "Body. Line 1" & VbCrLf & "Body. Line 2" & VbCrLf & "Body. Line 3" 'Сообщение
.AddAttachment = "Check_auto.txt" 'Прикрепить файл
.TextBodyPart.Charset = "windows-1251" 'русская кодировка
With .Configuration.Fields
.Item(v_Conf & "sendusing") = 2 'без использования каталога Server Exchange
.Item(v_Conf & "smtpserver") = "smtp.yandex.ru" 'Адрес SMTP-сервера
.Item(v_Conf & "smtpauthenticate") = 1 'Тип авторизации
.Item(v_Conf & "sendusername") = "pos....@yandex.ru" 'здесь имя пользователя
.Item(v_Conf & "sendpassword") = "Sol...." 'пароль
.Item(v_Conf & "smtpserverport") = 25 'порт (альтернативный - 465)
.Item(v_Conf & "smtpusessl") = True 'использовать ли шифрованое подключение SSL
.Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
.Update
End With
.send
End With
Set o_Mess = Nothing
*/
* Параметры:
* cTo Адрес почты куда посылаем письмо
* cFrom Адрес отправителя на почтовом сервисе
* cSub Тема письма
* cBody Тело письма - текст на строки разбивается входящим форматированием
* cSmpt Адрес SMTP-сервера
* cUser Имя адреса отправителя
* cPass Пароль на сервисе отправителя
* lSSL Использовать ли шифрованое подключение SSL
PROC pzSendMail(cTo,cFrom,cSub,cBody,cSmpt,cUser,cPass,lSSL)
LOCA nT:=0, nI:=0, cStr:="", cbd:=cBody
PRIV cFile:="SMTPMess.vbs"

// Преобразую cBody, если в нём имеются символы перевода строк CRLF в формат VBS
nT := NumToken(cBody,CRLF)
IF nT > 0
cBd := Token(cBody,CRLF,1)
FOR nI := 2 TO nT DO cBd += [" & VbCrLf & "]+Token(cBody,CRLF,nI)
ENDI

// Формирую текствовую строку в досовой кодировке
cStr += [Dim oMes, v_Conf]+CRLF
cStr += [v_Conf = "http://schemas.microsoft.com/cdo/configuration/"]+CRLF
cStr += [Set oMes = CreateObject("CDO.Message")]+CRLF
cStr += [With oMes]+CRLF+Spac(3)
cStr += [.To = "]+Alltrim(cTo)+["]+CRLF+Spac(3) // куда отправляем
cStr += [.From = "]+Alltrim(cFrom)+["]+CRLF+Spac(3) // имя отправителя + Email
cStr += [.Subject = "]+Alltrim(cSub)+["]+CRLF+Spac(3) // Тема письма
cStr += [.TextBody = "]+cBd+["]+CRLF+Spac(3) // Сообщение - тело письма

* Какие-то проблемы были с прикрплением файлов - пока не делаю .AddAttachment = "Check_auto.txt" 'Прикрепить файл
cStr += [.TextBodyPart.Charset = "windows-1251"]+CRLF+Spac(3) // По умолчанию - русская кодировка
cStr += [With .Configuration.Fields]+CRLF+Spac(6)
cStr += [.Item(v_Conf & "sendusing") = 2]+CRLF+Spac(6) // без использования каталога Server Exchange
cStr += [.Item(v_Conf & "smtpserver") = "]+Alltrim(cSmpt)+["]+CRLF+Spac(6) // Адрес SMTP-сервера
cStr += [.Item(v_Conf & "smtpauthenticate") = 1]+CRLF+Spac(6) // Тип авторизации
cStr += [.Item(v_Conf & "sendusername") = "]+Alltrim(cUser)+["]+CRLF+Spac(6) // Имя пользователя - отправителя
cStr += [.Item(v_Conf & "sendpassword") = "]+Alltrim(cPass)+["]+CRLF+Spac(6) // пароль
cStr += [.Item(v_Conf & "smtpserverport") = 25]+CRLF+Spac(6) // порт (альтернативный - 465)
cStr += [.Item(v_Conf & "smtpusessl") = ]+IF(lSSL,"True","False")+CRLF+Spac(6) // использовать ли шифрованое подключение SSL
cStr += [.Item(v_Conf & "smtpconnectiontimeout") = 60]+CRLF+Spac(6) // Время до завершения повторных попыток подключения
cStr += [.Update]+CRLF+Spac(6)
cStr += [End With]+CRLF+Spac(3)
cStr += [.send]+CRLF
cStr += [End With]+CRLF
cStr += [Set o_Mess = Nothing]

// Сохраняю строку в файле с заданным именем в Windows кодировке
MemoWrit( cFile, HB_OEMTOANSI(cStr) )
RUN &cFile

// Удаляю за собой скрипт
fErase(cFile)
RETU



Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6299
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 19.02.17 18:00. Заголовок: AndreyZh Был бы это..


AndreyZh
Был бы это Harbour я бы помог , но с X я пасс , давно слез с X на версию без X и не жалею.
Андрей по ходу тоже слез или уже почти слез полностью.
Вариант с VBS + CDO возможно будет работать , не ковырял. Вот только что будешь
делать с кодами возврата , ведь не факт что почта ушла , могут быть сбои у прова или еще что.

PS
С CDO fil разбирался http://clipper.borda.ru/?1-4-0-00000857-000-0-0-1369765192
Попроси его выложить пример , да и мне тоже интересно

Можно еще покурить тему

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6523
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 04.08.17 12:51. Заголовок: Dima пишет: а если ..


Dima пишет:

 цитата:
а если учесть что ошибок начиная с цифры 4 может быть много ( тут подробнее)
тогда нужно вот так
.OR. hb_LeftEq( ::cReply, "4" )



Так и не исправили с тех пор

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 64
Зарегистрирован: 18.06.15
ссылка на сообщение  Отправлено: 04.12.18 13:10. Заголовок: Нарисовалась задача ..


Нарисовалась задача - сразу после создания отчетов файлы отправлять по e-mail заказчику.
С hb_SendMail() разобрался ... вылезла другая хрень ...
Во всей конторе стоит антивирус McAfee (понятно, начальство деньги экономит ...) и
при активации "Защита доступа" почта не уходит. С Касперским проблем нет.
... Вопрос - это дерьмо можно как-нибудь обойти ? (Смену антивируса не предлагать).

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1487
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 04.12.18 13:27. Заголовок: Alex_Cher пишет: эт..


Alex_Cher пишет:

 цитата:
это дерьмо можно как-нибудь обойти ?


Обычно в настройках любого антивируса можно указать исключения.

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 73 , стр: 1 2 3 4 All [только новые]
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 811
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет