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

← →
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]

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

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