Re: [delphi-br] Enviar e-mail pelo sistema
Luciano, Valeu mas eu uso ainda o Delphi 5. - Original Message - From: Luciano Calenzani Simões To: delphi-br@yahoogrupos.com.br Sent: Sunday, September 28, 2008 4:35 PM Subject: Res: [delphi-br] Enviar e-mail pelo sistema Anexe o arquivo ao e-mail. Use como exemplo o artigo http://www.activedelphi.com.br/print.php?sid=187 Luciano Calenzani Simões - Mensagem original De: Alex Leão [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 28 de Setembro de 2008 13:42:44 Assunto: [delphi-br] Enviar e-mail pelo sistema Pessoal, Preciso que meu sistema envie relatórios por e-mail. A parte de gerar e salvar o relatótio eu já fiz, mas a parte de enviar o e-mail tá lenha ... Alguém tem alguma rotina para me ajudar? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enviar e-mail pelo sistema
O Delphi 5 não tem a aba Fastnet? Creio que sim... Use o componente SMTP dela... e vc consegue anexar arquivos. Só não conseguirá fazer conexão segura ao servidor, eu acho... tem de ver... mas acho que os componentes Indy têm instalação para o D5, ou não? Sds Emanuel Alex Leão escreveu: Luciano, Valeu mas eu uso ainda o Delphi 5. - Original Message - From: Luciano Calenzani Simões To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Sunday, September 28, 2008 4:35 PM Subject: Res: [delphi-br] Enviar e-mail pelo sistema Anexe o arquivo ao e-mail. Use como exemplo o artigo http://www.activedelphi.com.br/print.php?sid=187 http://www.activedelphi.com.br/print.php?sid=187 Luciano Calenzani Simões - Mensagem original De: Alex Leão [EMAIL PROTECTED] mailto:alex_fib%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Domingo, 28 de Setembro de 2008 13:42:44 Assunto: [delphi-br] Enviar e-mail pelo sistema Pessoal, Preciso que meu sistema envie relatórios por e-mail. A parte de gerar e salvar o relatótio eu já fiz, mas a parte de enviar o e-mail tá lenha ... Alguém tem alguma rotina para me ajudar? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enviar e-mail pelo sistema
Coutinho - Yahoo wrote: O Delphi 5 não tem a aba Fastnet? Creio que sim... Use o componente SMTP dela... e vc consegue anexar arquivos. Só não conseguirá fazer conexão segura ao servidor, eu acho... tem de ver... Parece que não tem mesmo, o que torna o componente inútil nos dias de hoje. mas acho que os componentes Indy têm instalação para o D5, ou não? Tem sim. Indy9 e D5 vão que é uma beleza. E com autenticação smtp. Joao Morais
Re: [delphi-br] Enviar e-mail pelo sistema
Alex, A rotina abaixo gera uma nova msg no cliente de e-mail default do windows. Se passar o parâmetro confirma como false, ele envia a msg automaticamente, se passar como true o e-mail é mostrado em tela, com tudo pronto, destinatario, assunto, corpo e anexo, só faltando clicar no botão enviar. [] Andrei function EnviarEMail(const De, Para, CC, Assunto, Texto, Arquivo:string; Confirma: Boolean): Integer; var Msg: TMapiMessage; lpSender, lpRecepient, lpComCopia: 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);//Corpo da Mensagem // 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; if (CC '') then begin lpComCopia.ulRecipClass := MAPI_CC; lpComCopia.lpszName := PChar(CC); lpComCopia.lpszAddress := PChar(CC); lpComCopia.ulReserved := 0; lpComCopia.ulEIDSize := 0; lpComCopia.lpEntryID := nil; nRecipCount := 2; lpRecips := @lpComCopia; 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; 2008/9/28 Alex Leão [EMAIL PROTECTED] Pessoal, Preciso que meu sistema envie relatórios por e-mail. A parte de gerar e salvar o relatótio eu já fiz, mas a parte de enviar o e-mail tá lenha ... Alguém tem alguma rotina para me ajudar? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enviar e-mail pelo sistema
Se usa delphi 5 ou 6 e deseja usar o cliente default do windows, pode ainda usar o Mail a biblioteca Jedi que envia inclusive em modo silent!!! [] Emanuel Andrei Luís escreveu: Alex, A rotina abaixo gera uma nova msg no cliente de e-mail default do windows. Se passar o parâmetro confirma como false, ele envia a msg automaticamente, se passar como true o e-mail é mostrado em tela, com tudo pronto, destinatario, assunto, corpo e anexo, só faltando clicar no botão enviar. [] Andrei function EnviarEMail(const De, Para, CC, Assunto, Texto, Arquivo:string; Confirma: Boolean): Integer; var Msg: TMapiMessage; lpSender, lpRecepient, lpComCopia: 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); //Corpo da Mensagem // 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; if (CC '') then begin lpComCopia.ulRecipClass := MAPI_CC; lpComCopia.lpszName := PChar(CC); lpComCopia.lpszAddress := PChar(CC); lpComCopia.ulReserved := 0; lpComCopia.ulEIDSize := 0; lpComCopia.lpEntryID := nil; nRecipCount := 2; lpRecips := @lpComCopia; 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; 2008/9/28 Alex Leão [EMAIL PROTECTED] mailto:alex_fib%40yahoo.com.br Pessoal, Preciso que meu sistema envie relatórios por e-mail. A parte de gerar e salvar o relatótio eu já fiz, mas a parte de enviar o e-mail tá lenha ... Alguém tem alguma rotina para me ajudar? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Enviar e-mail pelo sistema
Pessoal, Preciso que meu sistema envie relatórios por e-mail. A parte de gerar e salvar o relatótio eu já fiz, mas a parte de enviar o e-mail tá lenha ... Alguém tem alguma rotina para me ajudar? [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Enviar e-mail pelo sistema
Anexe o arquivo ao e-mail. Use como exemplo o artigo http://www.activedelphi.com.br/print.php?sid=187 Luciano Calenzani Simões - Mensagem original De: Alex Leão [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 28 de Setembro de 2008 13:42:44 Assunto: [delphi-br] Enviar e-mail pelo sistema Pessoal, Preciso que meu sistema envie relatórios por e-mail. A parte de gerar e salvar o relatótio eu já fiz, mas a parte de enviar o e-mail tá lenha ... Alguém tem alguma rotina para me ajudar? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enviar e-mail pelo sistema
Você pode usar os componentes Indy. Se desejar fazer por pop3/smtp, eu ainda considero o fastnet... é que uso o delphi 6. Alex Leão escreveu: Pessoal, Preciso que meu sistema envie relatórios por e-mail. A parte de gerar e salvar o relatótio eu já fiz, mas a parte de enviar o e-mail tá lenha ... Alguém tem alguma rotina para me ajudar? [As partes desta mensagem que não continham texto foram removidas]