Фдуч Posted June 4, 2009 Report Share Posted June 4, 2009 Юзал поиск, но ничего не нашел. Вопрос в следующем. Как из VisualBasic отправить файл по электронке? Нужно чтобы было так, как будто пользователь выбрал в контекстном меню винды "Отправить-Адресат". После чего запустилась прога установленная по умолчанию для отсылки почты. Знаю, что это возможно и знаю, что довольно просто, но просто сейчас нет под рукой MSDN. Подскажите. Если можно с примером. Заранее спасибо. Quote Link to comment Share on other sites More sharing options...
Фдуч Posted June 5, 2009 Author Report Share Posted June 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.