ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Simple MAPI Outlook Express
15 сообщений из 15, страница 1 из 1
VBA Simple MAPI Outlook Express
    #36019000
Фотография dab2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dab2
Участник
Привет всем! Тема проходила, но расписана не конкретно. Просьба выложить пример работы с Outlook Express через Simple MAPI из VBA. Желательно с примером отправки писем в HTML формате и с множественным списком адресатов.
Сам попробовал - отправляет письма в тектовом формате, но только получается вариант одно письмо для одного адресата и в полях к адресу подставляются скобки с двух сторон <>, что не даёт отправить письмо для множества адресатов.
Как отправить в HTML формате одно письмо множеству получателей?

============================================================================================================
"О, сколько нам открытий чудных готовит просвещения дух, и опыт - сын ошибок трудных, и гений - парадоксов друг, и случай - бог изобретатель" (Пушкин, однако).
...
Рейтинг: 0 / 0
01.06.2009, 14:20
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36019107
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: dab2
> Привет всем! Тема проходила, но расписана не конкретно. Просьба выложить пример работы с Outlook
Забыл дописать


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
01.06.2009, 15:07
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36020115
Фотография dab2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dab2
Участник
Игорь Горбонос
> Автор: dab2
> Привет всем! Тема проходила, но расписана не конкретно. Просьба выложить пример работы с Outlook
Забыл дописать

Да, хотелось бы видеть именно универсальный вариант.
Примерно вот так:
ИмяФункции(адрес, тема, тело, типПисьма, файл)
М.б. у кого-нибудь есть подобное? Судя по форуму, тут уже есть просто спецы в этом. Поделитесь же со страждущими! Очень надо! И будет вам большой респект! Пиво почтой!
Функция-то действительно получается внешне без больших разнообразий. Или доку для Simple MAPI тогда уж под Бейсик укажите.
Но лучше готовый пример.

Кстати, сам делал Simple MAPI по примеру здесь:
/topic/528966&hl=simple+mapi
но... вопросы перечислены выше.

Можно посмотреть здесь, но вот с параметрами функций не всё как раз понятно:
http://hiprog.com/index.php?option=com_content&task=view&id=449
...
Рейтинг: 0 / 0
01.06.2009, 21:58
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36021348
Фотография dab2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dab2
Участник
Вот нашёл ещё примеры без комментариев. Однако, не понятно, как делать письма в формате HTML?
/topic/75643&hl=private+bnewsession+boolean+flag+signal+logon+status
/topic/49898&hl=
============================================================================================================
"О, сколько нам открытий чудных готовит просвещения дух, и опыт - сын ошибок трудных, и гений - парадоксов друг, и случай - бог изобретатель" (Пушкин, однако).
...
Рейтинг: 0 / 0
02.06.2009, 14:52
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36021456
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: dab2
> Вот нашёл ещё примеры без комментариев. Однако, не понятно, как делать письма в формате HTML?

У CDO есть свойство htmlbody, может стоит сменить MAPI на CDO?


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
02.06.2009, 15:26
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36021516
Фотография dab2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dab2
Участник
Игорь, а стоит он того? Почему в коде там ссылки на сетевые ресурсы? В чём примущества? Хочу доделать именно Simple MAPI - дело-то за малым. М.б. поможете?
...
Рейтинг: 0 / 0
02.06.2009, 15:44
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36021615
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: dab2
> Игорь, а стоит он того? Почему в коде там ссылки на сетевые ресурсы?

Так называются свойства объекта

> В чём примущества?

В том что CDO может передавать HTML

> Хочу доделать именно Simple MAPI - дело-то за малым.

У меня есть подозрение, что то что ты используешь, предназначалось для раннего этапа развития ВБА.
Пока искал, нашел эту статью.

> М.б. поможете?
Да что помогать, если
Код: plaintext
mapMess.MsgNoteText = "сюда присвоить текст с html-разметкой"
и отправить и он отправится не правильно, тогда менять отправщика


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
02.06.2009, 16:31
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36021719
SoftParanoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SoftParanoik
Участник
INFO: MAPI Is Not Suitable for HTML Messages
Extended Messaging Application Programming Interface (MAPI) should not be used to generate HTML-formatted messages. As an alternative, consider using the Microsoft Outlook Object Model, CDONTS, CDOSYS, CDOEX, or a third-party SMTP control.
MORE INFORMATION
MAPI 1.0 was written before HTML mail was developed and does not reliably support the creation of HTML-formatted messages. MAPI 1.0 is the version supported by all versions of Microsoft Exchange through version 5.5 (and all Service Packs). This includes the following subordinate technologies:

