e-mail no delphi

Meu Amigo

Voce poderia ser mais especifico em que parte do programa voce já desenvolveu?
Para enviar E-mail o Delphi dispõe de um série de componentes localizados na paleta INDY.
Para esse caso voce vai precisar dos componentes:
Palete
Indy: dSMTP (dSMTP1), IdAntiFreeze (IdAntiFreeze1), idMessage (Mensagem);
Internet:TDateSetPageProducer(PPMensagem) e o curinga responsavel pela geraçao de um pagina Web, para voce dar um padrão profissional ao seu email
Abra o formulario principal.
[b:05bb0d15c0]Configuraçao da Conta de Email:[/b:05bb0d15c0]
Adicione cinco Tedits para:
- Nome do host(Servidor de Email da conta que esta enviando ), chame de EDhost
- Usuario (Nick que aparecerá no email, chame de EdUSuario
- Conta:chame de Edconta
- Porta: Definida para email com 25, chame de edporta
- Senha:da conta informada, chame de EdSenha

Adicione um campo Memo para escrever a mensagem, chame o de ´textodoemail´

Para o processo de anexaçao, faça o seguinte:
Define um novo formulario que terá um Button que no evento onclick executara a linha abaixo:
´ if obanexo.Execute then mmanexos.Lines.Add(obanexo.FileName);´
OBANEXO=topenDialog
e armazenará os caminhos dos arquivos em componente Tmemo;

No formulario principal adicione um button e declare no evento o click:

procedure TFRMprincipal.ENVIARClick(Sender: TObject);
var
xAnexo : Integer;

begin
ENVIAR.Enabled:=false;
{configurando o componente IDSMTP1 que é responsavel pelo encapsulamento do protocolo SMTP responsável pelo dispacho das mensagens}
IdSMTP1.Username:=edusuario.Text;
IdSMTP1.Password:=edsenha.Text;
IdSMTP1.Host:=edhost.Text;
IdSMTP1.Port:=strtoint(EDPORTA.text);
ppmensagem.HTMLDoc:=textodoemail.Lines;
query1.open;
query1.First;
idsmtp1.Connect;
try
with mensagem do
begin
subject:=edassunto.Text;
from.Text:=edconta.Text;

while not ibquery1.Eof do
begin
recipients.EMailAddresses:=query1email.value;
receiptrecipient.Address:=query1email.value;
body.Text:=ppmensagem.Content;
For xAnexo := 0 to frmanexo.mmAnexos.Lines.Count-1 do
TIdAttachment.create(mensagem.MessageParts, TFileName(frmanexo.mmAnexos.Lines.Strings[xAnexo]));

idsmtp1.Send(mensagem);
ibquery1.Next;
end;
end;
finally
idsmtp1.Disconnect;
ENVIAR.Enabled:=true;
SHOwMESSAGE(´Emails enviado com sucesso´);
end;

end;



Atenção foi usado uma query para passa os dados do destinatário


Um abraço

Adisson Silva

Meu Amigo

Voce poderia ser mais especifico em que parte do programa voce já desenvolveu?
Para enviar E-mail o Delphi dispõe de um série de componentes localizados na paleta INDY.
Para esse caso voce vai precisar dos componentes:
Palete
Indy: dSMTP (dSMTP1), IdAntiFreeze (IdAntiFreeze1), idMessage (Mensagem);
Internet:TDateSetPageProducer(PPMensagem) e o curinga responsavel pela geraçao de um pagina Web, para voce dar um padrão profissional ao seu email
Abra o formulario principal.
[b:1959302fad]Configuraçao da Conta de Email:[/b:1959302fad]
Adicione cinco Tedits para:
- Nome do host(Servidor de Email da conta que esta enviando ), chame de EDhost
- Usuario (Nick que aparecerá no email, chame de EdUSuario
- Conta:chame de Edconta
- Porta: Definida para email com 25, chame de edporta
- Senha:da conta informada, chame de EdSenha

Adicione um campo Memo para escrever a mensagem, chame o de ´textodoemail´

Para o processo de anexaçao, faça o seguinte:
Define um novo formulario que terá um Button que no evento onclick executara a linha abaixo:
´ if obanexo.Execute then mmanexos.Lines.Add(obanexo.FileName);´
OBANEXO=topenDialog
e armazenará os caminhos dos arquivos em componente Tmemo;

No formulario principal adicione um button e declare no evento o click:

procedure TFRMprincipal.ENVIARClick(Sender: TObject);
var
xAnexo : Integer;

begin
ENVIAR.Enabled:=false;
{configurando o componente IDSMTP1 que é responsavel pelo encapsulamento do protocolo SMTP responsável pelo dispacho das mensagens}
IdSMTP1.Username:=edusuario.Text;
IdSMTP1.Password:=edsenha.Text;
IdSMTP1.Host:=edhost.Text;
IdSMTP1.Port:=strtoint(EDPORTA.text);
ppmensagem.HTMLDoc:=textodoemail.Lines;
query1.open;
query1.First;
idsmtp1.Connect;
try
with mensagem do
begin
subject:=edassunto.Text;
from.Text:=edconta.Text;

while not ibquery1.Eof do
begin
recipients.EMailAddresses:=query1email.value;
receiptrecipient.Address:=query1email.value;
body.Text:=ppmensagem.Content;
For xAnexo := 0 to frmanexo.mmAnexos.Lines.Count-1 do
TIdAttachment.create(mensagem.MessageParts, TFileName(frmanexo.mmAnexos.Lines.Strings[xAnexo]));

idsmtp1.Send(mensagem);
ibquery1.Next;
end;
end;
finally
idsmtp1.Disconnect;
ENVIAR.Enabled:=true;
SHOwMESSAGE(´Emails enviado com sucesso´);
end;

end;



Atenção foi usado uma query para passa os dados do destinatário


Um abraço

Adisson Silva