Проблема с Outlook
От: Ramm  
Дата: 19.08.05 14:54
Оценка:
Здравствуйте.
У меня такая проблема.
Делаю кнопку при нажатии которой появляется окно Outlook и записывается кому, кто тема и должен быть приаттачен файл. Но когда я аттачу файл Outlook выдаёт сообщение, что «Программа пытается получить доступ к адресам электронной почты, хранящейся в Outlook. Разрешить это действие?» (в англ. Версии что-то типа: «program is trying to access e-mail addresses you have stored in outlook »)и это мешает нормальной работе. Вопрос можно как-то обойти окно? Меня интересует только возможность добавления файла, пользователь сам письмо отправляет. Вот мой код:

Dim oMsg As Outlook._MailItem
Dim olApp As New Outlook.Application
oMsg = olApp.CreateItem(Outlook.OlItemType.olMailItem)
oMsg.Display()
oMsg.Subject = "Посылка вложения "
oMsg.Body = "Привет" & vbCr & vbCr
oMsg.To = " mail@mail.com "
Dim sSource As String = "C:\test.xml"
Dim sDisplayName As String = "test.xml"

Dim sBodyLen As String = oMsg.Body.Length
Dim oAttachs As Outlook.Attachments = oMsg.Attachments
Dim oAttach As Outlook.Attachment

oAttach = oAttachs.Add(sSource, , sBodyLen + 1, sDisplayName)

'oMsg.Send()

olApp = Nothing
oMsg = Nothing
oAttach = Nothing
oAttachs = Nothing
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.