Форум программистов [Powered by Invision Power Board]

Код


function SendEMail(Handle: THandle; Mail: TStrings): Cardinal;
type
  TAttachAccessArray = array [0..0] of TMapiFileDesc;
  PAttachAccessArray = ^TAttachAccessArray;
var
  MapiMessage: TMapiMessage;
  Receip: TMapiRecipDesc;
  Attachments: PAttachAccessArray;
  AttachCount: Integer;
  i1: integer;
  FileName: string;
  dwRet: Cardinal;
  MAPI_Session: Cardinal;
  WndList: Pointer;
begin
  dwRet := MapiLogon(Handle,
    PChar(''),
    PChar(''),
    MAPI_LOGON_UI or MAPI_NEW_SESSION,
    0, @MAPI_Session);

  if (dwRet <> SUCCESS_SUCCESS) then
  begin
    MessageBox(Handle,
      PChar('Error while trying to send email'),
      PChar('Error'),
      MB_ICONERROR or MB_OK);
  end
  else
  begin
    FillChar(MapiMessage, SizeOf(MapiMessage), #0);
    Attachments := nil;
    FillChar(Receip, SizeOf(Receip), #0);

    if Mail.Values['to'] <> '' then
    begin
      Receip.ulReserved := 0;
      Receip.ulRecipClass := MAPI_TO;
      Receip.lpszName := StrNew(PChar(Mail.Values['to']));
      Receip.lpszAddress := StrNew(PChar('SMTP:' + Mail.Values['to']));
      Receip.ulEIDSize := 0;
      MapiMessage.nRecipCount := 1;
      MapiMessage.lpRecips := @Receip;
    end;

    AttachCount := 0;

    for i1 := 0 to MaxInt do
    begin
      if Mail.Values['attachment' + IntToStr(i1)] = '' then
        break;
      Inc(AttachCount);
    end;

    if AttachCount > 0 then
    begin
      GetMem(Attachments, SizeOf(TMapiFileDesc) * AttachCount);

      for i1 := 0 to AttachCount - 1 do
      begin
        FileName := Mail.Values['attachment' + IntToStr(i1)];
        Attachments[i1].ulReserved := 0;
        Attachments[i1].flFlags := 0;
        Attachments[i1].nPosition := ULONG($FFFFFFFF);
        Attachments[i1].lpszPathName := StrNew(PChar(FileName));
        Attachments[i1].lpszFileName :=
          StrNew(PChar(ExtractFileName(FileName)));
        Attachments[i1].lpFileType := nil;
      end;
      MapiMessage.nFileCount := AttachCount;
      MapiMessage.lpFiles := @Attachments^;
    end;

    if Mail.Values['subject'] <> '' then
      MapiMessage.lpszSubject := StrNew(PChar(Mail.Values['subject']));
    if Mail.Values['body'] <> '' then
      MapiMessage.lpszNoteText := StrNew(PChar(Mail.Values['body']));

    WndList := DisableTaskWindows(0);
    try
    Result := MapiSendMail(MAPI_Session, Handle,
      MapiMessage, MAPI_DIALOG, 0);
    finally
      EnableTaskWindows( WndList );
    end;

    for i1 := 0 to AttachCount - 1 do
    begin
      StrDispose(Attachments[i1].lpszPathName);
      StrDispose(Attachments[i1].lpszFileName);
    end;

    if Assigned(MapiMessage.lpszSubject) then
      StrDispose(MapiMessage.lpszSubject);
    if Assigned(MapiMessage.lpszNoteText) then
      StrDispose(MapiMessage.lpszNoteText);
    if Assigned(Receip.lpszAddress) then
      StrDispose(Receip.lpszAddress);
    if Assigned(Receip.lpszName) then
      StrDispose(Receip.lpszName);
    MapiLogOff(MAPI_Session, Handle, 0, 0);
  end;
end;

Код

Result := MapiSendMail(MAPI_Session, Handle, MapiMessage, 0, 0);

Код

dwRet := MapiLogon(Handle, '', '', MAPI_NEW_SESSION, 0, @MAPI_Session);

Код


dwRet := MAPILogonEx(Handle, nil, nil, MAPI_NEW_SESSION of MAPI_USE_DEFAULT, 0, @MAPI_Session);

Цитата(Sponger @ 26.4.2006, 08:07

)

через бат надо указывать имя профиля (обязательно) и пароль если есть

Цитата(Snowy @ 25.4.2006, 14:37)

Код


dwRet := MAPILogonEx(Handle, nil, nil, MAPI_NEW_SESSION of MAPI_USE_DEFAULT, 0, @MAPI_Session);

Цитата

MAPILogon

Открытие сессии работы с почтовой системой.
Если не использовать эту функцию и далее игнорировать параметр Session, то будет осуществляться работа с тем почтовым ящиком, для которого в TheBat! помечен крыжик "По умолчанию использовать этот ящик для mailto:". Если такого почтового ящика нет, то при попытке отослать или прочитать письмо, будет возвращено значение MAPI_E_LOGIN_FAILURE

Если необходимо выбрать почтовый ящик в процессе работы, то стоит использовать MAPILogon.

Пример:
HResult:=MapiLogon(0,'','',MAPI_NEW_SESSION OR MAPI_LOGON_UI,0,Session);
или
HResult:=MapiLogon(0,'M T U','111',MAPI_LOGON_UI,0,Session);
или
HResult:=MapiLogon(0,'Ситилайн','',0,0,Session);
Второй параметр это как раз имя нужного почтового ящика, третий параметр — пароль на почтовый ящик, если ящик запаролен.
Если указан флаг MAPI_LOGON_UI, то будет вызвано окно выбора почтового ящика ("select account"). Правда если при наличие этого флага название ящика (и пароль, если надо) заданы корректно, то диалог выбора выводится не будет и сессия откроется для указанного акаунта.
Если название ящика не задано или задано неверно и флаг MAPI_LOGON_UI не установлен, то сессия откроется для того почтового ящика, который установлен "по умолчанию ... для mailto:"

К сожалению в реализации этой функции есть некоторые странные моменты (при работе с запароленым ящиком), о которых сообщено в RITLabs, так что будет ждать пояснений.

Цитата(Sponger @ 26.4.2006, 08:07)

Спасибо.

Если через Outlook отпраляется почта то запрос на подтверждение отключается в нем самом.

А через бат надо указывать имя профиля (обязательно) и пароль если есть