VBNet - Форум - VB и почтовая программа

Вопрос: VB и почтовая программа Добавлено: 23.05.06 08:29

Автор вопроса: Cranberry | ICQ: 15908581

Привет всем! вопрос такой.. ОЧЕНЬ НУЖЕН ответ.
Каким образом можно из VB приложения можно открыть почтовую программу, которая определена по умолчанию или MS Outlook.
Нужно чтобы отобразилось создаваемое сообщение, уже был вписан заранее известный адрес, заголовок и вложен файл.

Заранее спасибо!
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: SRV ICQ: 254226129 Вопросов: 30 Ответов: 107	Профиль \| \| #1	Добавлено: 23.05.06 10:04
	Посмотри в разделе примеры! Там есть код, который помещает в TheBat! письмецо Ответить

Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #2	Добавлено: 23.05.06 14:33
	ShellExecute mailto: .... Ответить

Номер ответа: 3 Автор ответа: Fever Вопросов: 60 Ответов: 808	Профиль \| \| #3	Добавлено: 26.05.06 14:08
	Ну как, удалось? Почему все бросают свои топики? Ответить

Номер ответа: 4 Автор ответа: Nj ICQ: 223663115 Вопросов: 21 Ответов: 285	Профиль \| \| #4	Добавлено: 30.05.06 21:55
	shell "mailto:mailer@cool.ru" - помойму... Ответить

Номер ответа: 5 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655	Профиль \| \| #5	Добавлено: 31.05.06 09:33
	"mailto" вложения не поддеоживает. Попробуй здесь покопаться: Отсылка сообщения через MicroSoft OutLook с вложением Отсылает (помещает в папку ИСХОДЯЩИЕ) сообщение с заданными параметрами, в т.ч. и файлом вложения. Пример применения: MyEMail = "damir_shakirov@mail.ru" MySubject = "Обновление данных" MyFilePath = "C:\new.mdb" MyText = "Привет!" & Chr(13) & Chr(10) & _ "Обновление данных от " & Format(Date, "dd.mm.yyyy" & " - " & Now() & Chr(13) & Chr(10) Call JS_SendEmail(MyEMail, MySubject, MyText, MyFilePath) Причем если необходимо передать сообщение нескольким адресатам, то в строку адреса можно предать несколько адресов разделяя их точкой с запятой и пробелом. Function JS_SendEmail(ByVal MyTo As String, Optional MySybject As Variant = "", _ Optional MyBody As Variant, Optional MyAttachment As Variant) Dim MyApplication As Object Dim myItem As Object Dim OlNotRunning As Boolean On Error Resume Next Set MyApplication = GetObject(, "Outlook.Application" If Err.Number <> 0 Then OlNotRunning = True Err.Clear Set MyApplication = CreateObject("Outlook.Application" End If '*********************************************** Set myItem = MyApplication.CreateItem(0) With myItem .to = MyTo .Subject = MySybject .Body = MyBody If Not IsNull(MyAttachment) Then .Attachments.Add MyAttachment End If '.Display .Send End With 'If OlNotRunning = True Then MyApplication.Application.Quit SendEmailExit: Exit Function WrongParameters: End Function © Шакиров Дамир. Ответить

Номер ответа: 6 Автор ответа: Nj ICQ: 223663115 Вопросов: 21 Ответов: 285	Профиль \| \| #6	Добавлено: 31.05.06 22:15
	Маленькое уточнение: вместо & Chr(13) & Chr(10) & использовать константы бэйсика & vbNewLine & & vbCrLf & & vbCr & vbLf & Ответить

Страница: 1 |