Отправка почты макросом Excel

[doober]

Валера,пункт 4.
Добавь этот код ,у Игоря он закомментирован,узнаешь причину отказа

      If Err.Number = -2147220973 Then MsgBox ("Отсутствует связь с интернетом")
        If Err.Number = -2147220975 Then MsgBox ("SMTP сервер ответил отказом")
       If Err.Number = 0 Then MsgBox ("Письмо отправлено")
'добавь  еще 
MsgBox err.Number & err.Description

[valerij]

Сообщение от doober

Валера,пункт 4.

Выполнил!!!!
Старый стал, памяти .....

Но только в понедёрник узнаю.

Ну узнаю, например SMTP сервер ответил отказом, а что я могу сделать, не могу провайдера поменять на окраине города, придётся отказаться от макроса, будут в ручную всаживать в почту.

[valerij]

Сообщение от doober

узнаешь причину отказа

Проверил, пишет: "Отсутствует связь с интернетом"
Как такое может быть, скрин.

[doober]

Все может быть.
Как организован доступ к интернету?
Посмотри на антивирус и прочих стражей.

[valerij]

Сообщение от doober

Все может быть.
Как организован доступ к интернету?
Посмотри на антивирус и прочих стражей.

Да все как обычно, через роутер(дома так же), причем я пробовал под ХР с библиотекой...
Сторожа не причем....

Может провайдер такой файл не пропускает, а можно для пробы, макросом его сжать или добавить расширение & ".xls.zip"

Завтра попробую.

[valerij]

Сообщение от valerij

Может провайдер

Таки провайдер вынен. 25 порт у них закрыт, пришлось у них создать ящЫк и все стало ОК!!

[Andrewso]

Макрос "doober"-а по его ссылке, с самого начала ветки - Sub My_send()
заработал в Windows 2008 R2 x64.

Стоят Excel 2007 x32 и Excel 2010 x64.
Библиотека в системе по адресу существует:
C:\Windows\System32\Cdosys.dll

Подключается так (если не подключена):
1. Клик правой кнопки мыши на ярлычке любого листа в книге - Исходный текст;
2. Откроется редактор;
3. Tools > References > Browse, откроется окно поиска > переходим к файлу C:\Windows\System32\Cdosys.dll > Открыть.

В окошке "References - VBAProject" / "Available References":
появится отмеченная галочкой строка: "Microsoft CDO for Windows 2000 Library"

.. это для Excel 2010 x64, при изначально существующем в системе файле Cdosys.dll (x64 Cdosys.dll, полагаю), макрос работал, e-mail сообщения отправлялись и принимались. ))
Для Excel 2007 x32 окошко "References" мигало, подключения библиотеки не происходило, макрос отправки вылетал с ошибкой.

Моё ламерское объяснение - для Excel 2010 x64 подключается версия x64 Cdosys.dll;
- для Excel 2007 x32 (Excel 2007 x64 - вроде нет такого?) подключается версия x32 Cdosys.dll.

Версию x32 Cdosys.dll пока не искал и не подключал. Как в x64 Системе будет работать Excel 2007 x32 с библиотекой x32 Cdosys.dll - не знаю.

В WinXP x32 пока не пробовал.

Скачал фикс:
http://support.microsoft.com/kb/982720/ru
Ключевые слова:
kbHotfixServer kbautohotfix kbsurveynew kbqfe kbfix kbmt KB982720 KbMtru

- на моей Windows 2008 R2 он сказал что не требуется. Высылают ссылку на майл, пришла сразу.

До кучи:
http://support.microsoft.com/kb/310212/ru
Ключевые слова:
kbsweptvs2008 kbcode kbhowto kbmt KB310212 KbMtru


.. повторяю код

Sub My_send()
 'http://programmersforum.ru/showpost.php?p=469142&postcount=7
  Set cdoConfig = CreateObject("CDO.Configuration")
 
  With cdoConfig.Fields
   .Item(cdoSendUsingMethod) = cdoSendUsingPort
   .Item(cdoSMTPAuthenticate) = 1
   .Item(cdoSMTPServer) = "smtp.mail.ru"           ' Ваш SMTPServer
   .Item(cdoSendUserName) = "loginOUT"             ' Ваша учетная запись
   .Item(cdoSendPassword) = "xxxxxxxxxxxx"         ' Ваш  пароль
   .Update
  End With
     
  Set cdoMessage = CreateObject("CDO.Message")
 
  With cdoMessage
   On Error Resume Next
   Set .Configuration = cdoConfig
   .From = "loginOUT@mail.ru"
   .To = "loginIN@mail.ru"
   .Subject = "Здесь тема письма"
   .TextBody = "текст тела письма"
   '.AddAttachment "c:\1.xls" ' Добавляем файл
   '.AddAttachment "c:\12.xls"
   '.AddAttachment "c:\123.xls"
   .Send
  End With
  
  If Err.Number = -2147220973 Then
   MsgBox ("Отсутствует связь с интернетом")
  End If
  
  If Err.Number = -2147220975 Then
   MsgBox ("SMTP сервер ответил отказом")
  End If
  
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing

  If Err.Number = 0 Then
   MsgBox ("Письмо отправлено")
  End If
End Sub

[sasha_prof]

Как выбирать учетку с которой отправлять в Outlook?

[sasha_prof]

неужели никто не знает?

[Parklane1488]

Всем привет
Я создал макрос, который делит здоровое полотно в Excel пофилиально( то есть режет на 60 файликов)
Мне нужно, чтобы все эти файлики отправлялись ответственным по каждому филиалу(то есть 60 писем с разными вложениями)
Посоветуйте пожалуйста, можно ли как-то сделать список адресатов и вложений, чтобы макрос к ним обращался?
Почта Аутлуковская
Заранее спасибо