Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Simple MAPI Outlook Express / 15 сообщений из 15, страница 1 из 1
01.06.2009, 14:20
    #36019000
dab2
dab2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Simple MAPI Outlook Express
Привет всем! Тема проходила, но расписана не конкретно. Просьба выложить пример работы с Outlook Express через Simple MAPI из VBA. Желательно с примером отправки писем в HTML формате и с множественным списком адресатов.
Сам попробовал - отправляет письма в тектовом формате, но только получается вариант одно письмо для одного адресата и в полях к адресу подставляются скобки с двух сторон <>, что не даёт отправить письмо для множества адресатов.
Как отправить в HTML формате одно письмо множеству получателей?

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


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2009, 21:58
    #36020115
dab2
dab2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Simple MAPI Outlook Express
Игорь Горбонос
> Автор: 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
| Ответить | Цитировать | Написать  
02.06.2009, 14:52
    #36021348
dab2
dab2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Simple MAPI Outlook Express
Вот нашёл ещё примеры без комментариев. Однако, не понятно, как делать письма в формате HTML?
/topic/75643&hl=private+bnewsession+boolean+flag+signal+logon+status
/topic/49898&hl=
============================================================================================================
"О, сколько нам открытий чудных готовит просвещения дух, и опыт - сын ошибок трудных, и гений - парадоксов друг, и случай - бог изобретатель" (Пушкин, однако).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2009, 15:26
    #36021456
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Simple MAPI Outlook Express
> Автор: dab2
> Вот нашёл ещё примеры без комментариев. Однако, не понятно, как делать письма в формате HTML?

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


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

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

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

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

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

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

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


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2009, 17:06
    #36021719
SoftParanoik
SoftParanoik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Simple MAPI Outlook Express
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:11
    #36021728
dab2
dab2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Simple MAPI Outlook Express
Жаль, если это так. Хотя меня не покидает ощущение, что я просто чего-то не знаю про MAPI.
============================================================================================================
"О, сколько нам открытий чудных готовит просвещения дух, и опыт - сын ошибок трудных, и гений - парадоксов друг, и случай - бог изобретатель" (Пушкин, однако).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2009, 01:18
    #36022450
dab2
dab2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Simple MAPI Outlook Express
Сделал код на CDO, но ошибка -2147220973
К сожалению, в тексте ошибки абракадабра, поэтому её значение не могу здесь написать. Судя по форумам, это ошибка подключения. Но у меня правильные настройки.
Кто борол сие?
============================================================================================================
"О, сколько нам открытий чудных готовит просвещения дух, и опыт - сын ошибок трудных, и гений - парадоксов друг, и случай - бог изобретатель" (Пушкин, однако).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2009, 10:49
    #36022920
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Simple MAPI Outlook Express
> Автор: dab2
> Сделал код на CDO, но ошибка -2147220973
> Кто борол сие?

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


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2009, 12:08
    #36023203
dab2
dab2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Simple MAPI Outlook Express
Код: 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:56
    #36023369
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Simple MAPI Outlook Express
> Автор: dab2

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



Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2009, 12:57
    #36023372
dab2
dab2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Simple MAPI Outlook Express
Нет, я же почту через него из Outlook Express отправляю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2009, 00:48
    #36030153
dab2
dab2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Simple MAPI Outlook Express
Запустил 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Simple MAPI Outlook Express / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 358ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2160866]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 45ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 227ms
total:  358ms
x
x
Закрыть


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