[delphi-br] Email com Indy - Problemas
bom dia, estou enviando email usando o componente 'Indy' se o meu outlook estiver aberto o email é enviado, caso contrário ele me dá uma mensagem de 'invalid host name' e na verdade o mesmo está correto; alguém passou por isto. grato Stainle
[delphi-br] Email enviado com Atraso - Indy
Pessoal,
Estou usando o código abaixo para enviar email e os emails estão chegando com 3
horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha
===IdMessage.Date := now; e não resolveu.
Alguem tem alguma dica?
Segue o código que uso no envio.
procedure TSendEmail.Execute;
var
SMTP: TIdSMTP;
IdMessage: TIdMessage;
begin
SMTP := TIdSMTP.Create(nil);
IdMessage := TIdMessage.Create(nil);
try
SMTP.Host := self.ServidorSMTP;
if self.GeraLog=1 then LogMailThread('Host: '+self.ServidorSMTP);
SMTP.Port := self.Porta;
SMTP.Password := self.Senha;
SMTP.Username := self.Usuario;
if self.Autenticacao=1 then SMTP.AuthType := atDefault else
SMTP.AuthType := atNone;
IdMessage.From.Address := self.Remetente;
IdMessage.From.Name := self.NomeRemetente;
Idmessage.BccList.EMailAddresses := Destinatario;
if self.GeraLog=1 then LogMailThread('Para: '+Destinatario);
IdMessage.Subject:= self.Assunto;
IdMessage.Body.Text := self.TextoEmail;
IdMessage.ContentType:= 'text/html';
IdMessage.Date := now;
try
SMTP.Connect;
SMTP.Send(IdMessage);
except
on e: Exception do
begin
if self.GeraLog=1 then LogMailThread(E.Message);
end;
end;
finally
if SMTP.Connected then SMTP.Disconnect;
IdMessage.Destroy;
SMTP.Destroy;
end;
end;
Res: [delphi-br] Email enviado com Atraso - Indy
o problema pode ser no seu servidor de envio. Pois depois que saiu do seu sistema, quem controla isso é o servidor. Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados- Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 De: rmpena25 rmpen...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 15 de Setembro de 2009 13:51:11 Assunto: [delphi-br] Email enviado com Atraso - Indy Pessoal, Estou usando o código abaixo para enviar email e os emails estão chegando com 3 horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha ===IdMessage. Date := now; e não resolveu. Alguem tem alguma dica? Segue o código que uso no envio. procedure TSendEmail.Execute; var SMTP: TIdSMTP; IdMessage: TIdMessage; begin SMTP := TIdSMTP.Create( nil); IdMessage := TIdMessage.Create( nil); try SMTP.Host := self.ServidorSMTP; if self.GeraLog= 1 then LogMailThread( 'Host: '+self.ServidorSMTP ); SMTP.Port := self.Porta; SMTP.Password := self.Senha; SMTP.Username := self.Usuario; if self.Autenticacao= 1 then SMTP.AuthType := atDefault else SMTP.AuthType := atNone; IdMessage.From. Address := self.Remetente; IdMessage.From. Name := self.NomeRemetente; Idmessage.BccList. EMailAddresses := Destinatario; if self.GeraLog= 1 then LogMailThread( 'Para: '+Destinatario) ; IdMessage.Subject:= self.Assunto; IdMessage.Body. Text := self.TextoEmail; IdMessage.ContentTy pe:= 'text/html'; IdMessage.Date := now; try SMTP.Connect; SMTP.Send(IdMessage ); except on e: Exception do begin if self.GeraLog= 1 then LogMailThread( E.Message) ; end; end; finally if SMTP.Connected then SMTP.Disconnect; IdMessage.Destroy; SMTP.Destroy; end; end; 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] Email enviado com Atraso - Indy
se seu servidor fica fora do pais ira usar a data dele quase certeza.. entre em contato com eles 2009/9/15 Berdam berdamzi...@yahoo.com.br o problema pode ser no seu servidor de envio. Pois depois que saiu do seu sistema, quem controla isso é o servidor. -- Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados - Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 -- De: rmpena25 rmpen...@yahoo.com.br rmpena25%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 15 de Setembro de 2009 13:51:11 Assunto: [delphi-br] Email enviado com Atraso - Indy Pessoal, Estou usando o código abaixo para enviar email e os emails estão chegando com 3 horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha ===IdMessage. Date := now; e não resolveu. Alguem tem alguma dica? Segue o código que uso no envio. procedure TSendEmail.Execute; var SMTP: TIdSMTP; IdMessage: TIdMessage; begin SMTP := TIdSMTP.Create( nil); IdMessage := TIdMessage.Create( nil); try SMTP.Host := self.ServidorSMTP; if self.GeraLog= 1 then LogMailThread( 'Host: '+self.ServidorSMTP ); SMTP.Port := self.Porta; SMTP.Password := self.Senha; SMTP.Username := self.Usuario; if self.Autenticacao= 1 then SMTP.AuthType := atDefault else SMTP.AuthType := atNone; IdMessage.From. Address := self.Remetente; IdMessage.From. Name := self.NomeRemetente; Idmessage.BccList. EMailAddresses := Destinatario; if self.GeraLog= 1 then LogMailThread( 'Para: '+Destinatario) ; IdMessage.Subject := self.Assunto; IdMessage.Body. Text := self.TextoEmail; IdMessage.ContentTy pe:= 'text/html'; IdMessage.Date := now; try SMTP.Connect; SMTP.Send(IdMessage ); except on e: Exception do begin if self.GeraLog= 1 then LogMailThread( E.Message) ; end; end; finally if SMTP.Connected then SMTP.Disconnect; IdMessage.Destroy; SMTP.Destroy; end; end; __ 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] -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Email enviado com Atraso - Indy
O servidor de e-mail está usando o GMT (Greenwich Mean Time, também conhecido como Hora de Greenwich) http://pt.wikipedia.org/wiki/Greenwich_Mean_Time Atte,Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 15/9/09, rmpena25 rmpen...@yahoo.com.br escreveu: Pessoal, Estou usando o código abaixo para enviar email e os emails estão chegando com 3 horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha ===IdMessage. Date := now; e não resolveu. Alguem tem alguma dica? Segue o código que uso no envio. procedure TSendEmail.Execute; var SMTP: TIdSMTP; IdMessage: TIdMessage; begin SMTP := TIdSMTP.Create( nil); IdMessage := TIdMessage.Create( nil); try SMTP.Host := self.ServidorSMTP; if self.GeraLog= 1 then LogMailThread( 'Host: '+self.ServidorSMTP ); SMTP.Port := self.Porta; SMTP.Password := self.Senha; SMTP.Username := self.Usuario; if self.Autenticacao= 1 then SMTP.AuthType := atDefault else SMTP.AuthType := atNone; IdMessage.From. Address := self.Remetente; IdMessage.From. Name := self.NomeRemetente; Idmessage.BccList. EMailAddresses := Destinatario; if self.GeraLog= 1 then LogMailThread( 'Para: '+Destinatario) ; IdMessage.Subject:= self.Assunto; IdMessage.Body. Text := self.TextoEmail; IdMessage.ContentTy pe:= 'text/html'; IdMessage.Date := now; try SMTP.Connect; SMTP.Send(IdMessage ); except on e: Exception do begin if self.GeraLog= 1 then LogMailThread( E.Message) ; end; end; finally if SMTP.Connected then SMTP.Disconnect; IdMessage.Destroy; SMTP.Destroy; end; end; ,___ 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]
RES: [delphi-br] EMAIL
Isso é um esso que, infelizmente, muitos cometem ao redigir mensagens (SMS, e-mails, ...), esquecem das pontuações. Neste caso, me parece, que ele quiz dizer: - E aí? Viu? - Conseguiu decifrar algo? Luciano Calenzani Simões - Mensagem original De: Alexandre Rodrigues [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 6 de Agosto de 2008 0:11:28 Assunto: Re: RES: RES: [delphi-br] EMAIL Na verdade não entendi nadarsrsrsrs [EMAIL PROTECTED] ind.br escreveu: e ai viu . conseguiu decifrar algo Cícero Fernandes Eng. Eletricista Eng. de Segurança do Trabalho CREA-SC 27.958-0 P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! 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]
RES: RES: [delphi-br] EMAIL
e ai viu .
conseguiu decifrar algo
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alexandre Rodrigues
Enviada em: domingo, 3 de agosto de 2008 21:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] EMAIL
Não, não vi. Poste aqui embaixo! Outra coisa, quando enviar um e-mail
para lista não coloque somente EMAIL no assunto, seja mais especifico.
Por exemplo. Como enviar e-mail a partir no aplicativo.
Foi pura sorte eu ter lido tua mensagem, normalmente passo batido quando
a pessoa não especifica o problema no assunto.
Também faça uma pesquisa nos e-mails antigos da lista, essa dica que te
dei já foi discutida aqui anteriormente.
[EMAIL PROTECTED] mailto:cicero%40fiosecabos.ind.br ind.br escreveu:
O amigão ... obrigado fiuncionaou corretamente ...
agradeço muito ...
Por acaso vc viu akele outro problema q postei anteriormente ...
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Alexandre Rodrigues
Enviada em: domingo, 3 de agosto de 2008 17:43
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] EMAIL
Cicero, em primeiro lugar, NÃO GRITE COM AS PESSOAS. Quando escrever um
e-mail escreva em minúsculo.
A forma mais simples de fazer isso é usar ShellExecute;
Para isso declare na uses a unit ShellApi.
No Evento OnDblClick digite o código abaixo.
ShellExecute(Handle, 'open', PChar(Format('mailto:%s',
[DBEdit1.Text])), nil, nil, SW_SHOWNORMAL);
[EMAIL PROTECTED] mailto:cicero%40fiosecabos.ind.br ind.br escreveu:
QUERO REGISTRAR O ENDEREÇO DE EMAIL DO CLIENTE EM UM DBEDIT.
QUANDO DER UM DBLCLICK SOBRE O DBEEDIT, QUERO QUE SEJA EXECUTADO O
OUTLOOK
E
APAREÇA O ENDEREÇO REGISTRADO PARA MANDAR O EMAIL ...
ALGUEM PODE ME AJUDAR
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Bruno Lichot
Enviada em: quinta-feira, 31 de julho de 2008 14:30
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: [delphi-br] Última versão impressa do Delphi Developer's
Guide
Os docs estão online agora
http://docs. http://docs. http://docs. http://docs.codegear.com/
codegear.com/
http://docs. http://docs.codegear.com/ codegear.com/ codegear.com/
http://docs. http://docs. http://docs.codegear.com/ codegear.com/
http://docs. http://docs.codegear.com/ codegear.com/
codegear.com/
codegear.com/
e foi impresso até o Delphi 7
From: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] On Behalf Of Roberto
Sent: quinta-feira, 31 de julho de 2008 14:16
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
Subject: [delphi-br] Última versão impressa do Delphi Developer's Guide
Prezados: poderiam me informar até que Delphi o referido manual IMPRESSO
acompanhou o produto?
Eu tenho aqui o D6.
Obrigado
Roberto
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo. http://br.yahoo.
http://br.yahoo.com/mailbeta/tudonovo/ com/mailbeta/tudonovo/
http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/
com/mailbeta/tudonovo/
com/mailbeta/tudonovo/
[As partes desta mensagem que não continham texto foram removidas]
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/
com/mailbeta/tudonovo/
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: RES: [delphi-br] EMAIL
Na verdade não entendi nadarsrsrsrs
[EMAIL PROTECTED] escreveu:
e ai viu .
conseguiu decifrar algo
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
_
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Alexandre Rodrigues
Enviada em: domingo, 3 de agosto de 2008 21:14
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] EMAIL
Não, não vi. Poste aqui embaixo! Outra coisa, quando enviar um e-mail
para lista não coloque somente EMAIL no assunto, seja mais especifico.
Por exemplo. Como enviar e-mail a partir no aplicativo.
Foi pura sorte eu ter lido tua mensagem, normalmente passo batido quando
a pessoa não especifica o problema no assunto.
Também faça uma pesquisa nos e-mails antigos da lista, essa dica que te
dei já foi discutida aqui anteriormente.
[EMAIL PROTECTED] mailto:cicero%40fiosecabos.ind.br ind.br escreveu:
O amigão ... obrigado fiuncionaou corretamente ...
agradeço muito ...
Por acaso vc viu akele outro problema q postei anteriormente ...
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Alexandre Rodrigues
Enviada em: domingo, 3 de agosto de 2008 17:43
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] EMAIL
Cicero, em primeiro lugar, NÃO GRITE COM AS PESSOAS. Quando escrever um
e-mail escreva em minúsculo.
A forma mais simples de fazer isso é usar ShellExecute;
Para isso declare na uses a unit ShellApi.
No Evento OnDblClick digite o código abaixo.
ShellExecute(Handle, 'open', PChar(Format('mailto:%s',
[DBEdit1.Text])), nil, nil, SW_SHOWNORMAL);
[EMAIL PROTECTED] mailto:cicero%40fiosecabos.ind.br ind.br escreveu:
QUERO REGISTRAR O ENDEREÇO DE EMAIL DO CLIENTE EM UM DBEDIT.
QUANDO DER UM DBLCLICK SOBRE O DBEEDIT, QUERO QUE SEJA EXECUTADO O
OUTLOOK
E
APAREÇA O ENDEREÇO REGISTRADO PARA MANDAR O EMAIL ...
ALGUEM PODE ME AJUDAR
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Bruno Lichot
Enviada em: quinta-feira, 31 de julho de 2008 14:30
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: [delphi-br] Última versão impressa do Delphi Developer's
Guide
Os docs estão online agora
http://docs. http://docs. http://docs. http://docs.codegear.com/
http://docs.codegear.com/
codegear.com/
http://docs. http://docs.codegear.com/ http://docs.codegear.com/
codegear.com/ codegear.com/
http://docs. http://docs. http://docs.codegear.com/
http://docs.codegear.com/ codegear.com/
http://docs. http://docs.codegear.com/ http://docs.codegear.com/
codegear.com/
codegear.com/
codegear.com/
e foi impresso até o Delphi 7
From: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] On Behalf Of Roberto
Sent: quinta-feira, 31 de julho de 2008 14:16
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
Subject: [delphi-br] Última versão impressa do Delphi Developer's Guide
Prezados: poderiam me informar até que Delphi o referido manual
IMPRESSO
acompanhou o produto?
Eu tenho aqui o D6.
Obrigado
Roberto
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo. http://br.yahoo.
http://br.yahoo.com/mailbeta/tudonovo/
http://br.yahoo.com/mailbeta
[delphi-br] EMAIL
QUERO REGISTRAR O ENDEREÇO DE EMAIL DO CLIENTE EM UM DBEDIT. QUANDO DER UM DBLCLICK SOBRE O DBEEDIT, QUERO QUE SEJA EXECUTADO O OUTLOOK E APAREÇA O ENDEREÇO REGISTRADO PARA MANDAR O EMAIL ... ALGUEM PODE ME AJUDAR Cícero Fernandes Eng. Eletricista Eng. de Segurança do Trabalho CREA-SC 27.958-0 P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Bruno Lichot Enviada em: quinta-feira, 31 de julho de 2008 14:30 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Última versão impressa do Delphi Developer's Guide Os docs estão online agora http://docs. http://docs.codegear.com/ codegear.com/ e foi impresso até o Delphi 7 From: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] On Behalf Of Roberto Sent: quinta-feira, 31 de julho de 2008 14:16 To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Subject: [delphi-br] Última versão impressa do Delphi Developer's Guide Prezados: poderiam me informar até que Delphi o referido manual IMPRESSO acompanhou o produto? Eu tenho aqui o D6. Obrigado Roberto [As partes desta mensagem que não continham texto foram removidas] [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] EMAIL
Cicero, em primeiro lugar, NÃO GRITE COM AS PESSOAS. Quando escrever um
e-mail escreva em minúsculo.
A forma mais simples de fazer isso é usar ShellExecute;
Para isso declare na uses a unit ShellApi.
No Evento OnDblClick digite o código abaixo.
ShellExecute(Handle, 'open', PChar(Format('mailto:%s',
[DBEdit1.Text])), nil, nil, SW_SHOWNORMAL);
[EMAIL PROTECTED] escreveu:
QUERO REGISTRAR O ENDEREÇO DE EMAIL DO CLIENTE EM UM DBEDIT.
QUANDO DER UM DBLCLICK SOBRE O DBEEDIT, QUERO QUE SEJA EXECUTADO O OUTLOOK E
APAREÇA O ENDEREÇO REGISTRADO PARA MANDAR O EMAIL ...
ALGUEM PODE ME AJUDAR
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
_
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Bruno Lichot
Enviada em: quinta-feira, 31 de julho de 2008 14:30
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: [delphi-br] Última versão impressa do Delphi Developer's Guide
Os docs estão online agora
http://docs. http://docs.codegear.com/ http://docs.codegear.com/
codegear.com/
e foi impresso até o Delphi 7
From: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] On Behalf Of Roberto
Sent: quinta-feira, 31 de julho de 2008 14:16
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Subject: [delphi-br] Última versão impressa do Delphi Developer's Guide
Prezados: poderiam me informar até que Delphi o referido manual IMPRESSO
acompanhou o produto?
Eu tenho aqui o D6.
Obrigado
Roberto
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
RES: [delphi-br] EMAIL
O amigão ... obrigado fiuncionaou corretamente ...
agradeço muito ...
Por acaso vc viu akele outro problema q postei anteriormente ...
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alexandre Rodrigues
Enviada em: domingo, 3 de agosto de 2008 17:43
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] EMAIL
Cicero, em primeiro lugar, NÃO GRITE COM AS PESSOAS. Quando escrever um
e-mail escreva em minúsculo.
A forma mais simples de fazer isso é usar ShellExecute;
Para isso declare na uses a unit ShellApi.
No Evento OnDblClick digite o código abaixo.
ShellExecute(Handle, 'open', PChar(Format('mailto:%s',
[DBEdit1.Text])), nil, nil, SW_SHOWNORMAL);
[EMAIL PROTECTED] mailto:cicero%40fiosecabos.ind.br ind.br escreveu:
QUERO REGISTRAR O ENDEREÇO DE EMAIL DO CLIENTE EM UM DBEDIT.
QUANDO DER UM DBLCLICK SOBRE O DBEEDIT, QUERO QUE SEJA EXECUTADO O OUTLOOK
E
APAREÇA O ENDEREÇO REGISTRADO PARA MANDAR O EMAIL ...
ALGUEM PODE ME AJUDAR
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Bruno Lichot
Enviada em: quinta-feira, 31 de julho de 2008 14:30
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: [delphi-br] Última versão impressa do Delphi Developer's
Guide
Os docs estão online agora
http://docs. http://docs. http://docs.codegear.com/ codegear.com/
http://docs. http://docs.codegear.com/ codegear.com/
codegear.com/
e foi impresso até o Delphi 7
From: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] On Behalf Of Roberto
Sent: quinta-feira, 31 de julho de 2008 14:16
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Subject: [delphi-br] Última versão impressa do Delphi Developer's Guide
Prezados: poderiam me informar até que Delphi o referido manual IMPRESSO
acompanhou o produto?
Eu tenho aqui o D6.
Obrigado
Roberto
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/
com/mailbeta/tudonovo/
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] EMAIL
hehehe ,,, desculpe ...
agradeço a dica ...
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alexandre Rodrigues
Enviada em: domingo, 3 de agosto de 2008 17:43
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] EMAIL
Cicero, em primeiro lugar, NÃO GRITE COM AS PESSOAS. Quando escrever um
e-mail escreva em minúsculo.
A forma mais simples de fazer isso é usar ShellExecute;
Para isso declare na uses a unit ShellApi.
No Evento OnDblClick digite o código abaixo.
ShellExecute(Handle, 'open', PChar(Format('mailto:%s',
[DBEdit1.Text])), nil, nil, SW_SHOWNORMAL);
[EMAIL PROTECTED] mailto:cicero%40fiosecabos.ind.br ind.br escreveu:
QUERO REGISTRAR O ENDEREÇO DE EMAIL DO CLIENTE EM UM DBEDIT.
QUANDO DER UM DBLCLICK SOBRE O DBEEDIT, QUERO QUE SEJA EXECUTADO O OUTLOOK
E
APAREÇA O ENDEREÇO REGISTRADO PARA MANDAR O EMAIL ...
ALGUEM PODE ME AJUDAR
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Bruno Lichot
Enviada em: quinta-feira, 31 de julho de 2008 14:30
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: [delphi-br] Última versão impressa do Delphi Developer's
Guide
Os docs estão online agora
http://docs. http://docs. http://docs.codegear.com/ codegear.com/
http://docs. http://docs.codegear.com/ codegear.com/
codegear.com/
e foi impresso até o Delphi 7
From: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] On Behalf Of Roberto
Sent: quinta-feira, 31 de julho de 2008 14:16
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Subject: [delphi-br] Última versão impressa do Delphi Developer's Guide
Prezados: poderiam me informar até que Delphi o referido manual IMPRESSO
acompanhou o produto?
Eu tenho aqui o D6.
Obrigado
Roberto
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/
com/mailbeta/tudonovo/
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] EMAIL
Não, não vi. Poste aqui embaixo! Outra coisa, quando enviar um e-mail
para lista não coloque somente EMAIL no assunto, seja mais especifico.
Por exemplo. Como enviar e-mail a partir no aplicativo.
Foi pura sorte eu ter lido tua mensagem, normalmente passo batido quando
a pessoa não especifica o problema no assunto.
Também faça uma pesquisa nos e-mails antigos da lista, essa dica que te
dei já foi discutida aqui anteriormente.
[EMAIL PROTECTED] escreveu:
O amigão ... obrigado fiuncionaou corretamente ...
agradeço muito ...
Por acaso vc viu akele outro problema q postei anteriormente ...
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
_
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Alexandre Rodrigues
Enviada em: domingo, 3 de agosto de 2008 17:43
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] EMAIL
Cicero, em primeiro lugar, NÃO GRITE COM AS PESSOAS. Quando escrever um
e-mail escreva em minúsculo.
A forma mais simples de fazer isso é usar ShellExecute;
Para isso declare na uses a unit ShellApi.
No Evento OnDblClick digite o código abaixo.
ShellExecute(Handle, 'open', PChar(Format('mailto:%s',
[DBEdit1.Text])), nil, nil, SW_SHOWNORMAL);
[EMAIL PROTECTED] mailto:cicero%40fiosecabos.ind.br ind.br escreveu:
QUERO REGISTRAR O ENDEREÇO DE EMAIL DO CLIENTE EM UM DBEDIT.
QUANDO DER UM DBLCLICK SOBRE O DBEEDIT, QUERO QUE SEJA EXECUTADO O
OUTLOOK
E
APAREÇA O ENDEREÇO REGISTRADO PARA MANDAR O EMAIL ...
ALGUEM PODE ME AJUDAR
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Bruno Lichot
Enviada em: quinta-feira, 31 de julho de 2008 14:30
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: [delphi-br] Última versão impressa do Delphi Developer's
Guide
Os docs estão online agora
http://docs. http://docs. http://docs.codegear.com/
http://docs.codegear.com/ codegear.com/
http://docs. http://docs.codegear.com/ http://docs.codegear.com/
codegear.com/
codegear.com/
e foi impresso até o Delphi 7
From: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] On Behalf Of Roberto
Sent: quinta-feira, 31 de julho de 2008 14:16
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Subject: [delphi-br] Última versão impressa do Delphi Developer's Guide
Prezados: poderiam me informar até que Delphi o referido manual IMPRESSO
acompanhou o produto?
Eu tenho aqui o D6.
Obrigado
Roberto
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/
http://br.yahoo.com/mailbeta/tudonovo/
com/mailbeta/tudonovo/
[As partes desta mensagem que não continham texto foram removidas]
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
[delphi-br] [EMAIL PROTECTED]
gostaria de sair deste grupo obrigada sandra
Re: [delphi-br] email
Colega, veja se o exemplo a seguir te serve:
smtp: TNMSMTP;
procedure TForm.EnviarEmail(Corpo: string);
begin
try
smtp.Host := 'servidor';
smtp.UserID := 'usuario';
smtp.Connect;
smtp.PostMessage.FromAddress := '[EMAIL PROTECTED]';
smtp.PostMessage.FromName := 'seu nome';
smtp.PostMessage.ToAddress.Clear;
smtp.PostMessage.ToAddress.Add('[EMAIL PROTECTED]');
smtp.PostMessage.ToCarbonCopy.Clear;
smtp.PostMessage.ToCarbonCopy.Add('[EMAIL PROTECTED]');
smtp.PostMessage.Body.Text := Corpo;
smtp.PostMessage.Subject := 'Assunto';
smtp.PostMessage.Attachments.Add('c:\arquivo_anexo.txt');
smtp.SendMail;
smtp.Disconnect;
except on E: Exception do begin
ShowMessage('Erro em envio de e-mail para ' +
smtp.PostMessage.ToAddress.Text + ' -- ' + E.Message);
end;
end;
end;
Em 31/03/08, Eduardo Oliveira silva [EMAIL PROTECTED] escreveu:
Pessoal, como eu faço para enviar um email no Delphi,
Estou desenvolvendo um trabalho onde.
O atendente cadastra uma operação e o sistema envia um email
automaticamente para o gerente. Alguem pode me ajudar?
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] email
Pessoal, como eu faço para enviar um email no Delphi, Estou desenvolvendo um trabalho onde. O atendente cadastra uma operação e o sistema envia um email automaticamente para o gerente. Alguem pode me ajudar?
Re: [delphi-br] email
http://www.google.com.br/search?hl=pt-BRq=Delphi+enviar+e-mailbtnG=Pesquisa+Googlemeta= tem exemplo a dar com pau. Em 31/03/08, Eduardo Oliveira silva [EMAIL PROTECTED] escreveu: Pessoal, como eu faço para enviar um email no Delphi, Estou desenvolvendo um trabalho onde. O atendente cadastra uma operação e o sistema envia um email automaticamente para o gerente. Alguem pode me ajudar? -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Email UOL
Enviando email de [EMAIL PROTECTED] para [EMAIL PROTECTED]
nao consigo fazer isso, dá o seguinte erro: [EMAIL PROTECTED]: Recipient
address rejected: Access Danied
var
smtp : TIdSMTP ;
pop : TIDPop3;
Mensagem : TIdMessage ;
begin
smtp := TIdSMTP.Create( Nil );
Pop := TIdPOP3.Create(Nil);
Mensagem := TIdMessage.Create( Nil );
pop.Host := 'pop3.uol.com.br';
pop.Username := 'alcione';
pop.Password := '123' ;
pop.Port := 110;
pop.Connect() ;
//pop.Disconnect;
smtp.Host := 'smtp.uol.com.br';
smtp.Username := 'alcione';
smtp.Password := '123' ;
smtp.Port := 25;
smtp.AuthenticationType := atLogin;
smtp.Connect() ;
mensagem.From.Name:= [EMAIL PROTECTED];
mensagem.Recipients.EMailAddresses := '[EMAIL PROTECTED]';
mensagem.Subject := 'TESTE DE EMAIL SOFT ALCIONE...';
smtp.Send( mensagem );
showmessage('mensagem enviada');
Alcione Guimarães
e-mail: [EMAIL PROTECTED]
Cel: 11-9515-8707
SIP VOIP: 3301040
SKYPE: alcistemas
msn:[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Email UOL
pop.Username := 'alcione';
smtp.Username := 'alcione';
olha , o username aqui é na verdade seu email .
pelomenos eu uso aqui do bol e tem q ser assim :
smtp.Username := '[EMAIL PROTECTED]';
- Original Message -
From: Alcistemas Informática
To: delphi-br@yahoogrupos.com.br
Sent: Monday, December 10, 2007 12:20 PM
Subject: [delphi-br] Email UOL
Enviando email de [EMAIL PROTECTED] para [EMAIL PROTECTED]
nao consigo fazer isso, dá o seguinte erro: [EMAIL PROTECTED]: Recipient
address rejected: Access Danied
var
smtp : TIdSMTP ;
pop : TIDPop3;
Mensagem : TIdMessage ;
begin
smtp := TIdSMTP.Create( Nil );
Pop := TIdPOP3.Create(Nil);
Mensagem := TIdMessage.Create( Nil );
pop.Host := 'pop3.uol.com.br';
pop.Username := 'alcione';
pop.Password := '123' ;
pop.Port := 110;
pop.Connect() ;
//pop.Disconnect;
smtp.Host := 'smtp.uol.com.br';
smtp.Username := 'alcione';
smtp.Password := '123' ;
smtp.Port := 25;
smtp.AuthenticationType := atLogin;
smtp.Connect() ;
mensagem.From.Name := [EMAIL PROTECTED];
mensagem.Recipients.EMailAddresses := '[EMAIL PROTECTED]';
mensagem.Subject := 'TESTE DE EMAIL SOFT ALCIONE...';
smtp.Send( mensagem );
showmessage('mensagem enviada');
Alcione Guimarães
e-mail: [EMAIL PROTECTED]
Cel: 11-9515-8707
SIP VOIP: 3301040
SKYPE: alcistemas
msn: [EMAIL PROTECTED]
[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] Email UOL
Já fiz isso e o erro persiste,
valeu a força!
- Original Message -
From: Apoio
To: delphi-br@yahoogrupos.com.br
Sent: Monday, December 10, 2007 3:27 PM
Subject: Re: [delphi-br] Email UOL
pop.Username := 'alcione';
smtp.Username := 'alcione';
olha , o username aqui é na verdade seu email .
pelomenos eu uso aqui do bol e tem q ser assim :
smtp.Username := '[EMAIL PROTECTED]';
- Original Message -
From: Alcistemas Informática
To: delphi-br@yahoogrupos.com.br
Sent: Monday, December 10, 2007 12:20 PM
Subject: [delphi-br] Email UOL
Enviando email de [EMAIL PROTECTED] para [EMAIL PROTECTED]
nao consigo fazer isso, dá o seguinte erro: [EMAIL PROTECTED]: Recipient
address rejected: Access Danied
var
smtp : TIdSMTP ;
pop : TIDPop3;
Mensagem : TIdMessage ;
begin
smtp := TIdSMTP.Create( Nil );
Pop := TIdPOP3.Create(Nil);
Mensagem := TIdMessage.Create( Nil );
pop.Host := 'pop3.uol.com.br';
pop.Username := 'alcione';
pop.Password := '123' ;
pop.Port := 110;
pop.Connect() ;
//pop.Disconnect;
smtp.Host := 'smtp.uol.com.br';
smtp.Username := 'alcione';
smtp.Password := '123' ;
smtp.Port := 25;
smtp.AuthenticationType := atLogin;
smtp.Connect() ;
mensagem.From.Name := [EMAIL PROTECTED];
mensagem.Recipients.EMailAddresses := '[EMAIL PROTECTED]';
mensagem.Subject := 'TESTE DE EMAIL SOFT ALCIONE...';
smtp.Send( mensagem );
showmessage('mensagem enviada');
Alcione Guimarães
e-mail: [EMAIL PROTECTED]
Cel: 11-9515-8707
SIP VOIP: 3301040
SKYPE: alcistemas
msn: [EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Email para clientes
Robson, desculpe só responder hoje, é que aqui no RJ a chuva me deixou 2
dias parado. (que bom).
No exemplo que lhe passei, estava utilizando D4.
Na palheta Internet utilizo os componentes NMPOP3 e NMSMTP.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Robson
Enviada em: quinta-feira, 25 de outubro de 2007 11:59
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Email para clientes
Vinícius,
qual o componente q vc ta usando?
gostaria de incluir o envio de e-mail mas o naum achei qual o componente
para o WSMTP, qual o componemte e se naum for nativo do delphi qual o
fornecedor do mesmo.
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Vinicius da Silva Pinto [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 18:49:23
Assunto: RES: [delphi-br] Email para clientes
Boa Tarde !!!
Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um email
para todos os clientes da tabela c/ uma mensagem. Tem como ?
Uso o Delphi 5
Abraço
Doretto
Wsmtp.Connect;
if not Wsmtp.Connected then
raise Exception.Create( 'Erro de conexão');
with Wsmtp.PostMessage do begin
// E-mail do remetente
FromAddress := '[EMAIL PROTECTED] com.br';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy. Clear;
ArquivosComEmail. Open;
ArquivosComEmail. First;
ToAddress.Add('[EMAIL PROTECTED] gov.br');
ArquivosComEmail. Next;
while not ArquivosComEmail. Eof do begin
ToCarbonCopy. Add('email que esta no arquivo');
ArquivosComEmail. Next;
end;
Subject := 'escreva o que vc quiser: ' + WdataS;
// Corpo da mensagem
Body.Clear;
Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
// Se quiser, pode anexar arquivos...
Attachments. Add('c:\diretori o\arquivo. ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;
Re: RES: [delphi-br] Email para clientes
No Context Type coloque text/html ... ai o corpo da mensagem tem que
estar todo em html Ex:
html
head
/head
body
font color=blueh1 Ola /h1/font
/body
html
- Original Message -
From: Jorge Ericsson
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, October 25, 2007 4:11 PM
Subject: Re: RES: [delphi-br] Email para clientes
Minuto, se vc mandou essa resposta para mim eu lhe respondo que já faço uso
do Indy e envio e-mail por ele no meu sistema.
O problema é que eu quero colocar um código HTML e enviar só que chega como
texto.
Em 25/10/07, MiNuTo [EMAIL PROTECTED] escreveu:
c num tem indy ae ?
IDSMTP
site do componente:
http://www.indyproject.org/index.en.aspx
exemplo em delphi :
http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=340mode=threadorder=0thold=0
- Original Message -
From: Robson
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Thursday, October 25, 2007 11:58 AM
Subject: Res: RES: [delphi-br] Email para clientes
Vinícius,
qual o componente q vc ta usando?
gostaria de incluir o envio de e-mail mas o naum achei qual o componente
para o WSMTP, qual o componemte e se naum for nativo do delphi qual o
fornecedor do mesmo.
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Vinicius da Silva Pinto [EMAIL PROTECTED] vinicius%40cnen.gov.br
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 18:49:23
Assunto: RES: [delphi-br] Email para clientes
Boa Tarde !!!
Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um
email
para todos os clientes da tabela c/ uma mensagem. Tem como ?
Uso o Delphi 5
Abraço
Doretto
Wsmtp.Connect;
if not Wsmtp.Connected then
raise Exception.Create( 'Erro de conexão');
with Wsmtp.PostMessage do begin
// E-mail do remetente
FromAddress := '[EMAIL PROTECTED] com.br';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy. Clear;
ArquivosComEmail. Open;
ArquivosComEmail. First;
ToAddress.Add('[EMAIL PROTECTED] gov.br');
ArquivosComEmail. Next;
while not ArquivosComEmail. Eof do begin
ToCarbonCopy. Add('email que esta no arquivo');
ArquivosComEmail. Next;
end;
Subject := 'escreva o que vc quiser: ' + WdataS;
// Corpo da mensagem
Body.Clear;
Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
// Se quiser, pode anexar arquivos...
Attachments. Add('c:\diretori o\arquivo. ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;
Assim funciona comigo
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.10/1091 - Release Date: 24/10/2007
14:31
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Email para clientes
esse componente ja nao vem apartir do delphi 6 ou 7 . e ele é um componente
comercial ($pago$) ja o indy é free e tem uma comunidade forte e varias
atualizaçoes .
não estou desfazendo do seu componente amigo Vinicius so to avisando o pessoal
antes de sair ae atraz dele .
- Original Message -
From: Vinicius da Silva Pinto
To: delphi-br@yahoogrupos.com.br
Sent: Friday, October 26, 2007 8:57 AM
Subject: [delphi-br] Email para clientes
Robson, desculpe só responder hoje, é que aqui no RJ a chuva me deixou 2
dias parado. (que bom).
No exemplo que lhe passei, estava utilizando D4.
Na palheta Internet utilizo os componentes NMPOP3 e NMSMTP.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Robson
Enviada em: quinta-feira, 25 de outubro de 2007 11:59
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Email para clientes
Vinícius,
qual o componente q vc ta usando?
gostaria de incluir o envio de e-mail mas o naum achei qual o componente
para o WSMTP, qual o componemte e se naum for nativo do delphi qual o
fornecedor do mesmo.
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Vinicius da Silva Pinto [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 18:49:23
Assunto: RES: [delphi-br] Email para clientes
Boa Tarde !!!
Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um email
para todos os clientes da tabela c/ uma mensagem. Tem como ?
Uso o Delphi 5
Abraço
Doretto
Wsmtp.Connect;
if not Wsmtp.Connected then
raise Exception.Create( 'Erro de conexão');
with Wsmtp.PostMessage do begin
// E-mail do remetente
FromAddress := '[EMAIL PROTECTED] com.br';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy. Clear;
ArquivosComEmail. Open;
ArquivosComEmail. First;
ToAddress.Add('[EMAIL PROTECTED] gov.br');
ArquivosComEmail. Next;
while not ArquivosComEmail. Eof do begin
ToCarbonCopy. Add('email que esta no arquivo');
ArquivosComEmail. Next;
end;
Subject := 'escreva o que vc quiser: ' + WdataS;
// Corpo da mensagem
Body.Clear;
Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
// Se quiser, pode anexar arquivos...
Attachments. Add('c:\diretori o\arquivo. ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;
[As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Email para clientes
Vinícius,
qual o componente q vc ta usando?
gostaria de incluir o envio de e-mail mas o naum achei qual o componente para o
WSMTP, qual o componemte e se naum for nativo do delphi qual o fornecedor do
mesmo.
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Vinicius da Silva Pinto [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 18:49:23
Assunto: RES: [delphi-br] Email para clientes
Boa Tarde !!!
Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um email
para todos os clientes da tabela c/ uma mensagem. Tem como ?
Uso o Delphi 5
Abraço
Doretto
Wsmtp.Connect;
if not Wsmtp.Connected then
raise Exception.Create( 'Erro de conexão');
with Wsmtp.PostMessage do begin
// E-mail do remetente
FromAddress := '[EMAIL PROTECTED] com.br';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy. Clear;
ArquivosComEmail. Open;
ArquivosComEmail. First;
ToAddress.Add('[EMAIL PROTECTED] gov.br');
ArquivosComEmail. Next;
while not ArquivosComEmail. Eof do begin
ToCarbonCopy. Add('email que esta no arquivo');
ArquivosComEmail. Next;
end;
Subject := 'escreva o que vc quiser: ' + WdataS;
// Corpo da mensagem
Body.Clear;
Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
// Se quiser, pode anexar arquivos...
Attachments. Add('c:\diretori o\arquivo. ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;
Assim funciona comigo
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Email para clientes
Sobre o Envio de e-mail pessoal, alguém já consegui enviar e-mail em HTML
tipo newsletter ?
Valew,
Em 25/10/07, Robson [EMAIL PROTECTED] escreveu:
Vinícius,
qual o componente q vc ta usando?
gostaria de incluir o envio de e-mail mas o naum achei qual o componente
para o WSMTP, qual o componemte e se naum for nativo do delphi qual o
fornecedor do mesmo.
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Vinicius da Silva Pinto [EMAIL PROTECTED] vinicius%40cnen.gov.br
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 18:49:23
Assunto: RES: [delphi-br] Email para clientes
Boa Tarde !!!
Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um
email
para todos os clientes da tabela c/ uma mensagem. Tem como ?
Uso o Delphi 5
Abraço
Doretto
Wsmtp.Connect;
if not Wsmtp.Connected then
raise Exception.Create( 'Erro de conexão');
with Wsmtp.PostMessage do begin
// E-mail do remetente
FromAddress := '[EMAIL PROTECTED] com.br';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy. Clear;
ArquivosComEmail. Open;
ArquivosComEmail. First;
ToAddress.Add('[EMAIL PROTECTED] gov.br');
ArquivosComEmail. Next;
while not ArquivosComEmail. Eof do begin
ToCarbonCopy. Add('email que esta no arquivo');
ArquivosComEmail. Next;
end;
Subject := 'escreva o que vc quiser: ' + WdataS;
// Corpo da mensagem
Body.Clear;
Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
// Se quiser, pode anexar arquivos...
Attachments. Add('c:\diretori o\arquivo. ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;
Assim funciona comigo
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Email para clientes
c num tem indy ae ?
IDSMTP
site do componente:
http://www.indyproject.org/index.en.aspx
exemplo em delphi :
http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=340mode=threadorder=0thold=0
- Original Message -
From: Robson
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, October 25, 2007 11:58 AM
Subject: Res: RES: [delphi-br] Email para clientes
Vinícius,
qual o componente q vc ta usando?
gostaria de incluir o envio de e-mail mas o naum achei qual o componente para
o WSMTP, qual o componemte e se naum for nativo do delphi qual o fornecedor do
mesmo.
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Vinicius da Silva Pinto [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 18:49:23
Assunto: RES: [delphi-br] Email para clientes
Boa Tarde !!!
Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um email
para todos os clientes da tabela c/ uma mensagem. Tem como ?
Uso o Delphi 5
Abraço
Doretto
Wsmtp.Connect;
if not Wsmtp.Connected then
raise Exception.Create( 'Erro de conexão');
with Wsmtp.PostMessage do begin
// E-mail do remetente
FromAddress := '[EMAIL PROTECTED] com.br';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy. Clear;
ArquivosComEmail. Open;
ArquivosComEmail. First;
ToAddress.Add('[EMAIL PROTECTED] gov.br');
ArquivosComEmail. Next;
while not ArquivosComEmail. Eof do begin
ToCarbonCopy. Add('email que esta no arquivo');
ArquivosComEmail. Next;
end;
Subject := 'escreva o que vc quiser: ' + WdataS;
// Corpo da mensagem
Body.Clear;
Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
// Se quiser, pode anexar arquivos...
Attachments. Add('c:\diretori o\arquivo. ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;
Assim funciona comigo
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Email para clientes
Minuto, se vc mandou essa resposta para mim eu lhe respondo que já faço uso
do Indy e envio e-mail por ele no meu sistema.
O problema é que eu quero colocar um código HTML e enviar só que chega como
texto.
Em 25/10/07, MiNuTo [EMAIL PROTECTED] escreveu:
c num tem indy ae ?
IDSMTP
site do componente:
http://www.indyproject.org/index.en.aspx
exemplo em delphi :
http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=340mode=threadorder=0thold=0
- Original Message -
From: Robson
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Thursday, October 25, 2007 11:58 AM
Subject: Res: RES: [delphi-br] Email para clientes
Vinícius,
qual o componente q vc ta usando?
gostaria de incluir o envio de e-mail mas o naum achei qual o componente
para o WSMTP, qual o componemte e se naum for nativo do delphi qual o
fornecedor do mesmo.
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Vinicius da Silva Pinto [EMAIL PROTECTED] vinicius%40cnen.gov.br
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 18:49:23
Assunto: RES: [delphi-br] Email para clientes
Boa Tarde !!!
Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um
email
para todos os clientes da tabela c/ uma mensagem. Tem como ?
Uso o Delphi 5
Abraço
Doretto
Wsmtp.Connect;
if not Wsmtp.Connected then
raise Exception.Create( 'Erro de conexão');
with Wsmtp.PostMessage do begin
// E-mail do remetente
FromAddress := '[EMAIL PROTECTED] com.br';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy. Clear;
ArquivosComEmail. Open;
ArquivosComEmail. First;
ToAddress.Add('[EMAIL PROTECTED] gov.br');
ArquivosComEmail. Next;
while not ArquivosComEmail. Eof do begin
ToCarbonCopy. Add('email que esta no arquivo');
ArquivosComEmail. Next;
end;
Subject := 'escreva o que vc quiser: ' + WdataS;
// Corpo da mensagem
Body.Clear;
Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
// Se quiser, pode anexar arquivos...
Attachments. Add('c:\diretori o\arquivo. ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;
Assim funciona comigo
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Email para clientes
mesmo formatando assim nao chega HTML?
usando :ContentType := 'text/html';
with TIdText.Create(IdMessage1.MessageParts) do
begin
Body.Text := 'htmlbody'+'p align=Left'+
'font color=Blue size=12ptbI'+Memo1.Text+
'/b/i/font/p/body/html';
ContentType := 'text/html';
end;
olha aqui nesse topico o cara enviando email com HTML :
http://forum.devmedia.com.br/viewtopic.php?p=274308sid=8ddc64a7580e68ac6105dee271e69cf0
- Original Message -
From: Jorge Ericsson
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, October 25, 2007 4:11 PM
Subject: Re: RES: [delphi-br] Email para clientes
Minuto, se vc mandou essa resposta para mim eu lhe respondo que já faço uso
do Indy e envio e-mail por ele no meu sistema.
O problema é que eu quero colocar um código HTML e enviar só que chega como
texto.
Em 25/10/07, MiNuTo [EMAIL PROTECTED] escreveu:
c num tem indy ae ?
IDSMTP
site do componente:
http://www.indyproject.org/index.en.aspx
exemplo em delphi :
http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=340mode=threadorder=0thold=0
- Original Message -
From: Robson
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Thursday, October 25, 2007 11:58 AM
Subject: Res: RES: [delphi-br] Email para clientes
Vinícius,
qual o componente q vc ta usando?
gostaria de incluir o envio de e-mail mas o naum achei qual o componente
para o WSMTP, qual o componemte e se naum for nativo do delphi qual o
fornecedor do mesmo.
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Vinicius da Silva Pinto [EMAIL PROTECTED] vinicius%40cnen.gov.br
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 18:49:23
Assunto: RES: [delphi-br] Email para clientes
Boa Tarde !!!
Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um
email
para todos os clientes da tabela c/ uma mensagem. Tem como ?
Uso o Delphi 5
Abraço
Doretto
Wsmtp.Connect;
if not Wsmtp.Connected then
raise Exception.Create( 'Erro de conexão');
with Wsmtp.PostMessage do begin
// E-mail do remetente
FromAddress := '[EMAIL PROTECTED] com.br';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy. Clear;
ArquivosComEmail. Open;
ArquivosComEmail. First;
ToAddress.Add('[EMAIL PROTECTED] gov.br');
ArquivosComEmail. Next;
while not ArquivosComEmail. Eof do begin
ToCarbonCopy. Add('email que esta no arquivo');
ArquivosComEmail. Next;
end;
Subject := 'escreva o que vc quiser: ' + WdataS;
// Corpo da mensagem
Body.Clear;
Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
// Se quiser, pode anexar arquivos...
Attachments. Add('c:\diretori o\arquivo. ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;
Assim funciona comigo
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Email para clientes
Não havia tentado dessa forma.
Vou fazer umas mudanças e testar.
Valew
Em 25/10/07, MiNuTo [EMAIL PROTECTED] escreveu:
mesmo formatando assim nao chega HTML?
usando : ContentType := 'text/html';
with TIdText.Create(IdMessage1.MessageParts) do
begin
Body.Text := 'htmlbody'+'p align=Left'+
'font color=Blue size=12ptbI'+Memo1.Text+
'/b/i/font/p/body/html';
ContentType := 'text/html';
end;
olha aqui nesse topico o cara enviando email com HTML :
http://forum.devmedia.com.br/viewtopic.php?p=274308sid=8ddc64a7580e68ac6105dee271e69cf0
- Original Message -
From: Jorge Ericsson
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Thursday, October 25, 2007 4:11 PM
Subject: Re: RES: [delphi-br] Email para clientes
Minuto, se vc mandou essa resposta para mim eu lhe respondo que já faço
uso
do Indy e envio e-mail por ele no meu sistema.
O problema é que eu quero colocar um código HTML e enviar só que chega
como
texto.
Em 25/10/07, MiNuTo [EMAIL PROTECTED] apoio%40apoioinfor.com.br
escreveu:
c num tem indy ae ?
IDSMTP
site do componente:
http://www.indyproject.org/index.en.aspx
exemplo em delphi :
http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=340mode=threadorder=0thold=0
- Original Message -
From: Robson
To: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br
Sent: Thursday, October 25, 2007 11:58 AM
Subject: Res: RES: [delphi-br] Email para clientes
Vinícius,
qual o componente q vc ta usando?
gostaria de incluir o envio de e-mail mas o naum achei qual o componente
para o WSMTP, qual o componemte e se naum for nativo do delphi qual o
fornecedor do mesmo.
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Vinicius da Silva Pinto [EMAIL
PROTECTED]vinicius%40cnen.gov.brvinicius%40cnen.gov.br
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 18:49:23
Assunto: RES: [delphi-br] Email para clientes
Boa Tarde !!!
Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um
email
para todos os clientes da tabela c/ uma mensagem. Tem como ?
Uso o Delphi 5
Abraço
Doretto
Wsmtp.Connect;
if not Wsmtp.Connected then
raise Exception.Create( 'Erro de conexão');
with Wsmtp.PostMessage do begin
// E-mail do remetente
FromAddress := '[EMAIL PROTECTED] com.br';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy. Clear;
ArquivosComEmail. Open;
ArquivosComEmail. First;
ToAddress.Add('[EMAIL PROTECTED] gov.br');
ArquivosComEmail. Next;
while not ArquivosComEmail. Eof do begin
ToCarbonCopy. Add('email que esta no arquivo');
ArquivosComEmail. Next;
end;
Subject := 'escreva o que vc quiser: ' + WdataS;
// Corpo da mensagem
Body.Clear;
Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
// Se quiser, pode anexar arquivos...
Attachments. Add('c:\diretori o\arquivo. ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;
Assim funciona comigo
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Email para clientes
Boa Tarde !!! Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um email para todos os clientes da tabela c/ uma mensagem. Tem como ? Uso o Delphi 5 Abraço Doretto [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Email para clientes
Boa Tarde !!!
Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um email
para todos os clientes da tabela c/ uma mensagem. Tem como ?
Uso o Delphi 5
Abraço
Doretto
Wsmtp.Connect;
if not Wsmtp.Connected then
raise Exception.Create('Erro de conexão');
with Wsmtp.PostMessage do begin
// E-mail do remetente
FromAddress := '[EMAIL PROTECTED]';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy.Clear;
ArquivosComEmail.Open;
ArquivosComEmail.First;
ToAddress.Add('[EMAIL PROTECTED]');
ArquivosComEmail.Next;
while not ArquivosComEmail.Eof do begin
ToCarbonCopy.Add('email que esta no arquivo');
ArquivosComEmail.Next;
end;
Subject := 'escreva o que vc quiser: ' + WdataS;
// Corpo da mensagem
Body.Clear;
Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
// Se quiser, pode anexar arquivos...
Attachments.Add('c:\diretorio\arquivo.ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;
Assim funciona comigo
RES: [delphi-br] Email para clientes
Aproveito o gancho da questão para perguntar:
Devo gravar o SMTP do servidor dentro de uma tabela de parâmetros ?
Ou o próprio wsmtp localiza-o automaticamente ?
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Vinicius da Silva Pinto
Enviada em: terça-feira, 23 de outubro de 2007 18:49
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Email para clientes
Boa Tarde !!!
Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um email
para todos os clientes da tabela c/ uma mensagem. Tem como ?
Uso o Delphi 5
Abraço
Doretto
Wsmtp.Connect;
if not Wsmtp.Connected then
raise Exception.Create('Erro de conexão');
with Wsmtp.PostMessage do begin
// E-mail do remetente
FromAddress := '[EMAIL PROTECTED] mailto:%27xx%40.com.br com.br';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy.Clear;
ArquivosComEmail.Open;
ArquivosComEmail.First;
ToAddress.Add('[EMAIL PROTECTED] mailto:%27vinicius%40cnen.gov.br gov.br');
ArquivosComEmail.Next;
while not ArquivosComEmail.Eof do begin
ToCarbonCopy.Add('email que esta no arquivo');
ArquivosComEmail.Next;
end;
Subject := 'escreva o que vc quiser: ' + WdataS;
// Corpo da mensagem
Body.Clear;
Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
txt');
// Se quiser, pode anexar arquivos...
Attachments.Add('c:\diretorio\arquivo.ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;
Assim funciona comigo
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Email para celular com o Indy
Pessoal, Estou desenvolvendo uma aplicação em Delphi 2006 que deve enviar avisos via email e para isso uso o Indy 10.1.5. Tudo funciona bem se o email do destinatário é um email comum, como gmail, yahoo ou UOL por exemplo, porém, o email não é enviado caso o destinatário seja um celular. Não recebo nenhuma mensagem de erro, ele finge que enviou normalmente e no email que uso como remetente não recebo nenhuma mensagem de erro, ou seja, o email não está voltando. O celular usado para testes recebe emails no formato [EMAIL PROTECTED], por exemplo, e se eu envio um email para este endereço usando o Eudora ou o Outlook e tendo como remetente exatamente a mesma conta de SMTP usada na aplicação, o email vai para o celular sem problemas, em forma de SMS. Será que alguém já passou por isso e tem a solução? Desde já agradeço. Um abraço, Eduardo.
RES: [delphi-br] Email para celular com o Indy
Durante uns testes que fiz hoje tive de incluir o DDI tente assim [EMAIL PROTECTED] De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Enviada em: sexta-feira, 21 de setembro de 2007 11:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Email para celular com o Indy Pessoal, Estou desenvolvendo uma aplicação em Delphi 2006 que deve enviar avisos via email e para isso uso o Indy 10.1.5. Tudo funciona bem se o email do destinatário é um email comum, como gmail, yahoo ou UOL por exemplo, porém, o email não é enviado caso o destinatário seja um celular. Não recebo nenhuma mensagem de erro, ele finge que enviou normalmente e no email que uso como remetente não recebo nenhuma mensagem de erro, ou seja, o email não está voltando. O celular usado para testes recebe emails no formato [EMAIL PROTECTED] mailto:211234%40clarotorpedo.com.br , por exemplo, e se eu envio um email para este endereço usando o Eudora ou o Outlook e tendo como remetente exatamente a mesma conta de SMTP usada na aplicação, o email vai para o celular sem problemas, em forma de SMS. Será que alguém já passou por isso e tem a solução? Desde já agradeço. Um abraço, Eduardo. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Email para celular com o Indy
Continua sem funcionar... usando o DDI, via outlook ou eudora funciona numa boa, mas pela aplicação teima em funcionar apenas para emails tipo gmail, uol ou yahoo. Nada de celular :( --- Em delphi-br@yahoogrupos.com.br, Elcio Domingos Ramos [EMAIL PROTECTED] escreveu Durante uns testes que fiz hoje tive de incluir o DDI tente assim [EMAIL PROTECTED] De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Enviada em: sexta-feira, 21 de setembro de 2007 11:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Email para celular com o Indy Pessoal, Estou desenvolvendo uma aplicação em Delphi 2006 que deve enviar avisos via email e para isso uso o Indy 10.1.5. Tudo funciona bem se o email do destinatário é um email comum, como gmail, yahoo ou UOL por exemplo, porém, o email não é enviado caso o destinatário seja um celular. Não recebo nenhuma mensagem de erro, ele finge que enviou normalmente e no email que uso como remetente não recebo nenhuma mensagem de erro, ou seja, o email não está voltando. O celular usado para testes recebe emails no formato [EMAIL PROTECTED] mailto:211234%40clarotorpedo.com.br , por exemplo, e se eu envio um email para este endereço usando o Eudora ou o Outlook e tendo como remetente exatamente a mesma conta de SMTP usada na aplicação, o email vai para o celular sem problemas, em forma de SMS. Será que alguém já passou por isso e tem a solução? Desde já agradeço. Um abraço, Eduardo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Email Delphi
Olá amigo. Eu pesquisei o arquivo que você mencionou e encontrei o seguinte arquivo RpRenderPDF.hpp. Este arquivo possui o seguinte comando: extern PACKAGE AnsiString PDFVersion; Essa linha é a única do arquivo que cita PDFVersion. Pra ser sincero, não entendi o que faz este comando, você tem idéia? Obrigado. André de Oliveira. - Original Message - From: Felippe Nagato To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 05, 2007 12:58 AM Subject: Re: [delphi-br] Email Delphi Não sou entendido no assunto, isso é apenas o que eu acho. Pode nem ser verdade. Enfim, de repente tenha haver com a versão do arquivo PDF gerado pelo RvRenderPDF. No Rave Reports 5.1, dentro da unit RpRenderPDF, tem lá uma constante chamada PDFVersion: const PDFVersion: string = '%PDF-1.3'; De repente, no Delphi 2006, esse número 1.3 seja algo como 1.7, que TALVEZ possa impedir de versões mais antigas do Acrobat Reader conseguir abrir. Imagino que a versão 1.3 seja do Acrobat 4.x adiante. Referência: http://www.adobe.com/devnet/pdf/pdf_reference.html Abraço. [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] Email Delphi
Oi Esse arquivo .hpp é de C++. Não entendo direito disso não. O que sei é que ele serve como interface para que outra unit seja capaz de acessá-la. Teoricamente, o código que você mostrou, torna disponível esse PDFVersion num escopo público. E como ela é uma classe AnsiString, deve ter que possuir aquele nome PACKAGE após o extern. Enfim, o que leva a crer que alguém usa esse PDFVersion. Você já olhou se esse componente RvRenderPDF não tem nenhuma propriedade pra definir a versão do PDF? Algo como RvRenderPDFRelatorio.PDFVersion ou similar? E será mesmo que é por causa disso que o PDF não abre em versões mais antigas do Acrobat de seus clientes? Infelizmente não obtemos outras respostas do grupo ainda que pudesse sugerir algo diferente. Apenas dei uma idéia que parece fazer sentido. Também não sei mais o que poderia ser. :( Abraços, Felippe [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Email Delphi
Olá Felipe. Eu acho que sim, porque os problemas são solucionados ao atualizar a versão do Acrobat Reader. Me desculpe o encomodo, é que faltam artigos na Internet sobre isso, então estou dependendo da experiência de outros profissionais para tentar resolver este problema. Só mais uma coisa a respeito do assunto. Existe uma propriedade Version no componente que possui o valor 6.5.0 (VCL10), mas acho que essa propriedade é relativo ao Rave, não é? Outra propriedade que despertou curiosidade foi a propriedade FontEncoding = feWinAnsiEncoding, sendo que uma dos valores possíveis é fePDFDocEncoding. Será que tem alguma coisa a ver? Mais uma vez obrigado pela ajuda. André de Oliveira. - Original Message - From: Felippe Nagato To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 05, 2007 3:23 PM Subject: Re: [delphi-br] Email Delphi Oi Esse arquivo .hpp é de C++. Não entendo direito disso não. O que sei é que ele serve como interface para que outra unit seja capaz de acessá-la. Teoricamente, o código que você mostrou, torna disponível esse PDFVersion num escopo público. E como ela é uma classe AnsiString, deve ter que possuir aquele nome PACKAGE após o extern. Enfim, o que leva a crer que alguém usa esse PDFVersion. Você já olhou se esse componente RvRenderPDF não tem nenhuma propriedade pra definir a versão do PDF? Algo como RvRenderPDFRelatorio.PDFVersion ou similar? E será mesmo que é por causa disso que o PDF não abre em versões mais antigas do Acrobat de seus clientes? Infelizmente não obtemos outras respostas do grupo ainda que pudesse sugerir algo diferente. Apenas dei uma idéia que parece fazer sentido. Também não sei mais o que poderia ser. :( Abraços, Felippe [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] Email Delphi
Olá, É, eu olhei na internet e realmente tá difícil achar algo sobre isso. Essa propriedade Version é do próprio componente. Quando ao FontEncoding, eu diria que não. Eu fico imaginando aqui: o Acrobat Reader é uma ferramenta grátis. De repente, os desenvolvedores desse componente sempre tentam se manter atualizados com o último lançamento do Acrobat e talvez nem permitam a gente mexer na versão do arquivo. Isso é ruim. Agora, pensando por uma outra pespectiva: Repare que as versões dos PDFs são 1.3, 1.4, ..., 1.7. Normalmente, quando a versão maior não muda (no caso o 1.), significa que programas mais antigos são capazes ainda de ler o arquivo. Apenas haverão alguns recursos disponíveis no arquivo que o software será incapaz de oferecer ou exibir. No entanto, se seus arquivos PDFs estão criptografados, com senha ou proteções talvez, realmente a versão mais antiga pode ser incapaz de ler o arquivo por inteiro. Pois novos algorítimos estarão sendo usados e o Acrobat incapaz de decriptografar. Além disso, existe um recurso que reduz o tamanho do arquivo PDF e que também usam métodos de compressão de dados que interfere na versão do Acrobat a ser usado depois. Por fim, eu acredito que para a máxima compatibilidade, tem que desativar qualquer coisa ligada a criptografia, senha, redução de arquivo, etc. Assim, deve funcionar. Abraço, Felippe [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Email Delphi
Ok Felippe. Muito obrigado pela ajuda. Estudarei estas questões que você colocou, e assim que resolver o problema, enviarei outro e-mail para a lista informando o que era. André de Oliveira - Original Message - From: Felippe Nagato To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 05, 2007 4:47 PM Subject: Re: [delphi-br] Email Delphi Olá, É, eu olhei na internet e realmente tá difícil achar algo sobre isso. Essa propriedade Version é do próprio componente. Quando ao FontEncoding, eu diria que não. Eu fico imaginando aqui: o Acrobat Reader é uma ferramenta grátis. De repente, os desenvolvedores desse componente sempre tentam se manter atualizados com o último lançamento do Acrobat e talvez nem permitam a gente mexer na versão do arquivo. Isso é ruim. Agora, pensando por uma outra pespectiva: Repare que as versões dos PDFs são 1.3, 1.4, ..., 1.7. Normalmente, quando a versão maior não muda (no caso o 1.), significa que programas mais antigos são capazes ainda de ler o arquivo. Apenas haverão alguns recursos disponíveis no arquivo que o software será incapaz de oferecer ou exibir. No entanto, se seus arquivos PDFs estão criptografados, com senha ou proteções talvez, realmente a versão mais antiga pode ser incapaz de ler o arquivo por inteiro. Pois novos algorítimos estarão sendo usados e o Acrobat incapaz de decriptografar. Além disso, existe um recurso que reduz o tamanho do arquivo PDF e que também usam métodos de compressão de dados que interfere na versão do Acrobat a ser usado depois. Por fim, eu acredito que para a máxima compatibilidade, tem que desativar qualquer coisa ligada a criptografia, senha, redução de arquivo, etc. Assim, deve funcionar. Abraço, Felippe [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Email Delphi
Pessoal estou com um problema e ficarei agradecido se alguém puder me ajudar. - Trabalho com uma aplicação feita em Delphi 3, que precisa enviar um e-mail, com um arquivo PDF em anexo. - Para montar o e-mail, estou utilizando MAPI - MapiSendMail. - Para gerar o anexo em PDF, eu gero um arquivo RPT em uma pasta que guarda arquivos temporários, presente em todos os micros dos nossos clientes. Após gerar o arquivo .RPT, a aplicação chama um outro programa feito em Delphi 2006, que lê este arquivo e gera o PDF com o componente RvRenderPDF, através do comando RvRenderPDFRelatorio.PrintRender. - Algumas pessoas que recebem os e-mails dos nossos clientes, gerados apartir do nosso sistema, não conseguem abrir o arquivo em anexo. Este erro é resolvido quando os receptores dos e-mails atualizam a versão do Acrobat Reader para a versão 7 em diante. - Porém alguns receptores se negam a atualizar a versão do Acrobat Reader por política interna. - Finalmente, Vocês já passaram por isto? - Este problema ocorre, por falta de alguma Dll, ou coisa parecida? Desde já agradeço e aguardo resposta. André de Oliveira. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Email Delphi
Não sou entendido no assunto, isso é apenas o que eu acho. Pode nem ser verdade. Enfim, de repente tenha haver com a versão do arquivo PDF gerado pelo RvRenderPDF. No Rave Reports 5.1, dentro da unit RpRenderPDF, tem lá uma constante chamada PDFVersion: const PDFVersion: string = '%PDF-1.3'; De repente, no Delphi 2006, esse número 1.3 seja algo como 1.7, que TALVEZ possa impedir de versões mais antigas do Acrobat Reader conseguir abrir. Imagino que a versão 1.3 seja do Acrobat 4.x adiante. Referência: http://www.adobe.com/devnet/pdf/pdf_reference.html Abraço. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Email
Pessoal muita gente ja trabalhou com o componente NMSMTP (envia e recebe email), dentre tanto estou enfretando algumas dificuldades quando os usuários anexam arquivos estou usando o seguinte comando: PostMessage.Attachments.Clear; PostMessage.Attachments.Add(Caminho do arquivo); Bom com este comando ele anexa sem problemas e envia o arquivo também. Porém quando os usuários recem o arquivo eles nao conseguem abri-lo por problemas de codificação. Alguém pode me ajudar neste problema? Att -- 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] Email
Eu já utilizei desta maneira e funcionava legal... Procedure TForm1.EnviarEMail(const MailTo: String); Var MailObj: TNMSmtp; begin MailObj := TNMSMTP.Create( self ); Try // Seu Servidor SMTP MailObj.Host := '10.0.1.1'; With MailObj.PostMessage Do Begin FromAddress := '[EMAIL PROTECTED]'; FromName:= 'Info'; Subject := 'Delphi Teste'; ToAddress.Add( MailTo ); Attachments.Add( 'C:\Deptsetr.lst' ); // Arquivo Atachado Attachments.Add( 'C:\Deptsetr2.lst' ); // Segundo Arquivo Atachado Body.Add( 'Texto do E-Mail gerado pelo Delphi...' ); Body.Add( 'Segunda Linha do e-mail. Fim.' ); End; MailObj.Connect; MailObj.SendMail; MailObj.Disconnect; Finally MailObj.Free; End; end; -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de dionatanhenrique Enviada em: quarta-feira, 1 de novembro de 2006 09:10 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Email Pessoal muita gente ja trabalhou com o componente NMSMTP (envia e recebe email), dentre tanto estou enfretando algumas dificuldades quando os usuários anexam arquivos estou usando o seguinte comando: PostMessage.Attachments.Clear; PostMessage.Attachments.Add(Caminho do arquivo); Bom com este comando ele anexa sem problemas e envia o arquivo também. Porém quando os usuários recem o arquivo eles nao conseguem abri-lo por problemas de codificação. Alguém pode me ajudar neste problema? Att -- 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] [EMAIL PROTECTED]
Ola, gostaria de ser excluido da lista de delphi. Obrigado Evandro sistemas e web www.evandropf.ubbi.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] 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] EMAIL COM ANEXO (Ultima vez)
Como eu posso mandar email com ANEXO no DELPHI 2005 usando INDY 10. Observação: Algumas Funções do indy 9 são diferentes do indy 10, aqui esta minha dificuldade. Eu consegui mandar aquivos anexo só que o anexo chega em modo texto( Exemplo: This is a multi-part message in MIME format -- DqBGwUtIiYFDepKCf=_kjY1lKRxJm7jSL6 Content-Type: text/plain Content- Transfer-Encoding: 7bit fdafaefc 2r 2rcrfe wef eger qg -- DqBGwUtIiYFDepKCf=_kjY1lKRxJm7jSL6 Content-Type: application/octet- stream; name=SiteSql.txt Content-Transfer-Encoding: base64 Content- Disposition: attachment; filename=SiteSql.txt aHR0cDovL3d3dy5saWIuc2V2ZW4uY29tLmJyL2FtcGxpYXIuYXNwP2NvZGFydGlnbz04O DU= --DqBGwUtIiYFDepKCf=_kjY1lKRxJm7jSL6-- ) Observação: Já Olhei o Site do Clube Delphi entre outros mas todos sao para o Indy 9 e delphi 7. Desde Já Grato Ps: Repeti a mensagem pois ainda não foi encontrada a solução e para deixar bem claro. -- 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] EMAIL COM ANEXO (Ultima vez)
Cara seguinte, o INDY utiliza MIME para codificar, por sua vez nem todos os clientes de emails abrem emails MIME, um grande exemplo é o Microsoft Outlook. No windows existe uma API chamada MAPI que tem fins de criar um email com o cliente de email padrão instalado (incredimail, outlook express, microsoft outlook, eudora, thunderbird..). Mapi tem uma limitação que é o seguinte: Não é possível criar emails com o corpo da mensagem em HTML e anexos ou vc cria um email com corpo HTML e sem anexos ou cria um email SEM FORMATAÇÃO com X anexos. Bem, existe um site na net que ensina tudo sobre MAPI, pois vc pode fazer tudo via MAPI (acessar os contatos, enviar emails, logar e listar os emails, etc... Bem, vamos ao que interessa, entre no site WWW.TORRY.NET no lado direito existe um campo para pesquisa, nele digite MAPICONTROL e tecle enter. a consulta irá retornar um componente chamato TMapiControl, free e opensource, baixe ele, analize e altere algo se precisar, mais esse cara faz o que vc quer, CRIA EMAILS COM O CLIENTE DE EMAILS PADRÃO DO SEU WINDOWS. Ps.: para criar um email com corpo HTML, basta deixar o corpo (body) sem texto, e anexar um arquivo HTML ao email. Assim quando o MAPI criar o email, se existir somente 1 anexo e ele for um HTML, esse anexo se torna o corpo da mesagem. Espero ter ajudado, outro jeito, lhe garanto que GENERICAMENTE, não tem como! Ou vc usa MAPI ou estuda o maior número de clientes de emails para fazer a particularidade de cada um. Eu mesmo pedir 2 semanas cassando na internet, foruns da borland entre outros, e foi o máximo que consegui fazer... Att. Roberto - Original Message - From: Gabriel Herdt To: delphi-br@yahoogrupos.com.br Sent: Monday, August 14, 2006 1:45 PM Subject: [delphi-br] EMAIL COM ANEXO (Ultima vez) Como eu posso mandar email com ANEXO no DELPHI 2005 usando INDY 10. Observação: Algumas Funções do indy 9 são diferentes do indy 10, aqui esta minha dificuldade. Eu consegui mandar aquivos anexo só que o anexo chega em modo texto( Exemplo: This is a multi-part message in MIME format -- DqBGwUtIiYFDepKCf=_kjY1lKRxJm7jSL6 Content-Type: text/plain Content- Transfer-Encoding: 7bit fdafaefc 2r 2rcrfe wef eger qg -- DqBGwUtIiYFDepKCf=_kjY1lKRxJm7jSL6 Content-Type: application/octet- stream; name=SiteSql.txt Content-Transfer-Encoding: base64 Content- Disposition: attachment; filename=SiteSql.txt aHR0cDovL3d3dy5saWIuc2V2ZW4uY29tLmJyL2FtcGxpYXIuYXNwP2NvZGFydGlnbz04O DU= --DqBGwUtIiYFDepKCf=_kjY1lKRxJm7jSL6-- ) Observação: Já Olhei o Site do Clube Delphi entre outros mas todos sao para o Indy 9 e delphi 7. Desde Já Grato Ps: Repeti a mensagem pois ainda não foi encontrada a solução e para deixar bem claro. [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] Email com formato HTML
Gente, como eu faco pra enviar um email pelo delphi com formato HTML? Márcio Cristiano Tenreiro Programador Pleno Universidade de Marília/SP (14) 2105-4129 [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] Email Com formato html
Galera, preciso saber como faco pra enviar um email pelo Delphi Com formato HTML. Nao serve enviar anexo. O que eu quero é mandar aquelas mensagens Com uma imagem de fundo e coisa assim; Abracos Marcio Programador Pleno Unimar - Universidade de Marilia [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] Email pelo indy
Pessoal, estou com um pequeno problema, tem e-mails que são enviados pelo indy que estão retornando como spam, como solucionar isto -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.1.385 / Virus Database: 268.5.0/325 - Release Date: 26/4/2006 -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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 Termos do Serviço do Yahoo!.
[delphi-br] Email html pelo indy
Pessoal, estou querendo enviar email com html pelo indy, como posso fazer? Alguem tem algum exemplo pronto? Grato -- 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 Termos do Serviço do Yahoo!.
[delphi-br] email com indy
to com uma aplicacao que vi no site (delphi.eti.br) seria a seguinte:
Veremos neste artigo como é fácil enviar email utilizando o componente
Indy presente no delphi 7.
Apresentaremos abaixo uma simples aplicação, basta você ter um pouco de
criatividade e dar asas a sua imaginação...
No Delphi crie um novo projeto.
Salve a *Unit* com o nome UEmail e o projeto como Email.
Utilize os seguintes componentes:
3 Labels:
Altere *as* propriedades Caption respectivamente para: (Para, Assunto,
Mensagem)
2 Edits
Altere *as* propriedades *Name* respectivamente para:(edtPara, edtAssunto);
Apague o conteúdo das propriedades Text;
1 ListBox
Altere a propriedade *Name* para:(lbxAnexos)
1 Componente Memo
Altere a propriedade *Name* para:(mmMensagem);
Apague o conteúdo da propriedade lines.
3 Componentes Bitbtn
Altere *as* propriedades Caption respectivamente para:(Anexar,Enviar,Fechar)
Altere *as* propriedades *Name* respectivamente
para:(btAnexar,btEnviar,btFechar)
Agora insira um componente OpenDialog da palheta Dialogs
Altere a propriedade *Name* para:(odAnexos)
Insira um componente IdMessage, da palhete Indy Misc
Configure a propriedades From|Address com o email *do* remetente e From|Name
com o
nome *do* remetente
Altere a propriedade *Name* para:(IdMessage)
Insira um componente IdSMTP da palheta IndyClients
Configure *as* propriedades Host com o endereço IP ou o DNS *do* servidor de
email,
por exemplo: smtp.uol.com.br
Configure *as* propriedades Password e Username, para se autenticar no
servidor,
caso seja necessário.
Altere a propriedade *name* para:(IdSMTP)
Agora vamos aos códigos:
No evento onclick *do* botão btAnexos:
*procedure* TForm1.btAnexarClick(Sender: Tobject);
*begin*
*if* odAnexos.Execute *then*
lbxAnexos.Items.Add(odAnexos.FileName);
*end*;
No evento onclick *do* botão btFechar:
*procedure* TForm1.btFecharClick(Sender: Tobject);
*begin*
Application.Terminate;
*end*;
No evento onclick *do* botão btEnviar:
*procedure* TForm1.btEnviarClick(Sender: TObject);
*var* Anexo : Integer;
*begin*
IdMessage.Recipients.EMailAddresses := edtPara.Text;
IdMessage.Subject := edtAssunto.Text;
IdMessage.Body := mmMensagem.Lines;
*//Manipulando os Anexos*
*for* Anexo := 0 *to* lbxAnexos.Items.Count-1 *do*
TIdAttachment.Create(idmessage.MessageParts, TFileName(
lbxAnexos.Items.Strings[Anexo]));
IdSMTP.Connect;
*try*
IdSMTP.Send(IdMessage);
*finally*
IdSMTP.Disconnect;
*end*;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
*end*;
quanto ele tenta se conectar (IdSMTP.Connect), rola um erro Socket error #
10060 connection timed out, tento enviar do servidor do gmail (
smtp.gmail.com), gostaria de saber que bronca e essa?? e tambem gostaria de
saber se essa aplicacao rodaira no delphi 2006
desde de ja agradeco .
--
Att.
Gustavo Sequeira
Respondeu-lhe Yaohushua: Eu sou o caminho, e a verdade, e a vida; ninguém
vem ao Pai, senão por mim.
[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] email HTML pelo Indy
Olá, alguem sabe como faço para enviar um email HTML pelo Indy??? Email tipo texto consigo normalmente. V4leu! [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] Email Indy D2005
Pessoal.alguem sabe como anexar arquivos usando os compoenntes Indy do D2005 para enviar via emails... 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] email com excel
Prezados, Estou utilizando o componente aafquickmail para enviar email pelo meu aplicativo. Funciona bem, mas estou precisando abrir um excel formatado, copiar a planilha inteira e colocar esta imagem no corpo do email e não em anexo, mas estou conseguindo realizar. Por favor , alguem tem alguma dica a me dar ?? Desde já agradeço Joel. Joel da Silva Lino - Analista de Sistemas Tel : (21)3804-6045 ( comercial ) [EMAIL PROTECTED] 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] Email em PDF
Olá galera; Meu sistema já manda emails usando o delphi 7, e agora um cliente pediu pro conteudo do email (ou anexo) ser enviado em PDF; assim o destinatário do email não pode alterar o conteudo; Alguma dica sobre como gerar PDF em Delphi 7 ? Abraços; Vinicius Barreira São Bernardo do Campo - SP Delphi 7 + Firebird + IBX Software para Hoteis Skipe: vinibarr Icq 74495946 -- 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] Email em PDF
Use o ReportBuilder + ExtraDevices, uso eles para gerar PDF dos meus relatorios em todas as minhas aplicações WEB. É muito bom e tem uma versão para Quickreport. - Original Message - From: Vinicius Barreira [EMAIL PROTECTED] To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: Sunday, December 12, 2004 10:55 AM Subject: [delphi-br] Email em PDF Olá galera; Meu sistema já manda emails usando o delphi 7, e agora um cliente pediu pro conteudo do email (ou anexo) ser enviado em PDF; assim o destinatário do email não pode alterar o conteudo; Alguma dica sobre como gerar PDF em Delphi 7 ? Abraços; Vinicius Barreira São Bernardo do Campo - SP Delphi 7 + Firebird + IBX Software para Hoteis Skipe: vinibarr Icq 74495946 -- 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
OFF Re: [delphi-br] Email com 1GB!!!
Meu amigo, você realmente mandou muito bem! Eu acabei de usar o serviço. Só teve um pequeno furo: o site é em ASP (hehe casa de ferreiro espeto de pau) Atenciosamente, Felipe Guerço Oliveira. thinog1313 escreveu: Graças a ajuda da comunidade estou inaugurando o site madeibem.com.br eh um site pra vcs mandarem arquivos de ateh 1Giga Pra qqer email, naum precisa pagar nada e nem fazer cadastro agora nossa comunidade pode enviar fontes executaveis e qqer programa sem se preocupar com espaço em disco do servidor de email. O site armazena o arquivo e envia um email com o link pra download, o servidor ta super rapido. Testem la e se puderem mandar sugestoes eu agradeço Thiago Nogueira [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
[delphi-br] Email com Html
Fiz um programa que envia email utilizando um tidsmtp e tidmessage, mas preciso mandar um email com codigo em asp, e so consigo mandar esse arquivo como anexo (Salvo como html e anexo), mas qria que ele ja carregasse no outlook aberto. Sem precisa abrir o anexo. Sem mais Obrigado Thiago -- 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
