Сообщество Чайников

Вопрос

Можно ли програмно вставить сообщение в папку "Исходящие" Outlook Express?

Ответ

  Используй Microsoft MAPI Control 6.0 . Он вставляет сообщения в "Исходящие" текущего почтовика по default.

mpsSession.SignOn
mpmMessage.SessionID = mpsSession.SessionID
'Compose new message
mpmMessage.Compose
'Address message
mpmMessage.RecipDisplayName = "Bla-bla-bla"
mpmMessage.RecipAddress = "name@domain.com"
'Create the message
mpmMessage.MsgSubject = "some subj"
mpmMessage.MsgNoteText = "some text"
mpmMessage.AttachmentPathName = "c:\Status\Report.doc" 'set attachment path
mpmMessage.Send False
mpsSession.SignOff

Sergey Y. Tkachev