Скачать: CL | DM;

Как модифицировать код, чтобы письма шли с определенного ящика?   Найти похожие ветки 

← →
CCili   (2007-04-26 16:49) [0]

Для себя пишу маленькую программу.  Нашел код, чтобы через Outlook скидывать письма. Код такой:
function SendMail(const AFrom, ADest, ASubject, AText, AFileName: String): Integer;
var
 VMessage: TMapiMessage;
 VRecipient,
 VSender: TMapiRecipDesc;
 VFileAtt: TMapiFileDesc;
begin

 FillChar(VSender, SizeOf(VSender), 0);
 VSender.ulRecipClass := MAPI_ORIG;
 VSender.lpszName := PChar(AFrom);
 VSender.lpszAddress := PChar(AFrom);

 FillChar(VRecipient, SizeOf(VRecipient), 0);
 VRecipient.ulRecipClass := MAPI_TO;
 VRecipient.lpszAddress := PChar(ADest);

 if AFileName <> ""
 then begin
   FillChar(VFileAtt, SizeOf(VFileAtt), 0);
   VFileAtt.nPosition := ULONG(-1);
   VFileAtt.lpszPathName := PChar(AFileName);
 end;
 FillChar(Result, SizeOf(Result), 0);

 with VMessage do begin
   lpszSubject := PChar(ASubject);
   lpszNoteText := PChar(AText);
   lpOriginator := @VSender;
   nRecipCount := 1;
   lpRecips := @VRecipient;
   nFileCount := 1;
   lpFiles := @VFileAtt;
 end;
 Result := MapiSendMail(0, Application.Handle, VMessage,  MAPI_NEW_SESSION,
0);
end;

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

---

← →
Ega23 ©   (2007-04-26 16:54) [1]

> Можно поменять код, чтобы письма шли с определенной учетной
> записи?


Можно.
Меняй.

---

← →
CCili   (2007-04-26 16:58) [2]

Если можно код подскажите. Заранее спасибо.

---

← →
CCili   (2007-04-27 17:26) [3]

Не верю, что никто не знает. Подскажите, а? Очень нужно.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c