Фдуч Опубликовано 4 июня, 2009 Жалоба Поделиться Опубликовано 4 июня, 2009 Юзал поиск, но ничего не нашел. Вопрос в следующем. Как из VisualBasic отправить файл по электронке? Нужно чтобы было так, как будто пользователь выбрал в контекстном меню винды "Отправить-Адресат". После чего запустилась прога установленная по умолчанию для отсылки почты. Знаю, что это возможно и знаю, что довольно просто, но просто сейчас нет под рукой MSDN. Подскажите. Если можно с примером. Заранее спасибо. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Фдуч Опубликовано 5 июня, 2009 Автор Жалоба Поделиться Опубликовано 5 июня, 2009 Нашел. Вот примерный код. Public Const MAPI_USER_ABORT = 1Public Const SUCCESS_SUCCESS = 0Public Declare Function MAPISendDocuments Lib "MAPI32.DLL" (ByVal UIParam&, ByVal DelimStr$, ByVal FilePaths$, ByVal FileNames$, ByVal Reserved&) As Longdim sDir as Stringdim NameFile as StringSub SendFile()sDir="c:\test"NameFile="test.txt"Select Case MAPISendDocuments(0, ";", sDir + "\" + NameFile, NameFile, 0) Case SUCCESS_SUCCESS MsgBox "Файл успешно отправлен.", vbOKOnly Case MAPI_USER_ABORT MsgBox "Вы отменили отправку. ", vbCritical Case Else MsgBox "Ошибка отправки файла. ", vbCriticalEnd SelectEnd Sub Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.