Re: [delphi-br] Incluir anexo no e-mail????

[Otto Júnior]

Mapi


----- Original Message ----- 
From: "Eduardo Silva ®" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, February 28, 2005 2:17 PM
Subject: RES: [delphi-br] Incluir anexo no e-mail????



Qual unit que eu coloco no uses

Ele não esta encontrando:

Msg: TMapiMessage;
lpSender, lpRecepient: TMapiRecipDesc;
FileAttach: TMapiFileDesc;
SM: TFNMapiSendMail;
MAPIModule: HModule;
Flags: Cardinal;

  -----Mensagem original-----
  De: Otto Júnior [mailto:[EMAIL PROTECTED]
  Enviada em: segunda-feira, 28 de fevereiro de 2005 13:59
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Incluir anexo no e-mail????


  vê se isso ajuda vc!!

  sem mais
  Otto Júnior
  Natal/RN

  Function EnviarEmail( const De, Para, Assunto, Texto, Arquivo: string;
  Confirma: Boolean ): Integer;
  var
  Msg: TMapiMessage;
  lpSender, lpRecepient: TMapiRecipDesc;
  FileAttach: TMapiFileDesc;
  SM: TFNMapiSendMail;
  MAPIModule: HModule;
  Flags: Cardinal;
  begin
  // cria propriedades da mensagem
  FillChar(Msg, SizeOf(Msg), 0);
  with Msg do
  begin
    if (Assunto <> '') then
      lpszSubject := PChar(Assunto);

    if (Texto <> '') then
      lpszNoteText := PChar(Texto);

    // remetente
    if (De <> '') then
    begin
     lpSender.ulRecipClass := MAPI_ORIG;
     lpSender.lpszName := PChar(De);
     lpSender.lpszAddress := PChar(De);
     lpSender.ulReserved := 0;
     lpSender.ulEIDSize := 0;
     lpSender.lpEntryID := nil;
     lpOriginator := @lpSender;
    end;

    // destinatário
    if (Para <> '') then
    begin
     lpRecepient.ulRecipClass := MAPI_TO;
     lpRecepient.lpszName := PChar(Para);
     lpRecepient.lpszAddress := PChar(Para);
     lpRecepient.ulReserved := 0;
     lpRecepient.ulEIDSize := 0;
     lpRecepient.lpEntryID := nil;
     nRecipCount := 1;
     lpRecips := @lpRecepient;
    end
    else
     lpRecips := nil;

    // arquivo anexo
    if (Arquivo = '') then
    begin
     nFileCount := 0;
     lpFiles := nil;
    end
    else
    begin
     FillChar(FileAttach, SizeOf(FileAttach), 0);
     FileAttach.nPosition := Cardinal($FFFFFFFF);
     FileAttach.lpszPathName := PChar(Arquivo);
     nFileCount := 1;
     lpFiles := @FileAttach;
    end;
    end;

    // carrega dll e o método para envio do email
    MAPIModule := LoadLibrary(PChar(MAPIDLL));
    if MAPIModule = 0 then
     Result := -1
    else
     try
      if Confirma then
        Flags := MAPI_DIALOG or MAPI_LOGON_UI
      else
        Flags := 0;
        @SM := GetProcAddress(MAPIModule, 'MAPISendMail');
        if @SM <> nil then
          Result := SM(0, Application.Handle, Msg, Flags,0)
        else
          Result := 1;
     finally
      FreeLibrary(MAPIModule);
  end;
  end;




  --
  Esta mensagem foi verificada pelo sistema de anti-virus e
  acredita-se estar livre de perigo.



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



        Yahoo! Grupos, um serviço oferecido por:

                    São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília




----------------------------------------------------------------------------
--
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.




[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos












-- 
Esta mensagem foi verificada pelo sistema de anti-virus e
 acredita-se estar livre de perigo.



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html