Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
15-1261332716
Smile
2009-12-20 21:11
2010.03.07
Желающие поговорить ни о чЁм - милости прошу


2-1262182249
11223344
2009-12-30 17:10
2010.03.07
классы


15-1261416148
@!!ex
2009-12-21 20:22
2010.03.07
Продажа доступа к данным. Как лучше?


11-1213003972
Kent
2008-06-09 13:32
2010.03.07
Как сохранить данные в dfm


2-1262196060
Ivan
2009-12-30 21:01
2010.03.07
Вопрос по скроллингу