Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.20;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.044 c
15-1177322777
Zoop
2007-04-23 14:06
2007.05.20
Автоматические электомеханические варота.


9-1149087557
Igroman
2006-05-31 18:59
2007.05.20
Newton + PhysicsCar+OpenGL


15-1176796417
oldman
2007-04-17 11:53
2007.05.20
Подскажите, где залить книгу?


2-1178222132
Ламер 2.Х
2007-05-03 23:55
2007.05.20
Присловутый реестр XP


2-1178204925
RomanLN
2007-05-03 19:08
2007.05.20
как отменить нажатие кнопки закрыть?