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]
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
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/
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]
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]
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]
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]
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
