E-Mail Attach

← →
Akni © (2003-05-21 12:04) [0]

Здравствуйте, Мастера!

Подскажите, пожалуйста, как можно программно создать в MS Outlook E-Mail с Attach-ем. Но только создать и показать окно нового E-Mail на экране, а не отправлять сразу. Адресат из программы неизвестен, его вводит юзер потом сам.

Пробую два варианта:

1. var pch: pchar; pch:="mailto:?subject=test&body=&file=""c:\test\doc1.doc"""; ShellExecute(0,"open",pCh,nil,nil,sw_shownormal);
Письмо создается и окно отображается, но файл игнорируется.

2.
var vOutlook: variant; vMail: variant; vOutlook := createoleobject("outlook.application"); vMail := vOutlook.createitem(0); vMail.subject := " test "; vMail.attachments.add("c:\test\doc1.doc"); vmail.save;
E-Mail создается вместе с Attach-ем, но после выполнения vmail.save, естсественно, остается лежать в Черновиках. Но это не выход, т.к. юзер вполне может забыть про существование неотправленного E-Mail, если этот Mail не будет назойливо появляться на экране.
Без vmail.save E-Mail вообще пропадает.

Как сделать так, чтобы и файл «цеплялся», и окно отображалось?

← →
andrey_pst © (2003-05-21 12:15) [1]

1. mailto не поддерживает вложения
2. С MS Outlook через OLE не работал, но что те мешает письмо отправить, разве нет какого-нить метода типа vmail.send ? По логике если адреса нет - Outlook окно сообщения отобразить должен.
3. Что те мешает поковырять
c:\Program Files\Borland\Delphi5\Ocx\Servers\Outlook8.pas
там описаны все интерфейсы, их методы и т.п.

← →
VMcL © (2003-05-21 12:47) [2]

Может сообщение vmail.Send

← →
Akni © (2003-05-21 13:24) [3]

спасибо за советы, теперь все работает.

vmail.Send не подходит, для этого метода обязательно должен быть указан адресат, а vmail.Display - как раз то, что надо

MapiSendMail()

Во втором варианте сделай vOutlook.visible:=true и появится аутлук, и пусть юзер заполняет адрес и отправляет письмо.

E-Mail Attach Найти похожие ветки