[delphi-br] e-mail delphi
Boa tarde senhores, gostaria de saber se alguem ja teve a necessidade de criar uma caixa de e-mails enviados tipo outlook. O sistema da minha empresa envia e-mails de boa usando componentes da palleta Indy IdMessage, IdSmtp. Alguem sabe se tem algum componente ou maneira de eu armazenar os e-mails enviados. Desde já agradeço a atenção de todos. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] e-mail delphi
Em 10/02/2010 16:44, Marcelo escreveu: Alguem sabe se tem algum componente ou maneira de eu armazenar os e-mails enviados. Desde já agradeço a atenção de todos. Olá Marcelo... Um bom exemplo de como isso é feito é observar o comportamento do Mozilla Thunderbird. Ele usa o SQLite para armazenar as mensagens enviadas, ou seja, um banco de dados. Ou seja, você pode criar algo no banco de dados que o sistema use para guardar estas mensagens. A vantagem é a organização, pois é muito mais fácil e rápido para se montar o catálogo de mensagens enviadas, pois, armazenadas em banco de dados, você pode consultá-las por instrução SQL, inclusive usando LIKE... []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@yahoo.com.br --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] e-mail
Salve galerinha, Estou precisando enviar os dados de um formúlario por email . Ex: tenho um form onde tenho um edit com o número do cliente e um edit onde vou colocar o resultado de uma análise de risco, tipo um laudo, quer enviar esse email para esse cliente quando eu clicar no botão enviar. alguém me ajuda..
[delphi-br] E-mail de Retratação
Prezados Senhores, Nossos clientes são confidenciais e por isso pedimos a colaboração dos profissionais da área para não divulgarem os nomes das empresas pela Ética Profissional. Todos os currículos recebidos em resposta às vagas são analisados e se estiverem dentro do perfil do cliente entramos em contato. Quando não se é feito esse primeiro contato é porque não estava dentro do perfil solicitado e por isso foi colocado no nosso banco de currículos para futuras vagas, ficando inviável ligar ou encaminhar alguma mensagem para cada candidato que responda às vagas, mesmo que queiramos, por excesso de volume. Espero que todos nos compreendam e desde já agradeço à colaboração de todos. Att. Jaqueline Cardoso Nova Consultoria [EMAIL PROTECTED] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] E-mail de Retratação
De qualquer forma, mandaria a boa educação que pelo menos uma resposta automática que seja, acusando o recebimento fosse enviada. Edison Garcia - Original Message - From: Nova Consultoria [EMAIL PROTECTED] To: delphi-br delphi-br@yahoogrupos.com.br Sent: Wednesday, May 23, 2007 2:43 PM Subject: [delphi-br] E-mail de Retratação Prezados Senhores, Nossos clientes são confidenciais e por isso pedimos a colaboração dos profissionais da área para não divulgarem os nomes das empresas pela Ética Profissional. Todos os currículos recebidos em resposta às vagas são analisados e se estiverem dentro do perfil do cliente entramos em contato. Quando não se é feito esse primeiro contato é porque não estava dentro do perfil solicitado e por isso foi colocado no nosso banco de currículos para futuras vagas, ficando inviável ligar ou encaminhar alguma mensagem para cada candidato que responda às vagas, mesmo que queiramos, por excesso de volume. Espero que todos nos compreendam e desde já agradeço à colaboração de todos. Att. Jaqueline Cardoso Nova Consultoria [EMAIL PROTECTED] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] e-mail html - MAPI
Bom dia a todos! Alguém sabe se é possível enviar e-mail com corpo em formato HTML, usando as funções e métodos da unit MAPI do Delphi 7? Eu faço isso utilizando os componentes Indy, mas com a unit MAPI, não tenho certeza se é possível. Grato. Ulisses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] E-mail: Conversão de MSG para EML
Olá pessoal, tudo bem? Gostaria de saber se alguém conhece algum componente ou método para converter arquivos de e-mails .MSG (MS Outlook) para .EML (Outlook Express). Já tentei por diversas vezes enviar um arquivo MSG utilizando os componentes Indy mas não consigo receber o e-mail com visualização plena das informações. Agradeço a atenção de vcs desde já. Abraços, Marcos -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.432 / Virus Database: 268.18.11/721 - Release Date: 13/03/2007 16:51 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] E-mail com formatação
Ola pessoal, boa tarde a todos, Será que alguem poderia me ajudar, estou tentando enviar um e-mail com formatação pelo delphi ultilizando os componentes indy (TIdSmtp - TIdMessage), ao enviar eu carrego um arquivo html na propriedade body(Texto da mensagem) do componente IdMessage, mas ao ser exibido no browser ou em clientes POP (Outlook Thunderbird), o e-mail é exibido como texto, eu tenho que alterar alguma propriedade do componente, para o e-mail ser mandado como html? Se alguém puder ajudar... Desde já agradeço a atenção do pessoal.. Fui... [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] E-mail com formatação
http://www.revolution.com.br/archives/2004_11_01_bsonnino_archive.html Sds. From: Vinicius Sandim [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] E-mail com formatação Date: Tue, 26 Dec 2006 16:58:44 -0200 Ola pessoal, boa tarde a todos, Será que alguem poderia me ajudar, estou tentando enviar um e-mail com formatação pelo delphi ultilizando os componentes indy (TIdSmtp - TIdMessage), ao enviar eu carrego um arquivo html na propriedade body(Texto da mensagem) do componente IdMessage, mas ao ser exibido no browser ou em clientes POP (Outlook Thunderbird), o e-mail é exibido como texto, eu tenho que alterar alguma propriedade do componente, para o e-mail ser mandado como html? Se alguém puder ajudar... Desde já agradeço a atenção do pessoal.. Fui... [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
[delphi-br] E-Mail
Alguém da lista já fez um program de envio de e-mail, em que no corpo do e-mail é enviado uma imagem??? Caso alguém sabe, por favor dê uma dica de como fazer. [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] 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: [delphi-br] E-Mail
O meu é delphi 6. [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] 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: [delphi-br] E-Mail
Opa.. Salve !!! Eu ja fiz isso sim.. que componentes vc esta usando.?? Se for o Indy, no Message tem um Body.Loadfrom() ai vc passa a img ou um html com a img; não esqueça de colocar o contentype como html/text qq coisa posta ai... que te ajudo abraço! Marcos Bernardo Em 17/10/06, gilsonsilvab [EMAIL PROTECTED] escreveu: Alguém da lista já fez um program de envio de e-mail, em que no corpo do e-mail é enviado uma imagem??? Caso alguém sabe, por favor dê uma dica de como fazer. [As partes desta mensagem que não continham texto foram removidas] [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] 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
[delphi-br] e-mail em formato html
Ola pessoal, estou tentando novamente fazer uma rotina de envio de e-mail com formato html, pretendo colocar uma imagem como corpo da mensagem, mais precisamente no inicio da mensagem, ja atentei varias situacoes, ja pesquisei na internet, peguei exemplos em sites, mas as mensagens sempre chegam no meu leitor de e-mail com a codificacao da pagina e nao como um e-mail html normal, alguem do forum ja conseguiu fazer esse procedimento que possa me dar uma ajuda, se for possivel ___ O Yahoo! está de cara nova. Venha conferir! http://br.yahoo.com/preview -- 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] 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] e-mail em formato html
Cara, eu tava com esse problema tb e isso resolveu minha questao, espero que te ajude tb... Da os retoques necessarios ao codigo e toca em frente, uses IdSMTP, IdMessage; function EnviaAvisoEmail(Para: string):Boolean; var htmpart, txtpart: TIdText; imgpart: TIdAttachment; email: TIdMessage; imgName : string; html: TStrings; begin email := TIdMessage.Create(nil); try email.From.Address := '[EMAIL PROTECTED]'; email.From.Name := 'FROM'; imgName := 'i:\email\imagemfundoSS.jpg'; html := TStringList.Create(); html.Text := Corpo; //html email.Recipients.EMailAddresses := Para; email.Subject := 'SUBJECT'; email.ContentType := 'multipart/mixed'; email.Body.Assign(html); txtpart := TIdText.Create(email.MessageParts); txtpart.ContentType := 'text/plain'; txtpart.Body.Text := ''; htmpart := TIdText.Create(email.MessageParts, html); htmpart.ContentType := 'text/html'; imgpart := TIdAttachment.Create(email.MessageParts, imgName); imgpart.ContentType := 'image/jpeg'; imgpart.FileIsTempFile := true; imgpart.ContentDisposition := 'inline'; imgpart.ExtraHeaders.Values['content-id'] := 'imagemfundo'; imgpart.DisplayName := 'imagemfundo'; Result := False; with TIdSMTP.Create(nil) do try Host := 'smtp.A.com.br' Port := 25; Connect(1000); Send(email); //envia a msg Result := True; finally if Connected then Disconnect; Free; end; finally email.Free; html.Free; end; end; ese envia um e-mail com imagemd e fundo anexado mas que não fik no anexos. Para aparecer a imagem no fundo vc deve mudar o SRC da imagem background no HTML para cid:imagemfundo assim vai. Flw, Márcio ---Mensagem original--- De: Francisco Carlos Data: 04/08/2006 10:11:40 Para: Delphi Br Assunto: [delphi-br] e-mail em formato html Ola pessoal, estou tentando novamente fazer uma rotina de envio de e-mail com formato html, pretendo colocar uma imagem como corpo da mensagem, mais precisamente no inicio da mensagem, ja atentei varias situacoes, ja pesquisei na internet, peguei exemplos em sites, mas as mensagens sempre chegam no meu leitor de e-mail com a codificacao da pagina e nao como um e-mail html normal, alguem do forum ja conseguiu fazer esse procedimento que possa me dar uma ajuda, se for possivel ___ O Yahoo! está de cara nova. Venha conferir! http://br.yahoo.com/preview [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] 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
[delphi-br] E-mail - discussão importante
Amigos, Prestem atenção em meu raciocínio. - Mandar e-mail para o Outlook Express pelo Delphi não é uma boa solução porque as mensagens vão para a Caixa Rascunho e precisam ser enviadas uma a uma. - Pelo Outlook a cada mensagem enviada o programa pede confirmação de envio. Sendo assim, a melhor opção acaba sendo pelo Indy. Todavia, estou notando alguns problemas com o Indy. Primeiro: Como mando mensagens para mais de 1000 cooperados, estou enviando e-mail pelo Delphi e lendo pelo Outook Express. Todavia o provedor as vez encerra a conexão inesperadamente. Segundo: E mais grave. As primeiras mensagens que mando funcionam perfeitamente bem. Depois de um número grande de mensagens, não obtenho mais respostas de envio nem mensagens de e-mail errados. Acredito que após um número de mensagens o provedor simplesmente não aceita mais e-mail ou sei lá o que. Isso confere um grau de incerteza muito grande a aplicação. Sendo assim, peço aos amigos que ajudem a exaurir a discussão de envio de e-mail: - como tratar mensagem de erros. - como os provedores orientam sobre mensagem em massa. - materiais sobre o assunto. Espero conseguir informações importantes para mim e para outros que também devem passar pelo mesmo problema. Abraços. [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] 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: [delphi-br] E-mail - discussão importante
- Referente ao envio em massa, vc deve contactar o provedor utilizado para fazer o envio, e ver com o suporte a quantidade de emails por dia vc pode enviar; - Outra coisa, vc pode levantar o serviço de SMTP em um computador proprio, mas tem na internet atualmente um serviço anti-span que conciste no cadastro de IP fixos que dispara emails em massa, ou seja vc tem que fazer contato com eles e solicitar que seu IP não seja incluido, pois vc nãi esta disparando spans (não como fazer isso nem que eles são, até vc receber uma resposta dizendo que sua menssagem nãp pode ser enviada blablablabla, e no corpo do email provavelmente vem como entrar em contato) Isso é o pouco que sei espero não ter falado besteira Em 03/04/06, prof. Reinaldo A. Pereira (yahoo account) [EMAIL PROTECTED] escreveu: Amigos, Prestem atenção em meu raciocínio. - Mandar e-mail para o Outlook Express pelo Delphi não é uma boa solução porque as mensagens vão para a Caixa Rascunho e precisam ser enviadas uma a uma. - Pelo Outlook a cada mensagem enviada o programa pede confirmação de envio. Sendo assim, a melhor opção acaba sendo pelo Indy. Todavia, estou notando alguns problemas com o Indy. Primeiro: Como mando mensagens para mais de 1000 cooperados, estou enviando e-mail pelo Delphi e lendo pelo Outook Express. Todavia o provedor as vez encerra a conexão inesperadamente. Segundo: E mais grave. As primeiras mensagens que mando funcionam perfeitamente bem. Depois de um número grande de mensagens, não obtenho mais respostas de envio nem mensagens de e-mail errados. Acredito que após um número de mensagens o provedor simplesmente não aceita mais e-mail ou sei lá o que. Isso confere um grau de incerteza muito grande a aplicação. Sendo assim, peço aos amigos que ajudem a exaurir a discussão de envio de e-mail: - como tratar mensagem de erros. - como os provedores orientam sobre mensagem em massa. - materiais sobre o assunto. Espero conseguir informações importantes para mim e para outros que também devem passar pelo mesmo problema. Abraços. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [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] 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: [delphi-br] E-mail - discussão importante
Só para complementar, vc deve comunicar o seu provedor tb. Eduardo Castro Alves Analista de Sistemas -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Gabriel Filho Sent: segunda-feira, 3 de abril de 2006 14:51 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] E-mail - discussão importante - Referente ao envio em massa, vc deve contactar o provedor utilizado para fazer o envio, e ver com o suporte a quantidade de emails por dia vc pode enviar; - Outra coisa, vc pode levantar o serviço de SMTP em um computador proprio, mas tem na internet atualmente um serviço anti-span que conciste no cadastro de IP fixos que dispara emails em massa, ou seja vc tem que fazer contato com eles e solicitar que seu IP não seja incluido, pois vc nãi esta disparando spans (não como fazer isso nem que eles são, até vc receber uma resposta dizendo que sua menssagem nãp pode ser enviada blablablabla, e no corpo do email provavelmente vem como entrar em contato) Isso é o pouco que sei espero não ter falado besteira Em 03/04/06, prof. Reinaldo A. Pereira (yahoo account) [EMAIL PROTECTED] escreveu: Amigos, Prestem atenção em meu raciocínio. - Mandar e-mail para o Outlook Express pelo Delphi não é uma boa solução porque as mensagens vão para a Caixa Rascunho e precisam ser enviadas uma a uma. - Pelo Outlook a cada mensagem enviada o programa pede confirmação de envio. Sendo assim, a melhor opção acaba sendo pelo Indy. Todavia, estou notando alguns problemas com o Indy. Primeiro: Como mando mensagens para mais de 1000 cooperados, estou enviando e-mail pelo Delphi e lendo pelo Outook Express. Todavia o provedor as vez encerra a conexão inesperadamente. Segundo: E mais grave. As primeiras mensagens que mando funcionam perfeitamente bem. Depois de um número grande de mensagens, não obtenho mais respostas de envio nem mensagens de e-mail errados. Acredito que após um número de mensagens o provedor simplesmente não aceita mais e-mail ou sei lá o que. Isso confere um grau de incerteza muito grande a aplicação. Sendo assim, peço aos amigos que ajudem a exaurir a discussão de envio de e-mail: - como tratar mensagem de erros. - como os provedores orientam sobre mensagem em massa. - materiais sobre o assunto. Espero conseguir informações importantes para mim e para outros que também devem passar pelo mesmo problema. Abraços. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] 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
[delphi-br] E-mail no Delphi
Por favor, estou precisando acrescentar a minha aplicação o envio de dados de uma tabela por e-mail. Tenho uma aplicação de chamados de help desk e atualmente o usuário tem que reunir as informações, copiar e colar para outlook e para então mandar um e-mail. Alguém saberia me dar uma dicar sobre se a alguma maneira de enviar e-mail via aplicação. Grato. Luciano [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] 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: [delphi-br] E-mail no Delphi
Com esta função voce envia e-mail, anexa arquivos, porem o usuário terá que clicar em enviar. O código esta todo comentado. Espero ter Aajudado. Um grande abraço, Sandro. Passagem de parametros: EnviaEmail([Endereço_de_email], [], [], [Endereço_do_anexo], 'Assunto', Texto_do_email, '', '', True); Função: function EnviaEmail(const sTo, sCC, sBCC, sAtts: Array of String; const sSubject, sBody, sNome, sEmail: String; bMostraErro: Boolean = True): Integer; var SM: TFNMapiSendMail; MAPIModule: HModule; Msg: MapiMessage; lpSender: MapiRecipDesc; Recips: Array of MapiRecipDesc; Att: Array of MapiFileDesc; i, j, y, LenTo, LenCC, LenBCC, LenAtts: Integer; sErro: String; begin FillChar(Msg, SizeOf(Msg), 0); (* Verificar tamanho dos Arrays passados como parâmetros. *) LenTo := Length(sTo); LenCC := Length(sCC); LenBCC := Length(sBCC); LenAtts := Length(sAtts); (* Definir tamanho dos Arrays dinâmicos. *) SetLength(Recips, LenTo+LenCC+LenBCC); SetLength(Att, LenAtts); (* Montagem do To *) for i := 0 to LenTo - 1 do begin FillChar(Recips[i], SizeOf(Recips[i]), 0); Recips[i].ulReserved := 0; Recips[i].ulRecipClass := MAPI_TO; Recips[i].lpszName := PChar(sTo[i]); Recips[i].lpszAddress := ''; end; (* Montagem do CC *) for j := 0 to LenCC - 1 do begin FillChar(Recips[i+j], SizeOf(Recips[i+j]), 0); Recips[i+j].ulReserved := 0; Recips[i+j].ulRecipClass := MAPI_CC; Recips[i+j].lpszName := PChar(sCC[j]); Recips[i+j].lpszAddress := ''; end; (* Montagem do BCC *) for y := 0 to LenBCC - 1 do begin FillChar(Recips[i+j+y], SizeOf(Recips[i+j+y]), 0); Recips[i+j+y].ulReserved := 0; Recips[i+j+y].ulRecipClass := MAPI_BCC; Recips[i+j+y].lpszName := PChar(sBCC[y]); Recips[i+j+y].lpszAddress := ''; end; (* Montagem do Attachaments *) for i := 0 to LenAtts - 1 do begin FillChar(Att[i], SizeOf(Att[i]), 0); Att[i].ulReserved := 0; Att[i].flFlags := 0; Att[i].nPosition := Cardinal($); Att[i].lpszPathName := PChar(sAtts[i]); Att[i].lpszFileName := ''; Att[i].lpFileType := 0; end; (* Montagem da MENSAGEM *) with Msg do begin ulReserved := 0; if sSubject EmptyStr then lpszSubject := PChar(sSubject); if sBody EmptyStr then lpszNoteText := PChar(sBody); if sEmail EmptyStr then begin lpSender.ulRecipClass := MAPI_ORIG; if sNome = EmptyStr then lpSender.lpszName := PChar(sEmail) else lpSender.lpszName := PChar(sNome); // lpSender.lpszAddress := PChar(sEmail); lpSender.ulEIDSize := 0; lpSender.lpEntryID := nil; lpOriginator := @lpSender; end else Msg.lpOriginator := 0; // Msg.lpszMessageType := 0; Msg.lpszDateReceived := 0; Msg.lpszConversationID := 0; Msg.flFlags := 0; Msg.nRecipCount := LenTo + LenCC + LenBCC; Msg.lpRecips := @Recips[0]; Msg.nFileCount := LenAtts; Msg.lpFiles := @Att[0]; end; MAPIModule := LoadLibrary(PChar(MAPIDLL)); if MAPIModule = 0 then Result := -1 else try @SM := GetProcAddress(MAPIModule, 'MAPISendMail'); if @SM nil then Result := SM(0, Application.Handle, Msg, MAPI_DIALOG or MAPI_LOGON_UI, 0) else Result := 1; finally FreeLibrary(MAPIModule); end; if Result SUCCESS_SUCCESS then begin case Result of MAPI_E_AMBIGUOUS_RECIPIENT: sErro := 'MAPI_E_AMBIGUOUS_RECIPIENT'; MAPI_E_ATTACHMENT_NOT_FOUND:sErro := 'MAPI_E_ATTACHMENT_NOT_FOUND'; MAPI_E_ATTACHMENT_OPEN_FAILURE: sErro := 'MAPI_E_ATTACHMENT_OPEN_FAILURE'; MAPI_E_BAD_RECIPTYPE: sErro := 'MAPI_E_BAD_RECIPTYPE'; MAPI_E_FAILURE: sErro := 'MAPI_E_FAILURE'; MAPI_E_INSUFFICIENT_MEMORY: sErro := 'MAPI_E_INSUFFICIENT_MEMORY'; MAPI_E_LOGIN_FAILURE: sErro := 'MAPI_E_LOGIN_FAILURE'; MAPI_E_TEXT_TOO_LARGE: sErro := 'MAPI_E_TEXT_TOO_LARGE'; MAPI_E_TOO_MANY_FILES: sErro := 'MAPI_E_TOO_MANY_FILES'; MAPI_E_TOO_MANY_RECIPIENTS: sErro := 'MAPI_E_TOO_MANY_RECIPIENTS'; MAPI_E_UNKNOWN_RECIPIENT: sErro := 'MAPI_E_UNKNOWN_RECIPIENT'; MAPI_E_USER_ABORT: sErro := 'MAPI_E_USER_ABORT'; end; if bMostraErro then MessageDlg('Erro ao enviar o e-mail: '+sErro+'.', mtError,[mbOK],0); end; end; Luciano Alves de Oliveira [EMAIL PROTECTED] escreveu: Por favor, estou precisando acrescentar a minha aplicação o envio de dados de uma tabela por e-mail. Tenho uma aplicação de chamados de help desk e atualmente o usuário tem que reunir as informações, copiar e colar para outlook e para então mandar um e-mail. Alguém saberia me dar uma dicar sobre se a alguma maneira de enviar e-mail via aplicação. Grato. Luciano [As partes
Re: [delphi-br] E-mail no Delphi
Sandro Cunha, Muito obrigado, só foi colocar a biblioteca MAPI que funcionou certinho. Valeu. [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] 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] E-mail no Delphi
].lpszName := pRecipiente.lpszName; aRecipiente[i].lpszAddress := pRecipiente.lpszAddress; aRecipiente[i].ulEIDSize:= pRecipiente.ulEIDSize; aRecipiente[i].lpEntryID:= pRecipiente.lpEntryID; aRecipiente[i].ulRecipClass := MAPI_CC; Delete( sCC, 1, Pos( ';', sCC ) ); Inc( I ); End; // Define recipientes BCC While sCCo '' Do Begin iRetorno := MAPIResolveName( 0, 0, PChar( Copy( sCCo, 1, Pos(';', sCCo) - 1 ) ), 0, 0, pRecipiente ); // VERIFICA SE NÃO OCORREU ERROS If (iRetorno SUCCESS_SUCCESS) Then begin Case iRetorno Of MAPI_E_AMBIGUOUS_RECIPIENT: Result:= ERRO_MAPI_AMBIGUOUS_RECIPIENT; MAPI_E_FAILURE: Result:= ERRO_MAPI_FAILURE; MAPI_E_INSUFFICIENT_MEMORY: Result:= ERRO_MAPI_INSUFFICIENT_MEMORY; MAPI_E_NOT_SUPPORTED : Result:= ERRO_MAPI_NOT_SUPPORTED ; else Result:= 'Erro ('+IntToStr(iRetorno)+') desconhecido !'; end; Exit; end; aRecipiente[i].ulReserved := pRecipiente.ulReserved; aRecipiente[i].lpszName := pRecipiente.lpszName; aRecipiente[i].lpszAddress := pRecipiente.lpszAddress; aRecipiente[i].ulEIDSize:= pRecipiente.ulEIDSize; aRecipiente[i].lpEntryID:= pRecipiente.lpEntryID; aRecipiente[i].ulRecipClass := MAPI_BCC; Delete( sCCo, 1, Pos( ';', sCCo ) ); Inc( I ); End; iFiles := Length( aFiles ); // cria o tamanho do array de anexos SetLength(aArquivoEnvio, iFiles); // indica os parâmetros para cada recepiente de anexos For I := 0 To High(aArquivoEnvio) Do Begin aArquivoEnvio[i].ulReserved := 0; aArquivoEnvio[i].flFlags := 0; aArquivoEnvio[i].nPosition:= 0; aArquivoEnvio[i].lpszPathName := aFiles[I]; aArquivoEnvio[i].lpszFileName := Nil; aArquivoEnvio[i].lpFileType := Nil; End; // configura o MapiMessage para ser usando pelo MapiSendMail With MapiMessage Do Begin ulReserved := 0; lpszSubject:= pAssunto; lpszNoteText := pTexto; lpszMessageType:= Nil; lpszDateReceived := Nil; lpszConversationID := Nil; flFlags:= 0; lpOriginator := Nil; nRecipCount:= iRecip; lpRecips := @aRecipiente[0]; nFileCount := iFiles; lpFiles:= @aArquivoEnvio[0]; end; // ativo o e-mail usado pelo usuário e coloca o destinatário, Assunto,corpo do e-mail e anexos // Result := MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0); // caso você queira que não seja ativado o e-mail, apenas enviando a mensagem use a linha abaixo no lugar da linha acima. iRetorno := MapiSendMail( 0, 0, MapiMessage, 0, 0 ); If iRetorno 0 Then Result:='Erro no envio ('+IntToStr(iRetorno)+')'; // libera a memória alocada para o Recipiente MAPIFreeBuffer( pRecipiente ); end; []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Luciano Alves de Oliveira Enviada em: quarta-feira, 29 de março de 2006 14:17 Para: Delphi Assunto: [delphi-br] E-mail no Delphi Por favor, estou precisando acrescentar a minha aplicação o envio de dados de uma tabela por e-mail. Tenho uma aplicação de chamados de help desk e atualmente o usuário tem que reunir as informações, copiar e colar para outlook e para então mandar um e-mail. Alguém saberia me dar uma dicar sobre se a alguma maneira de enviar e-mail via aplicação. Grato. Luciano [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [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] 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
[delphi-br] E-mail Terra
Pessoal da lista, estou com um problema de enviar email usando minha conta smtp do terra, contas de Uol consigo normalmente, mas do terra nao estou conseguindo... Alguem já conseguiu fazer e como ? Há algum pulo do gato ? -- 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] 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: [delphi-br] E-mail Terra
Olha... eu soube de alguns servidores smtp que, para haver autenticação, usavam a mesma autenticação do servidor pop. Desta forma, é exigido que se faça uma verificação das msgs antes que hava o envio. Este assunto rolou a algum tempo aqui na lista... se futucar lá no yahoo, tu acha msgs antigas. Bom, pra eu não me preocupar com este problema, eu uso um servidor smtp que não exige autenticação. A maioria dos servidores pagos não exigem. Se vc tem uma página, tenta usar ele. Vc nao precisa utilizar exatamente o servidor smtp do terra para mandar um e-mail com o nome da conta do terra. pode partir de qualquer outro servidor. Caso o volume de msgs seja grande, vc pode utilizar um instalado na própria máquina. Aconselho o PostCastServer (www.postcastserver.com). Tem uma versão grátis no site, que já é excelente. A paga é melhor ainda.(tomara que eles me dêem uma comissão pela propaganda. rerere) Tomara que consiga te-lo ajudado. Abs Daniel Augusto Bastos 25/01/06, Vinicius Florido[EMAIL PROTECTED] escreveu: Pessoal da lista, estou com um problema de enviar email usando minha conta smtp do terra, contas de Uol consigo normalmente, mas do terra nao estou conseguindo... Alguem já conseguiu fazer e como ? Há algum pulo do gato ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] 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: [delphi-br] E-Mail com Indy
Me passa o teu email que eu tenho um exemplo de mala direta que utiliza isso, funciona que é uma beleza.. - Original Message - From: HNS Informática To: Lista DelphiBr ; DelphiLista ; DelphiTotal ; DelphiMysql Sent: Saturday, October 29, 2005 9:47 AM Subject: [delphi-br] E-Mail com Indy Alguém tem algum exemplo de envio de e-mail com o componente Indy? Abraços Charles A. Chiodi [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- 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] 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
[delphi-br] E-Mail sem autenticação
Pessoal, preciso de uma conta de e-mail que não exija autenticação no envio, pois vou usar no delphi para enviar e-mails e o componente SMTP do delphi não tem a opção de autenticação, ja tentei o BOL mas da muito erro, alguém sabe onde posso conseguir outra conta? Abraços Charles A. Chiodi [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] 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: [delphi-br] E-Mail sem autenticação
Amigo, BOM DIA.. seguinte kra, tu tens que atualizar o INDY, se é q tais usando o INDY... eu uso o Indy 10 e tem autenticação sim... aki esta o código que uso: SMTP.Host := tbConfigSMTPSERVER.Value; SMTP.Username := tbConfigSMTPEMAIL.Value; SMTP.Password := tbConfigSMTPSENHA.Value; SMTP.Port := tbConfigSMTPPORTA.Value; If tbConfigSMTPAUTENTICA.Value = 'S' Then SMTP.AuthType := atDefault Else SMTP.AuthType := atNone; Try SMTP.Connect; SMTP.Send(Email); Except SMTP.Disconnect; Application.MessageBox('Não foi possivel enviar o Email', 'ATENÇÃO', 0); End; Espero ter ajudado o amigo.. Abração Gerson Thomaz Santos - Original Message - From: HNS Informática To: Lista DelphiBr ; DelphiTotal ; DelphiMysql ; DelphiLista Sent: Friday, October 28, 2005 8:17 AM Subject: [delphi-br] E-Mail sem autenticação Pessoal, preciso de uma conta de e-mail que não exija autenticação no envio, pois vou usar no delphi para enviar e-mails e o componente SMTP do delphi não tem a opção de autenticação, ja tentei o BOL mas da muito erro, alguém sabe onde posso conseguir outra conta? Abraços Charles A. Chiodi [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- 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] 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] E-Mail via delphi
Charles, Acredito que tera que usar os componente da paleta Indy, se nao me engano precisa ter a versao 9, 10 (onde nestas versoes tem opcao de autenticacao) Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de HNS Informática Enviada em: terça-feira, 18 de outubro de 2005 14:26 Para: Lista DelphiBr; DelphiTotal; DelphiMysql; DelphiLista Assunto: [delphi-br] E-Mail via delphi Pessoal, preciso configurar um formulário para enviar um e-mail sem abrir o outlook, tentei usando o componente NMSMTP da palheta Fastnet do delphi5, o problema é que minha conta de e-mail requer autenticação e esse componente não tem propriedade de senha, alguém conhece outro componente? att Charles Chiodi [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: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [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: [delphi-br] E-Mail via delphi
Aproveitando o assunto e-mail, alguém sabe como consigo mandar e-mail com formatação HTML. Formato texto eu já sei Gracias - Original Message - From: Elazar [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 19, 2005 9:10 AM Subject: RES: [delphi-br] E-Mail via delphi Charles, Acredito que tera que usar os componente da paleta Indy, se nao me engano precisa ter a versao 9, 10 (onde nestas versoes tem opcao de autenticacao) Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de HNS Informática Enviada em: terça-feira, 18 de outubro de 2005 14:26 Para: Lista DelphiBr; DelphiTotal; DelphiMysql; DelphiLista Assunto: [delphi-br] E-Mail via delphi Pessoal, preciso configurar um formulário para enviar um e-mail sem abrir o outlook, tentei usando o componente NMSMTP da palheta Fastnet do delphi5, o problema é que minha conta de e-mail requer autenticação e esse componente não tem propriedade de senha, alguém conhece outro componente? att Charles Chiodi [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: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [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 E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 18/10/2005 / Versão: 4.4.00/4607 Proteja o seu e-mail Terra: http://mail.terra.com.br/ -- 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
[delphi-br] E-Mail via delphi
Pessoal, preciso configurar um formulário para enviar um e-mail sem abrir o outlook, tentei usando o componente NMSMTP da palheta Fastnet do delphi5, o problema é que minha conta de e-mail requer autenticação e esse componente não tem propriedade de senha, alguém conhece outro componente? att Charles Chiodi [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
[delphi-br] E-mail (Outlook)
Grupo Alguém tem um exemplo básico para criar um programa para mandar um e-mail usando o outlook em Delphi7,,, apostila, fonte de exemplo, quais componentes eu utilizo qualquer informação para mim sempre vai ser bem vinda !!... Obrigado a quem poder me ajudar Cristiano __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] E-mail (Outlook)
Amigo, segue uma função que envia sem o outlook. Uso os seguintes componentes da paleta Indy IndySMTPServer e IdMessage. Atenção para preencher dados do remetente no componente IndySMTPServer, servidor, senha, username. function TData.EnviaEmail(Destinatarios: String; Assunto: String; Mensagem: TMemo): Boolean; var i: integer; begin MensagemEmail.From.Name:='Levi Ribeiro'; MensagemEmail.From.Address:='[EMAIL PROTECTED]; MensagemEmail.Recipients.EMailAddresses:=Destinatarios; MensagemEmail.Subject:=Assunto; MensagemEmail.Body:=Mensagem.Lines; try ServidorSMTP.Connect(15); ServidorSMTP.Send(MensagemEmail); Result:=True; Except Application.MessageBox('Email não foi enviado!','Erro', MB_OK+MB_ICONERROR); Result:=False; end; ServidorSMTP.Disconnect; end; _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cristiano Enviada em: quinta-feira, 11 de agosto de 2005 10:29 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] E-mail (Outlook) Grupo Alguém tem um exemplo básico para criar um programa para mandar um e-mail usando o outlook em Delphi7,,, apostila, fonte de exemplo, quais componentes eu utilizo qualquer informação para mim sempre vai ser bem vinda !!... Obrigado a quem poder me ajudar Cristiano __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [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
[delphi-br] E-mail em massa
Pessoal, tenho um cliente que trabalha com RH, e preciso desenvolver para ele um esquema de encaminhamento de currículos automático onde uso envio de email em massa. A rotina tá pronta, mas quando começa o envio dos e-mails o programa fica travado enquanto não acaba o processamento. Eu gostaria de dar a opção para meu usuário poder minimizar essa tela enquanto os emails estão sendo enviados e continuar usando as outras telas do sistema. Como faço isso? Estou usando o componente IdMessage da paleta Indy Misc e o componente IdSMTP da paleta Indy Clients do Delphi 6. Resumindo faço uma busca no meu banco de dados e carrego as informações num componente IBQuery e depois faço um loop para enviar todos os e-mails. Eu gostaria de ter a opção de cancelar o envio também, mas como nada mais fica clicável na tela, não consegui fazer isso. Estou precisando muito da ajuda de vocês e agradeço desde já qualquer ajuda. Obrigado Marcelo [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] E-mail em massa
Marcelo, Vc poderia usar uma Thread para controla tudo isso, crie um formulário baseado no Thread, coloque todos os controles de seu envio e pronto. Ao executar sua rotina, vc poderá efetuar outros procedimento no seu formulário. Espero ter lhe ajudado, -- 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] E-mail em massa
Então jorge, só conheço thread em conceito nunca programei uma thread no delphi, peguei um exemplo mas mesmo assim não funcionou, veja como ficou o código: unit uEncaminhamentosAuto; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, IBCustomDataSet, IBQuery, RxMemDS, Grids, DBGrids, CheckDBGrid, StdCtrls, Buttons, ImgList, ComCtrls, ToolWin, ExtCtrls, Gauges, IBStoredProc, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdBaseComponent, IdMessage; type TfrmEncaminhamentosAuto = class(TForm) memEmpresa: TRxMemoryData; qrEmpresa: TIBQuery; btnEnviar: TBitBtn; StatusBar1: TStatusBar; Panel1: TPanel; gauProgresso: TGauge; Bevel1: TBevel; cgridEmpresas: TCheckDBGrid; btnFechar: TBitBtn; memEmpresaEMP_FLAG: TBooleanField; memEmpresaEMP_CODIGO: TStringField; memEmpresaEMP_RAZAOSOCIAL: TStringField; dsEmpresas: TDataSource; memEmpresaEMP_CIDADE: TStringField; memEmpresaEMP_UF: TStringField; spEncaminhamentos: TIBStoredProc; memEmpresaEMP_SEGMENTO: TStringField; btnPesquisar: TBitBtn; qrTemp: TIBQuery; memEmpresaEMP_EMAIL: TStringField; edCodigoCliente: TEdit; PesqCodigoCliente: TSpeedButton; edNomeCliente: TEdit; PesqNomeCliente: TSpeedButton; Label1: TLabel; Label2: TLabel; edCurriculo: TEdit; PesqArquivo: TSpeedButton; Label3: TLabel; edHeadHunter: TComboBox; cbIncluir: TCheckBox; OpenDialog: TOpenDialog; edAssinatura: TMemo; Memo2: TMemo; edEmail: TEdit; edSenha: TEdit; IdMsgSend: TIdMessage; SMTP: TIdSMTP; edMensagemModelo: TMemo; edMensagemGerada: TMemo; btnCancelar: TBitBtn; procedure btnFecharClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure edCodigoClienteEnter(Sender: TObject); procedure PesqCodigoClienteClick(Sender: TObject); procedure PesqNomeClienteClick(Sender: TObject); procedure edCodigoClienteExit(Sender: TObject); procedure edCodigoClienteKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure btnPesquisarClick(Sender: TObject); procedure edCodigoClienteKeyPress(Sender: TObject; var Key: Char); procedure memEmpresaBeforeEdit(DataSet: TDataSet); procedure PesqArquivoClick(Sender: TObject); procedure edCurriculoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure edCurriculoExit(Sender: TObject); procedure FormShow(Sender: TObject); procedure edHeadHunterExit(Sender: TObject); procedure edHeadHunterChange(Sender: TObject); procedure cbIncluirClick(Sender: TObject); procedure btnCancelarClick(Sender: TObject); procedure btnEnviarClick(Sender: TObject); private { Private declarations } valida_email, parar : Boolean ; public { Public declarations } end; TThreadEmail = class(TThread) protected constructor Create; procedure Execute; override; procedure EnviaEmail; end; var frmEncaminhamentosAuto: TfrmEncaminhamentosAuto; var_prospecao_sp , var_prospecao_brasil , var_prospecao_cidade , var_prospecao_uf , var_prospecao_areas : String ; implementation uses uMenuPrincipal, uPesquisa, Funcoes; {$R *.dfm} procedure TfrmEncaminhamentosAuto.btnFecharClick(Sender: TObject); begin close ; end; procedure TfrmEncaminhamentosAuto.FormClose(Sender: TObject; var Action: TCloseAction); begin frmEncaminhamentosAuto := Nil ; Action := caFree ; end; procedure TfrmEncaminhamentosAuto.edCodigoClienteEnter(Sender: TObject); begin self.Top := ((frmMenuPrincipal.clientHeight-self.Height) div 2) - 32; end; procedure TfrmEncaminhamentosAuto.PesqCodigoClienteClick(Sender: TObject); begin //Chama o form If FrmPesquisa = Nil Then Begin FrmPesquisa := TFrmPesquisa.Create( Self ) ; FrmPesquisa.Show ; End; //Pesquisa de CPF FrmPesquisa.qrPesquisa.Active := False ; FrmPesquisa.qrPesquisa.SQL.Clear ; FrmPesquisa.qrPesquisa.SQL.Add('SELECT CLI_CODIGO AS CODIGO, CLI_NOME AS NOME_DO_CANDIDATO'); FrmPesquisa.qrPesquisa.SQL.Add('FROM ARQCLIENTES') ; FrmPesquisa.qrPesquisa.SQL.Add('ORDER BY CLI_CODIGO'); FrmPesquisa.qrPesquisa.Active := True ; //Strings de Pesquisa FrmPesquisa.SQL1:= 'SELECT CLI_CODIGO AS CODIGO, CLI_NOME AS NOME_DO_CANDIDATO FROM ARQCLIENTES WHERE CLI_CODIGO LIKE'; FrmPesquisa.SQL2:= 'ORDER BY CLI_CODIGO'; //Campos FrmPesquisa.TxtCampoChave := 'CODIGO' ; FrmPesquisa.TxtCampoResp := 'CODIGO' ; FrmPesquisa.EdResp := Self.edCodigoCliente ; end; procedure TfrmEncaminhamentosAuto.PesqNomeClienteClick(Sender: TObject); begin //Chama o form If FrmPesquisa = Nil Then Begin FrmPesquisa := TFrmPesquisa.Create( Self ) ; FrmPesquisa.Show ; End; //Pesquisa de
[delphi-br] E-Mail no OutLook Express
Caros amigos, Um colega meu me perguntou se existe uma forma de abrir o outlook express com um email contendo um texto padrão que deverá ser alterado e logo em seguida enviado. Existe alguma forma? Francisco Thiago de Almeida EnterPlug Informática Divisão: Desenvolvimento e Banco de dados MSN: [EMAIL PROTECTED] Skype: enterplug_thiago Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis! http://mail.yahoo.com.br -- 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
[delphi-br] E-mail Leonildo de Santos
Grupo se algue de vcs tiverem o e-mail do Leonildo, vou ficar muito grato. Leonildo se puder me mandar o restante das apostilas, me desulpe, é que perdi o teu e-mail do ig. Grato Cristiano. _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- 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
[delphi-br] E-mail usando a MAPISend.exe
Senhores tempos atraz deram uma dica de : como enviar email usando o MAPISEND.EXE se algem puder me mandar essa dica ou um exemplo usando a MAPI ficarei grato Gato Pela Atenção juliano -- 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: [delphi-br] E-mail de arquivo PDF com NMSMTP - Demorado.
compacte o PDF antes de enviar -- 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
[delphi-br] E-mail de arquivo PDF com NMSMTP - Demorado.
Boa tarde, Há um tempinho que incomodo os colegas da lista com algumas questões relacionadas a conversão para PDF e e-mail. Pois bem, com a ajuda de vocês consigo converter um relatório do QR para PDF e envio por e-mail ao cliente. O processo ficou simples: o usuário visualiza o relatório e, se desejar enviá-lo por e-mail clica no botão de enviar e-mail, como se fosse para imprimir. O sistema converte o relatório, pega os dados do cliente na tabela e envia o e-mail. Na minha máquina (PIII 1GHz com 128 MB de RAM com ADSL) tudo acontece rápido - um relatório de mais de uma página é enviado em alguns segundos. Mas na máquina do cliente, que tem uma configuração melhor que a minha e utiliza conexão via rádio (grupo NET, acho que é Giro - em São Paulo) o sistema demora mais de 3 minutos para fazer o mesmo processo - conversão e envio do arquivo por e-mail. Algém tem idéia do que posso fazer para melhorar isso? Uso Delphi 6, Paradox e relatório em QReport. Obrigado e abraços! ___ Eliel Regis de Lima - [EMAIL PROTECTED] - ICQ: 11326694 Tel: (65) 223-1629 e 9989-0455 MSN: [EMAIL PROTECTED] -- 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: [delphi-br] E-mail de arquivo PDF com NMSMTP - Demorado.
Qual é a velocidade do seu ADSL? Qual é a velocidade 'prometida' pela conexão a Radio do seu Cliente? No seu Cliente: O que demora mais? A conversão para PDF? Ou o envio por e-mail? Uma conexão a Radio nem sempre é tão rápida com se imagina! On Fri, 11 Mar 2005 14:45:58 -0300, Eliel [EMAIL PROTECTED] wrote: Boa tarde, Há um tempinho que incomodo os colegas da lista com algumas questões relacionadas a conversão para PDF e e-mail. Pois bem, com a ajuda de vocês consigo converter um relatório do QR para PDF e envio por e-mail ao cliente. O processo ficou simples: o usuário visualiza o relatório e, se desejar enviá-lo por e-mail clica no botão de enviar e-mail, como se fosse para imprimir. O sistema converte o relatório, pega os dados do cliente na tabela e envia o e-mail. Na minha máquina (PIII 1GHz com 128 MB de RAM com ADSL) tudo acontece rápido - um relatório de mais de uma página é enviado em alguns segundos. Mas na máquina do cliente, que tem uma configuração melhor que a minha e utiliza conexão via rádio (grupo NET, acho que é Giro - em São Paulo) o sistema demora mais de 3 minutos para fazer o mesmo processo - conversão e envio do arquivo por e-mail. Algém tem idéia do que posso fazer para melhorar isso? Uso Delphi 6, Paradox e relatório em QReport. Obrigado e abraços! ___ Eliel Regis de Lima - [EMAIL PROTECTED] - ICQ: 11326694 Tel: (65) 223-1629 e 9989-0455 MSN: [EMAIL PROTECTED] -- 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
[delphi-br] E-mail
Alguem sabe como fazer uma aplicação no Delphi para receber e-mail ou pelo menos se conectar em um servidor de e-mail para saber qual mensagem chegou ? Valeu Arthur [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
[delphi-br] E-mail
Gostaria de saber se alguem tem algum tipo de tutorial ou componentes para delphi 7. Ou se alguem poderia me ajudar pois estou criando um e-mail no delphi e uma tela de recebimento tbm Alguem poderia me ajudar??? -- 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