Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программная отправка e-mail сообщений / 8 сообщений из 8, страница 1 из 1
15.02.2011, 17:30
    #37117787
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программная отправка e-mail сообщений
Всем привет!

На прошлой работе написал код на VB/(VBA) для отправки сообщей посредствам CDO.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
  Set iMsg = CreateObject("CDO.Message")
  Set iConf = CreateObject("CDO.Configuration")
  iConf.Load - 1     ' CDO Source Defaults
  Set Flds = iConf.Fields
  With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  25 
    .Update
  End With
    If adress <> "" Then
     With iMsg
        Set .Configuration = iConf
        .To = Trim(adress) 'кому
        .CC = Cop 'копия
        .BCC = ""
        .From = """Сергей"" <xxx@xxxxxx.xxx.ru>;"
        .subject = ConvertCodePage(MessageSubject, koi, win)
        .TextBody = ConvertCodePage(MessageBody, koi, win)
        .AddAttachment PDFFile(i)
        .Send
     End With
     
     Set iMsg = Nothing
     Set iConf = Nothing
    Else
    MsgBox "Письмо не отправленно: " & Chr( 13 ) & "Для него нет e-mail"
    End If
Тоесть осуществляешь подключение к SMTP серверу и вперед.

Хотел внедрить этот кусок и здесь, НО!
Почтовое приложение настроено через Microsoft Exchange Server. И как найти SMTP не знаю, с Microsoft Exchange Server сталкнулся впервые. Что это такое и как его "едят"?
Есть рабочий код для отправки сообщений через Microsoft Office Outlook 2003, но хотел бы попробывать через CDO, так как при этом не требуется запуска почтовой программы (в моем случае Microsoft Office Outlook 2003) и не остаются писма в отправленных.

Возможно ли это и как?

Заранее благодарен.

-----------
Андрей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.02.2011, 00:55
    #37118496
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программная отправка e-mail сообщений
Belkin,

В плане изменения кода, нужно изменить только значение поля " http://schemas.microsoft.com/cdo/configuration/smtpserver".
Инструкцию с картинками по настройке Exchange 2003 можно найти, например, тут
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.02.2011, 12:07
    #37119308
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программная отправка e-mail сообщений
Спасибо за ссылку.
Дело в том что я не могу найти SMTP сервер (ip или имя) или может быть он закрыт для прямого обращения. Такое может быть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.02.2011, 01:35
    #37121355
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программная отправка e-mail сообщений
Belkin,
Попоробуйте узнать порт и адрес сервера у админа почтовика. Или это открытый почтовик ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.02.2011, 10:33
    #37121657
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программная отправка e-mail сообщений
big-duke,

Если бы так было просто узнать, наверное легче перебрать все адреса и порты, чем найти админов кто им занимается и потом допроситься у них :(
:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.02.2011, 20:18
    #37123256
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программная отправка e-mail сообщений
так все-таки почтовый сервер у вас локальный или публичный ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2011, 09:29
    #37123723
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программная отправка e-mail сообщений
big-dukeтак все-таки почтовый сервер у вас локальный или публичный ?
Может я не совсем понимаю тебя, что значит локальный и пудличный?
Почтовый сервер позволяет обмениваться сообщениями внутри организации и (при наличии доступа) отправлять и принимать внешнюю почту.
Я не знаю как построена вся архитектура, возможно это несколько серверов связаных между собой.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2011, 09:31
    #37123726
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программная отправка e-mail сообщений
Мне достаточно было бы отправлять сообщения внутри организации без внешних адресов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программная отправка e-mail сообщений / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 431ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2177160]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 138ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 223ms
total:  431ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]