Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы
Старый 05.01.2011, 22:34   #71
sasha_prof
Форумчанин
 
Регистрация: 06.01.2010
Сообщений: 292
По умолчанию

Есть такая возможность?
sasha_prof вне форума
Старый 17.04.2011, 22:58   #72
deemka777
Пользователь
 
Регистрация: 22.02.2011
Сообщений: 38
По умолчанию

недавно мучился с отправкой send mail через google почту @gmail.com
пытался применить к
http://programmersforum.ru/showpost....2&postcount=29

как оказалось, нужно всего ничего)
Код:
Set cdoConfig = CreateObject("CDO.Configuration")
    With cdoConfig.Fields
        .Item(cdoConfigURL & "sendusing") = 2
        .Item(cdoConfigURL & "smtpserver") = SMTPserver
        .Item(cdoConfigURL & "smtpserverport") = 465         'порт для SSL: 465
        .Item(cdoConfigURL & "smtpauthenticate") = 1
        .Item(cdoConfigURL & "sendusername") = sendusername
        .Item(cdoConfigURL & "sendpassword") = sendpassword
        .Item(cdoConfigURL & "smtpusessl") = 1                  'использовать аутентификацию: да
        .Update
    End With
deemka777 вне форума
Старый 19.04.2011, 12:58   #73
Istanus
 
Аватар для Istanus
 
Регистрация: 19.04.2011
Сообщений: 4
По умолчанию Отправка.

А какой SMTP сервер брал?
у меня что-то не через gmail не через яндекс не через mail не отправляется... Мозг кипит )))

Есть подозрения что внутреняя система безопастности блокирует

Последний раз редактировалось Istanus; 19.04.2011 в 13:01.
Istanus вне форума
Старый 19.04.2011, 13:04   #74
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,841
По умолчанию

Цитата:
у меня что-то не через gmail не через яндекс не через mail не отправляется... Мозг кипит )))
а вы уверены, что адрес учётки, с которой отправляется письмо, указан такой же, как и адрес отправителя?

Для макроса это разные параметры - и, к примеру, с аккаунта test@mail.ru не получится отправить письмо от имени vasya@mail.ru
(почтовый сервер mail.ru не отправит такое письмо. А с некоторых почтовых систем вы можете отправлять письма от любого имени)
EducatedFool вне форума
Старый 19.04.2011, 14:08   #75
Istanus
 
Аватар для Istanus
 
Регистрация: 19.04.2011
Сообщений: 4
По умолчанию

Адресса копировал. Указывал такие же как на учётке.
Может прокси или еще что-то блокировать отправку и как это узнать?
Была идея что из-за блока записи в реестр могло не работать присвоил значения напрямую всё равно посылает ((
не пойму сначало думал, что из-за авторизации гугла не то... создал почту на яндексе, потом на майле(т.к. изначально тестировали от туда) и все равно везде включил авторизацию порт с шифрованием и всё равно (
Думаю что дело в другом.
OS WinXP 2002 SP3

Последний раз редактировалось Istanus; 19.04.2011 в 14:20.
Istanus вне форума
Старый 19.04.2011, 14:48   #76
Istanus
 
Аватар для Istanus
 
Регистрация: 19.04.2011
Сообщений: 4
По умолчанию

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

Как понять что режет доступ для отправки через google,yandex,mail?
Прокси или что-то еще?

Последний раз редактировалось Istanus; 19.04.2011 в 16:35.
Istanus вне форума
Старый 22.04.2011, 12:13   #77
Istanus
 
Аватар для Istanus
 
Регистрация: 19.04.2011
Сообщений: 4
По умолчанию

В общем создал почтовый ящик на серваке локальном )
Другово решения не нашел .
Istanus вне форума
Старый 05.11.2011, 01:44   #78
Phoenixlord
Новичок
Джуниор
 
Регистрация: 05.11.2011
Сообщений: 1
По умолчанию

Доброго времени суток. Есть проблема:
Имеем диапазон ячеек, например, A1:C13

Имеем макрос:

Код:
Sub mail_OTO()
ActiveSheet.Select
Set OutlookApp = CreateObject("Outlook.Application")
Set SM = OutlookApp.CreateItem(olMailItem)
SM.To = ""
SM.CC = ""
SM.Subject = ""
SM.Body = ""
SM.Display
On Error Resume Next
Set SM = Nothing
Set OutlookApp = Nothing
End Sub
Как в тело письма вставить диапазон ячеек, включая формат (фон, шрифт и т.д.), чтобы заменить стандартный ручной копипейст?

Код:
SM.Body = ActiveSheet.Range("A1:C13").Value
Выдаёт ошибку "нижняя граница массива должна быть равна нулю"

Последний раз редактировалось Phoenixlord; 05.11.2011 в 01:47.
Phoenixlord вне форума
Старый 05.11.2011, 01:59   #79
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,904
По умолчанию

только в формате HTML

Выполните код и увидите отформатированное письмо
Код:
Sub CreateHTMLMail()
  Dim olApp As Outlook.Application
    Dim objMail As MailItem
    Set olApp = Outlook.Application
    Set objMail = olApp.CreateItem(olMailItem)
    With objMail
       'Set body format to HTML
       .BodyFormat = olFormatHTML
       .HTMLBody = "<html><body><div>" & _
"<h4><span style=""color: rgb(255, 0, 0); font-weight: bold;"">ПЕРВАЯ СТРОКА,красная и жирная<br>" & _
"</span></h4></div>" & _
"<h2>The <span style=""color: rgb(51, 204, 0);"">body </span>of this <span" & _
"style=""color: rgb(51, 102, 255);"">message will appear</span> in <span" & _
"style=""color: rgb(255, 0, 0);"">HTML</span>.</h2></body></html>"
       .Display
    End With
End Sub
Анализ,обработка данных Недорого
doober вне форума
Старый 07.11.2011, 19:58   #80
komar73
Пользователь
 
Регистрация: 24.01.2009
Сообщений: 66
По умолчанию

Я в тупике. Если по умолчанию ставлю Outlook выдает сообщение (Не смотря на то что в настройках я указал "никогда не предупреждать о подозрительной активности"). Через The bat письма остаются в исходящих. Как автоматизировать отправку теперь даже не знаю. Подскажите как решить эту проблему?
komar73 вне форума
Закрытая тема

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправка почты Fess HTML и CSS 15 11.03.2010 21:24
Отправка почты Fo][ Работа с сетью в Delphi 1 21.01.2009 00:15
отправка почты? gusluk Работа с сетью в Delphi 2 17.11.2008 08:45
Отправка почты Fenix Nexsais Работа с сетью в Delphi 5 06.09.2007 22:27
Отправка почты Mikola PHP 4 12.08.2007 04:17