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($); 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 * 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
Re: RES: [delphi-br] Incluir anexo no e-mail????
TEm que colocar MAPI MAriana --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® [EMAIL PROTECTED] escreveu 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($); 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 * 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
RES: [delphi-br] Incluir anexo no e-mail????
Tenta assim... procedure TForm1.Button1Click(Sender: TObject); var pEMail: String; begin pEMail:= 'mailto:[EMAIL PROTECTED]C:\sqlnet.log'; ShellExecute(0, nil, pchar(pemail), nil, nil, sw_showmaximized); end; Marcos Esteves Simão Programador de Computador - Unimed Vitória [EMAIL PROTECTED] GERIN - CODES -Mensagem original- De: Rodrigo Ferreira [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 28 de fevereiro de 2005 13:56 Para: delphi-br@yahoogrupos.com.br Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED] Assunto: [delphi-br] Incluir anexo no e-mail Boa pessoal tenho esse pegueno script que abre o OutLock Express com um e-mail porem estou com um dificuldade em implementar a parte que anexa um arquivo ao email. Se alguem souber como eu faco para implementar nesse codigo a opcao de incluir o anexo por favor me de um help agradeco a colaboracao. procedure TForm1.Button1Click(Sender: TObject); var email: string; begin email := 'mailto:[EMAIL PROTECTED]'; email := email + '?subject=' + 'Solicitação Orçamento do Catalogo'; email := email + 'body='+'Dpto. Compras' #13+ ' * A/C Sr. Augusto Fernando'; ShellExecute(0, nil, pchar(email), nil, nil, sw_showmaximized); end; end. Atenciosamente Rodrigo Ferreira [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 -- 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
RES: RES: [delphi-br] Incluir anexo no e-mail????
A const Confirma serve para que ? -Mensagem original- De: Mariana [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 28 de fevereiro de 2005 14:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Incluir anexo no e-mail TEm que colocar MAPI MAriana --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® [EMAIL PROTECTED] escreveu 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($); 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] 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
Re: RES: [delphi-br] Incluir anexo no e-mail????
para receber um recibo de confirmação do e-mail - Original Message - From: Eduardo Silva ® [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, February 28, 2005 4:53 PM Subject: RES: RES: [delphi-br] Incluir anexo no e-mail A const Confirma serve para que ? -Mensagem original- De: Mariana [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 28 de fevereiro de 2005 14:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Incluir anexo no e-mail TEm que colocar MAPI MAriana --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® [EMAIL PROTECTED] escreveu 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($); 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web