| |
 14 Кб. |
|
| | сообщение, не удается найти указанный файл,как правильно указать путь?
http://hiprog.com/index.php?option=com_content&task=view&id=458&Itemid=35 | |
| |
| |
| |
|
|
| | слешик потерялся. 
.AddAttachment "C:\files\mybook.doc" | |
| |
| |
| |
|
|
| | Все равно таже ошибка вылазит!  | |
| |
| |
| |
|
|
| | Ошибка возникает при использовании .AddAttachment ?
Следует проверить существует ли файл с указанным именем и путем. | |
| |
| |
| |
|
|
| | Да файл ,путь есть . Вот что я имею.
Private Sub Кнопка2_Click()
Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String
'создаем объект Message это наше письмо
Set oMSG = CreateObject("CDO.Message")
'создаем объект Configuration это настройки соединения
Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig
CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" 'адрес SMTP сервера
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "login" 'Login
'CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123" 'пароль
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update
oMSG.To = "login@mail.ru" 'адрес получателя
oMSG.From = "login@mail.ru" 'адрес отправителя
oMSG.Subject = "Тема" ' тема письма
oMSG.BodyPart.Charset = "windows-1251" ' кодировака письма
oMSG.AddAttachment "C:\files\mybook.doc" 'путь к вложенному файлу"
'формируем HTML текст который будет телом письма
strBody = "Здесь HTML текст." & _
"C уважением, osmor"
oMSG.HTMLBody = strBody 'тело письма
oMSG.Send 'отправляем 'Здесь тормоза............................................
'обнуляем переменные
Set CFields = Nothing
Set oConfig = Nothing
Set oMSG = Nothing
End Sub
И еще, как можно связаться с Прусом. | |
| |
| |
| |
|
|
| | и что?
Говорит что нет файла?
Тормоза ... это отправка письма
Как связаться с Юрой... не знаю | |
| |
| |
| |
|
|
| | В том месте ошибка (тормоза) | |
| |
| |
| |
|
|
| | "В том месте ошибка"
Какая? | |
| |
| |
| |
|
|
| | oMSG.Send 'отправляем дальше выполнение не идет | |
| |
| |
| |
|
|
| | сообщение о ошибке какое? | |
| |
| |
| |
|
|
| | ошибку не выдает , желтая подсветка | |
| |
| |
| |
7 Кб. |
|
| | Извини ,скриншот смотри | |
| |
| |
| |
|
|
| | так .... скажите , а имя сервера, логин и пароль у вас указаны именно такие как в Вашем посте? | |
| |
| |
|
|
| |
|
|
| | ... для отправки почты нужно 3 вещи:
1. SMTP сервер (определяется адресом)
2. Имя пользователя зарегистрированного на этом сервере
3. пароль этого пользователя.
Те что я указал в примере не рабочие они для примера. Вам нужно указать свои... | |
| |
| |
| |
|
|
| | Другие варианты примеров есть отправки почты?
Пробовал DoCmd.SendObject acSendTable, "Таблица1", acFormatXLS, "osmor@mail.ru", , , "Типа заголовок", , False
работает отлично. Вообщем мне нужно из формы отправлять два файла из определенной папки и также принимать почту состоящих из двух файлов .Хороший вариант есть но его нужно бы доработать под свои нужды SendMail_2000 . Может кто займется (договоримся) надо срочно. | |
| |
| |
| |
|
|
| | все реквизиты свои вставил  | |
| |
| |
| |
|
|
| | DoCmd.SendObject требует настроенной учетной записи MAPI
Там где используются не MS почтовые клиенты их нет
Этот пример не требует ничего, все указывается в коде.
Другие способы
http://hiprog.com/index.php?option=com_content&task=view&id=449
http://hiprog.com/index.php?option=com_content&task=view&id=251661547
http://hiprog.com/index.php?option=com_content&task=view&id=251661546 | |
| |
| |
| |
6 Кб. |
|
| | Несколько раз почта оправилась а теперь вылазит ошибка желтая засветка(oMSG.send 'отправляем) | |
| |
| |
| |
|
|
| | написано "Адрес отправителя должен совпадать с авторизованным пользователем"
Стандартная защита от спамеров. | |
| |
| |
| |
11 Кб. |
|
| | Опять пару раз отправил и кердык. Может есть какие то ограничения по количеству или времени? Вылазит сообщение (см.вложение)
CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" 'адрес SMTP сервера
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "мой логин на mail" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "мой пароль" 'пароль
CFields("urn:schemas:mailheader:content-language") = "windows-1251"о
CFields.Update
oMSG.To = "'адрес получателя@mail.ru" 'адрес получателя
oMSG.From = "мой адрес на mail@mail.ru" 'адрес отправителя | |
| |
| |
| |
|
|
| | Это зависит от настроек почтового сервера.
На моих серверах, в случае попытки отправки по SMTP более 5 писем за 5 минут, учетная запись блокируется на 15 минут.
smtp.mai.ru - это не мой сервер... что там настроено незнаю.
Но судя по сообщению что-то примерно такое же. | |
| |
| |
| |
|
|
| | Да! Но если я отправляю из outlook express или the bat и т.д все нормально. Тогда значит.Что значит? | |
| |
| |
| |
|
|
| | Это значит только то что вы делаете действия которые SMTP сервер определяет как недопустимые.
Вы с помощью BAT отправляете с такой же скоростью как и программа?
Сколько писем сразу программно Вы пытаетесь отправить?
В сообщении о ошибке черным по английски написано:
"Вы превысили лимит отправки сообщений, и мы не примим от вас писем в течении 15 минут"
Это значит, что вы отправляете письма слишком часто, чаще чем указано в настройках сервера.
Это сообщение SMTP сервера, оно к коду не имеет ни какого отношения | |
| |
| |
| |
|
|
| | Спасибо.Понятно.Тема закрыта | |
| |
| |
