Помогите отправить почту

[Saper]

Задача такая:
Создать в The Bat'е новое письмо, вставить туда адрес, сабж, тело письма и пристегнуть аттач. Затем открыть его с тем, чтобы менеджер принял решение отправлять его или нет.

Нашел в сети очень простой пример:

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory _
As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Private Sub cmdSendIt_Click()
Dim sText As String
sText = "mailto:ppppp@mega.ru?Subject=Пример&Attach=""c:\readme.txt""&Body=Тело"
Call ShellExecute(1, "open", sText, _
vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub

Пример замечательно отрабатывает, но ни в какую не хочет пристегивать аттач.
Поскажите, почему аттач не пристегивается? Можно ли эту задачу решить по-другому, но чтобы не очень сложно?

[Saper]

Нашел вот в сети инфу про SimpleMAPi (то есть mapi32.dll). Пишут, что The Bat его поддерживает. Но при попытке подключить его к проекту появляется окошко "Can't add a reference to the specified file" . В чем дело?

[acoustic]

Вопрос интересный, вот что нашел описание mailto протокола. Параметр attach как это не прискорбно отсутствует.

Нашел вот в сети инфу про SimpleMAPi (то есть mapi32.dll). Пишут, что The Bat его поддерживает. Но при попытке подключить его к проекту появляется окошко "Can't add a reference to the specified file" . В чем дело?

Ага, если я не ошибаюсь функции mapi32.dll объявляют в Module Declarations. Удачи

[MEMBER]

Код: Выделить всё

c:\thebat\thebat.exe /MAIL;TO=other@mail.com;SUBJECT="Hello";ATTACH="c:\thebat\tips.ini" /EXIT
c:\thebat\thebat.exe /SEND* /EXIT


Ну и тут почитать. http://www.nobat.ru/cmd_intro.html

[Saper]

Спасибо за советы, пример с коммандной строкой действительно очень удобен - это то, что надо. Теперь следующий вопрос: а нельзя ли как-нибудь вытащить из The Bat!'а адресную книгу?

[MEMBER]

Ну там-же, да? Cмотрим раздел Import, видим такую команду:
/Import;Ldif;B="MyBook";G="MyGroup";File="C:\MyFile.LDIF"
Кое-что заменяем:
/Export;Ldif;B="MyBook";File="C:\MyFile.txt"