valeu Moita.
--- Em [EMAIL PROTECTED], "MOITA" <[EMAIL PROTECTED]> escreveu
> Como usar a funcao:
>
> EnviarEMail('', TConfig.FieldByName('T_EMAIL').AsString, 'Enviar
Arquivo', 'Segue em anexo o arquivo...', nomedoarquivo, True)
>
>
> A FUNCAO:
> // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * * *
> 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 begin
> 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;
> end;
> // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * * *
>
> ----- Original Message -----
> From: Oséias Ferreira
> To: [EMAIL PROTECTED]
> Sent: Wednesday, September 22, 2004 7:28 PM
> Subject: Re: [delphi-br] Re: mailto: com anexo
>
>
> Já fiz testes usando o Mapi.pas.
> Mas procurei aqui e perdi o fonte.
> O programa criva a mensagem, abria o OutLook e enviava com
externo.
> Dá uma procurada na net, que você encontra exemplos.
>
> --
> Oséias Ferreira.
>
> ----- Original Message -----
> From: "Murillo Proença" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, September 22, 2004 3:25 PM
> Subject: [delphi-br] Re: mailto: com anexo
>
>
> Legal, já fez?
> E tem como você me dizer como você fez isso?
>
> Muito obrigado
>
> --- Em [EMAIL PROTECTED], "MOITA" <[EMAIL PROTECTED]>
escreveu
> > sim ja fiz isso !
>
>
> > ----- Original Message -----
> > From: Murillo Proença
> > To: [EMAIL PROTECTED]
> > Sent: Tuesday, September 14, 2004 11:41 AM
> > Subject: [delphi-br] mailto: com anexo
> >
> >
> > Bom dia,
> >
> > eu me lembro de já ter visto algo do tipo, mas não encontrei
> nada
> > nos arquivos da lista.
> > Tem como utilizar o comando mailto: que abre o gerenciador de
> email,
> > já com um arquivo em anexo?
> >
> > Obrigado
> >
> > Murillo Proença
>
>
>
> --
> <<<<< 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:
>
>
>
> -------------------------------------------------------------------
-----------
> 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
<*> 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