* Simple MAPI
* Extended MAPI
* OLE Messaging
* Active Messaging (Collaboration Data Objects (CDO) 1.1)
* CDO versions 1.2 and 1.21
* MAPI controls (Msmapi32.ocx)


If messages are needed in HTML format, such as for sending text formatted in other languages, alternative technologies that provide more reliable support for HTML messages are recommended:

* CDONTS
* CDO for Windows 2000 (CDOSYS)
* CDO for Exchange 2000 (CDOEX)
* Outlook Object Model of Microsoft Outlook 98 or later
* SMTP-capable ActiveX controls obtained from third-party vendors
...
Рейтинг: 0 / 0
02.06.2009, 17:06
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36021728
Фотография dab2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dab2
Участник
Жаль, если это так. Хотя меня не покидает ощущение, что я просто чего-то не знаю про MAPI.
============================================================================================================
"О, сколько нам открытий чудных готовит просвещения дух, и опыт - сын ошибок трудных, и гений - парадоксов друг, и случай - бог изобретатель" (Пушкин, однако).
...
Рейтинг: 0 / 0
02.06.2009, 17:11
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36022450
Фотография dab2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dab2
Участник
Сделал код на CDO, но ошибка -2147220973
К сожалению, в тексте ошибки абракадабра, поэтому её значение не могу здесь написать. Судя по форумам, это ошибка подключения. Но у меня правильные настройки.
Кто борол сие?
============================================================================================================
"О, сколько нам открытий чудных готовит просвещения дух, и опыт - сын ошибок трудных, и гений - парадоксов друг, и случай - бог изобретатель" (Пушкин, однако).
...
Рейтинг: 0 / 0
03.06.2009, 01:18
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36022920
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: dab2
> Сделал код на CDO, но ошибка -2147220973
> Кто борол сие?

Да, как-то ошибок не возникало. Показывай код


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
03.06.2009, 10:49
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36023203
Фотография dab2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dab2
Участник
Код: 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.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
Sub testmail()

Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String

On Error GoTo er

Set oMSG = CreateObject("CDO.Message")
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") = "mail.intercon.ru"
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =  1 
'CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
'CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
'CFields("urn:schemas:mailheader:content-language") = "windows-1251"
'CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
CFields.Update

strBody = "<html><body><p>Если долго мучиться, что-нибудь получится!</p></body></html>"

With oMSG
  .To = "address@mail.ru"
  '.CC = vbNullString
  '.BCC = vbNullString
  '.From = ""
  .Subject = "Проба" 
  .BodyPart.Charset = "windows-1251"
  '.AddAttachment "c:VANotesInstaller.log" 'путь к вложенному файлу
  '.HTMLBody = strBody 
  .textbody = strBody
  .Send
End With

Set CFields = Nothing
Set oConfig = Nothing
Set oMSG = Nothing

er:
MsgBox "Ошибка:" & Format$(Err.Number) & vbCr & Err.Description, vbCritical

End Sub
...
Рейтинг: 0 / 0
03.06.2009, 12:08
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36023369
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: dab2

А у тебя админы случаем не зарезали выход на внешний smtp?



Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
03.06.2009, 12:56
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36023372
Фотография dab2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dab2
Участник
Нет, я же почту через него из Outlook Express отправляю.
...
Рейтинг: 0 / 0
03.06.2009, 12:57
| Ответить | Цитировать | Написать  
VBA Simple MAPI Outlook Express
    #36030153
Фотография dab2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dab2
Участник
Запустил SMTP на IIS и всё заработало из Word 2003 (в 2007 работает без проблем через сервак провайдера). Поправил параметр
Код: plaintext
CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
и без использования параметров аутентификации
Код: plaintext
1.
2.
'CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
'CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
'CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
Вот почему Word2003 не захотел пользовать сервак провайдера мне пока не понятно...
============================================================================================================
"О, сколько нам открытий чудных готовит просвещения дух, и опыт - сын ошибок трудных, и гений - парадоксов друг, и случай - бог изобретатель" (Пушкин, однако).
...
Рейтинг: 0 / 0
08.06.2009, 00:48
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Simple MAPI Outlook Express
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=36021728&tid=2160866]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 19ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 187ms
total:  271ms
созд. / загр.: 271ms
x
x
Закрыть


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