Текущий архив: 2010.03.07;
Скачать: CL | DM;

Вниз

Подскажите, а как добавить вложение к письму стандарного mail аге   Найти похожие ветки 

← →
antoxa2005   (2008-06-14 05:02) [0]

Как запустить почтового агента, установленного по умолчанию, понятно
ShellExecute(0, nil,"mailto:delphi@mastak.com",nil,nil,1);

а как, при этом, добавить вложения???

Нигде не нашел... Помогите, если кто знает...

---

← →
alexm_hs_   (2008-06-14 12:38) [1]


Function SendMail(Address : PChar; Subj :PChar; Body : PChar; FileAttach : PChar; OpenDialog : boolean) : boolean;
var
  MapiMess :TMapiMessage;
  MapiTo   :TMapiRecipDesc;
  Attach   :TMapiFileDesc;

begin
   result := false;
   Attach.ulReserved := 0;
   Attach.flFlags := MAPI_OLE_STATIC;
   Attach.nPosition := 1;
   Attach.lpszPathName := FileAttach;
   Attach.lpszFileName := nil;
   Attach.lpFileType := nil;

   MapiTo.ulRecipClass := MAPI_TO;
   MapiTo.lpszName := Address;
   MapiTo.lpszAddress  := nil;
   MapiTo.ulEIDSize := 0;
   MapiTo.lpEntryID := nil;

   MapiMess.ulReserved := 0;
   MapiMess.lpszSubject := Subj;
   MapiMess.lpszNoteText := body;
   MapiMess.lpszMessageType := nil;
   MapiMess.lpszDateReceived := nil;
   MapiMess.lpszDateReceived := nil;
   MapiMess.lpszConversationID := nil;
   MapiMess.flFlags := 0;
   MapiMess.lpOriginator := nil;
   MapiMess.nRecipCount := 1;
   MapiMess.lpRecips := @MapiTo;
   MapiMess.nFileCount := 1;
   MapiMess.lpFiles := @Attach;
  if OpenDialog then begin
   if MapiSendMail(0,0,MapiMess,MAPI_DIALOG,0) = 0 then result := true;
  end else
   if MapiSendMail(0,0,MapiMess,0,0) = 0 then result := true;

end;


---

← →
Anatoly Podgoretsky ©   (2008-06-14 12:42) [2]

> antoxa2005  (14.06.2008 5:02:00)  [0]

Протокол mailto: этого не поддерживает. Используй SimpleMapi

---

← →
имя   (2008-06-24 02:33) [3]

Удалено модератором

---

Страницы: 1 вся ветка

Текущий архив: 2010.03.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c