Отправка почты макросом Excel - Microsoft Office Excel - Страница 8

sasha_prof · 05.01.2011, 21:34

Есть такая возможность?

deemka777 · 17.04.2011, 22:58

недавно мучился с отправкой 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

Istanus · 19.04.2011, 12:58

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

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

EducatedFool · 19.04.2011, 13:04

Цитата:

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

а вы уверены, что адрес учётки, с которой отправляется письмо, указан такой же, как и адрес отправителя?

Для макроса это разные параметры - и, к примеру, с аккаунта test@mail.ru не получится отправить письмо от имени vasya@mail.ru
(почтовый сервер mail.ru не отправит такое письмо. А с некоторых почтовых систем вы можете отправлять письма от любого имени)

Istanus · 19.04.2011, 14:08

Адресса копировал. Указывал такие же как на учётке.
Может прокси или еще что-то блокировать отправку и как это узнать?
Была идея что из-за блока записи в реестр могло не работать присвоил значения напрямую всё равно посылает

((
не пойму сначало думал, что из-за авторизации гугла не то... создал почту на яндексе, потом на майле(т.к. изначально тестировали от туда) и все равно везде включил авторизацию порт с шифрованием и всё равно

(
Думаю что дело в другом.
OS WinXP 2002 SP3

Istanus · 19.04.2011, 14:48

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

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

Istanus · 22.04.2011, 12:13

В общем создал почтовый ящик на серваке локальном

)
Другово решения не нашел .

Phoenixlord · 05.11.2011, 01:44

Доброго времени суток. Есть проблема:
Имеем диапазон ячеек, например, 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

Выдаёт ошибку "нижняя граница массива должна быть равна нулю"

doober · 05.11.2011, 01:59

только в формате 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

komar73 · 07.11.2011, 19:58

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

19.04.2011, 12:58	#73
Istanus Регистрация: 19.04.2011 Сообщений: 4	Отправка. А какой SMTP сервер брал? у меня что-то не через gmail не через яндекс не через mail не отправляется... Мозг кипит ))) Есть подозрения что внутреняя система безопастности блокирует Последний раз редактировалось Istanus; 19.04.2011 в 13:01.

19.04.2011, 14:08	#75
Istanus Регистрация: 19.04.2011 Сообщений: 4	Адресса копировал. Указывал такие же как на учётке. Может прокси или еще что-то блокировать отправку и как это узнать? Была идея что из-за блока записи в реестр могло не работать присвоил значения напрямую всё равно посылает (( не пойму сначало думал, что из-за авторизации гугла не то... создал почту на яндексе, потом на майле(т.к. изначально тестировали от туда) и все равно везде включил авторизацию порт с шифрованием и всё равно ( Думаю что дело в другом. OS WinXP 2002 SP3 Последний раз редактировалось Istanus; 19.04.2011 в 14:20.

19.04.2011, 14:48	#76
Istanus Регистрация: 19.04.2011 Сообщений: 4	Настроил макрос на локальный почтовый сервер внутри сети. После небольших манипуляций письмо ушло. И было получено адресатом. Как понять что режет доступ для отправки через google,yandex,mail? Прокси или что-то еще? Последний раз редактировалось Istanus; 19.04.2011 в 16:35.

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.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

05.01.2011, 21:34	#71
sasha_prof Форумчанин Регистрация: 06.01.2010 Сообщений: 292	Есть такая возможность?

22.04.2011, 12:13	#77
Istanus Регистрация: 19.04.2011 Сообщений: 4	В общем создал почтовый ящик на серваке локальном ) Другово решения не нашел .

07.11.2011, 19:58	#80
komar73 Пользователь Регистрация: 24.01.2009 Сообщений: 66	Я в тупике. Если по умолчанию ставлю Outlook выдает сообщение (Не смотря на то что в настройках я указал "никогда не предупреждать о подозрительной активности"). Через The bat письма остаются в исходящих. Как автоматизировать отправку теперь даже не знаю. Подскажите как решить эту проблему?

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