| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как модифицировать код, чтобы письма шли с определенного ящика?
CCili © (2007-04-26 16:49:00)Для себя пишу маленькую программу. Нашел код, чтобы через 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;
Проблема в том, что письмо уходит с учетной записи, которая указана по умолчанию, а необходимо отправлять с другой учетной записи. Поменять учетную запись и поставить по умолчанию другой ящик не очень удобно по целому ряду причин. Можно поменять код, чтобы письма шли с определенной учетной записи?
CCili (2007-04-27 17:26:00) [1]Не верю, что никто не знает. Подскажите, а? Очень нужно.
CCili (2007-04-26 16:58:00) [2]Если можно код подскажите. Заранее спасибо.
Ega23 (2007-04-26 16:54:00) [3]
> Можно поменять код, чтобы письма шли с определенной учетной
> записи?
Можно.
Меняй.
| |
