[delphi-br] Envio de Email no preview do FastReport
Pessoal, estou testando o Fast, tentando migrar todos os relatorios feitos em Fortes Report para Fast, e num dos testes, tentei enviar o relatório pelo fast, no preview, e ocorreu um erro.. 503 AUTH command used when not advertised. Percebi que nas configuracoes, não tem como marcar, autenticação segura, nem nenhum protocolo de criptografia, ssl, aeds .. Como enviar email pelo FastReport a versão que estou testando é 4.7.5 ? -- Leonardo Quinino
[delphi-br] Envio de email com Delphi
Ola pessoal. Estou tentando usar o comando abaixo para enviar um email usando a API, com Delphi 7: comando:='mailto:'+quotedstr(Email) + '?subject='+quotedstr(vEmail.Assunto)+ ';attachment='+quotedstr(arquivo) +';'; ShellExecute(0, nil, PChar(Comando), nil, nil,SW_SHOWNORMAL); 1 - O problema é que ele abre o email, mas sem anexo nehum. Alguem sabe como usar esse comando e anexar o arquivo no email?? 2 - E o corpo da mensagem, ou seja, a mansagem mesmo, tem como montar ela ? Obrigado. Richardson Marcelo Freddo. msn: freddodp...@hotmail.com Skype: r.freddo Rondonópolis/MT [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Envio de email com Delphi
www.activedelphi.com.br/print.php?sid=187 imasters.uol.com.br/artigo/1201/delphi/enviando_e-mails_com_componentes_indy/ www.devmedia.com.br/visualizacomponente.aspx?comp=1195site=3 www.ramosdainformatica.com.br/art_recentes01.php?CDA=22 www.devmedia.com.br/articles/viewcomp.asp?comp=9075 www.devmedia.com.br/articles/viewcomp.asp?comp=9107 www.google.com.br/search?hl=pt-BRq=Delphi+enviar+e-mailbtnG=Pesquisa+Googlemeta= massuda.blogspot.com/2007/04/como-enviar-email-usando-indy-10.html --- Em sex, 28/5/10, Richardson Freddo mjrkon...@yahoo.com.br escreveu: De: Richardson Freddo mjrkon...@yahoo.com.br Assunto: [delphi-br] Envio de email com Delphi Para: Grupo delphi-br@yahoogrupos.com.br Data: Sexta-feira, 28 de Maio de 2010, 11:35 Ola pessoal. Estou tentando usar o comando abaixo para enviar um email usando a API, com Delphi 7: comando:='mailto:'+quotedstr(Email) + '?subject='+quotedstr(vEmail.Assunto)+ ';attachment='+quotedstr(arquivo) +';'; ShellExecute(0, nil, PChar(Comando), nil, nil,SW_SHOWNORMAL); 1 - O problema é que ele abre o email, mas sem anexo nehum. Alguem sabe como usar esse comando e anexar o arquivo no email?? 2 - E o corpo da mensagem, ou seja, a mansagem mesmo, tem como montar ela ? Obrigado. Richardson Marcelo Freddo. msn: freddodp...@hotmail.com Skype: r.freddo Rondonópolis/MT [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Envio de email com Delphi
Porque vc precisa usar assim? Por causa do Outlook? Eu uso IdSMTP e IdMessage da paleta IndyServer... Nesse caso eu monto a mensagem com HTML... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Richardson Freddo mjrkon...@yahoo.com.br Para: Grupo delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 28 de Maio de 2010 11:35:10 Assunto: [delphi-br] Envio de email com Delphi Ola pessoal. Estou tentando usar o comando abaixo para enviar um email usando a API, com Delphi 7: comando:='mailto:'+quotedstr(Email) + '?subject='+quotedstr(vEmail.Assunto)+ ';attachment='+quotedstr(arquivo)+';'; ShellExecute(0, nil, PChar(Comando), nil, nil,SW_SHOWNORMAL); 1 - O problema é que ele abre o email, mas sem anexo nehum. Alguem sabe como usar esse comando e anexar o arquivo no email?? 2 - E o corpo da mensagem, ou seja, a mansagem mesmo, tem como montar ela ? Obrigado. Richardson Marcelo Freddo. msn: freddodp...@hotmail.com Skype: r.freddo Rondonópolis/MT [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Envio de email no fast reports
Bom dia a todos. Gostaria de saber se no fast report tem como enviar email com confirmação de leitura. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Envio de email
Segue uma função que utilizo a alguns anos e funciona bem. Ela cria um
e-mail novo no cliente de e-mail padrão. O parâmetro 'confirma', define se a
msg será enviada automaticamente ou se vai ser mostrada a msg em tela.
Adicione MAPI na cláusula uses.
[]
Andrei
function EnviarEMail(const De, Para, CC, Assunto, Texto, Arquivo:
string; Confirma: Boolean): Integer;
var
Msg: TMapiMessage;
lpSender, lpRecepient, lpComCopia: TMapiRecipDesc;
FileAttach: TMapiFileDesc;
SM: TFNMapiSendMail;
MAPIModule: HModule;
Flags: Cardinal;
begin
// cria propriedades da mensagem
FillChar(Msg, SizeOf(Msg), 0);
with Msg do
begin
if (Assunto '') then
lpszSubject := PChar(Assunto);
if (Texto '') then
lpszNoteText := PChar(Texto);//Corpo da Mensagem
// remetente
if (De '') then
begin
lpSender.ulRecipClass := MAPI_ORIG;
lpSender.lpszName := PChar(De);
lpSender.lpszAddress := PChar(De);
lpSender.ulReserved := 0;
lpSender.ulEIDSize := 0;
lpSender.lpEntryID := nil;
lpOriginator := @lpSender;
end;
// destinatário
if (Para '') then
begin
lpRecepient.ulRecipClass := MAPI_TO;
lpRecepient.lpszName := PChar(Para);
lpRecepient.lpszAddress := PChar(Para);
lpRecepient.ulReserved := 0;
lpRecepient.ulEIDSize := 0;
lpRecepient.lpEntryID := nil;
nRecipCount := 1;
lpRecips := @lpRecepient;
end
else
if (CC '') then
begin
lpComCopia.ulRecipClass := MAPI_CC;
lpComCopia.lpszName := PChar(CC);
lpComCopia.lpszAddress := PChar(CC);
lpComCopia.ulReserved := 0;
lpComCopia.ulEIDSize := 0;
lpComCopia.lpEntryID := nil;
nRecipCount := 1;
lpRecips := @lpComCopia;
end
else
lpRecips := nil;
// arquivo anexo
if (Arquivo = '') then
begin
nFileCount := 0;
lpFiles := nil;
end
else
begin
FillChar(FileAttach, SizeOf(FileAttach), 0);
FileAttach.nPosition := Cardinal($);
FileAttach.lpszPathName := PChar(Arquivo);
nFileCount := 1;
lpFiles := @FileAttach;
end;
end;
// carrega dll e o método para envio do email
MAPIModule := LoadLibrary(PChar(MAPIDLL));
if MAPIModule = 0 then
Result := -1
else
try
if Confirma then
Flags := MAPI_DIALOG or MAPI_LOGON_UI
else
Flags := 0;
@SM := GetProcAddress(MAPIModule, 'MAPISendMail');
if @SM nil then
Result := SM(0, Application.Handle, Msg, Flags, 0)
else
Result := 1;
finally
FreeLibrary(MAPIModule);
end;
end;
2008/12/10 Alexandre [EMAIL PROTECTED]
Pessoal, bom dia.
Eu copiei essa função do site swissdelphicenter para enviar emails via API
do windows, usando MAPI:
uses
ComObj;
procedure SendMail(Subject, Body, RecvAddress : string; Attachs : array of
string);
var
MM, MS : Variant;
i : integer;
begin
MS := CreateOleObject('MSMAPI.MAPISession');
try
MM := CreateOleObject('MSMAPI.MAPIMessages');
try
MS.DownLoadMail := False;
MS.NewSession := False;
MS.LogonUI := True;
MS.SignOn;
MM.SessionID := MS.SessionID;
MM.Compose;
MM.RecipIndex := 0;
MM.RecipAddress := RecvAddress;
MM.MsgSubject := Subject;
MM.MsgNoteText := Body;
for i := Low(Attachs) to High(Attachs) do
begin
MM.AttachmentIndex := i;
MM.AttachmentPathName := Attachs[i];
end;
MM.Send(True);
MS.SignOff;
finally
VarClear(MS);
end;
finally
VarClear(MM);
end;
end;
procedure TForm1.FormCreate(Sender : TObject);
begin
SendMail('Subject', 'Body'#13#10'Second', '[EMAIL PROTECTED]',
['C:\Winnt\explorer.exe', 'C:\winnt\win.ini']);
end;
Porém, quando eu executo dá a mensagem : 'classe não licenciada para uso'.
O
que pode estar acontecendo, alguém tem uma luz?
Agradecido.
Alexandre.
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Envio de email
Pessoal, bom dia.
Eu copiei essa função do site swissdelphicenter para enviar emails via API
do windows, usando MAPI:
uses
ComObj;
procedure SendMail(Subject, Body, RecvAddress : string; Attachs : array of
string);
var
MM, MS : Variant;
i : integer;
begin
MS := CreateOleObject('MSMAPI.MAPISession');
try
MM := CreateOleObject('MSMAPI.MAPIMessages');
try
MS.DownLoadMail := False;
MS.NewSession := False;
MS.LogonUI := True;
MS.SignOn;
MM.SessionID := MS.SessionID;
MM.Compose;
MM.RecipIndex := 0;
MM.RecipAddress := RecvAddress;
MM.MsgSubject := Subject;
MM.MsgNoteText := Body;
for i := Low(Attachs) to High(Attachs) do
begin
MM.AttachmentIndex := i;
MM.AttachmentPathName := Attachs[i];
end;
MM.Send(True);
MS.SignOff;
finally
VarClear(MS);
end;
finally
VarClear(MM);
end;
end;
procedure TForm1.FormCreate(Sender : TObject);
begin
SendMail('Subject', 'Body'#13#10'Second', '[EMAIL PROTECTED]',
['C:\Winnt\explorer.exe', 'C:\winnt\win.ini']);
end;
Porém, quando eu executo dá a mensagem : 'classe não licenciada para uso'. O
que pode estar acontecendo, alguém tem uma luz?
Agradecido.
Alexandre.
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3680 (20081210) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[delphi-br] Envio de email pelo Delphi
Boa tarde amigos da lista, Estou precisando adicionar ao meu sistema um programinha de envio de email. Estou usando o delphi6, baixei a atualização da indy, até aí tá tranquilo. Algum amigo já fez isso utilizando para envio uma conta do gmail. Eu precisaria enviar e receber emails por dentro dessa aplicação. Se algum amigo puder me ajudar, fico grato. Raphael 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]
[delphi-br] Envio de Email para Outlook Express
Pessoa Bom dia. Estou desenvolvendo uma aplicação que faz mala Direta para uma listagem de emails, o email é redigido no Word de em seguida ao importar o texto utilizo um WordApplication e um WordDocument para transforma-lo em htm em seguida importar para o corpo do email. Até ai tudo tranquilo, envio para o Outlook 2000 e Outlook Express funciona belezinha. Em alguns casos tenho necessidade de enviar um anexo, ai f... tudo, no Outlook 2000 exibe perfeito, porem, no Outlook Express o corpo do email deixa de ser exibido no tela e passa a ir como anexo em formato txt. Verifiquei que o contentType é alterado ao inserir um anexo, de 'text/html' é alterado 'text/plain', alguem sabe como posso impedir que isto aconteça? OBS: Linguagem Delphi7 utilizando componentes Indy. -- Att André Luiz Trombetone MSN [EMAIL PROTECTED] http://www.jrscomputacao.inf.br/andre
[delphi-br] Envio de Email
Boa noite a todos... bem... estou com um pqn problema, gostaria de saber como envio emails pelo delphi (lembrando que nao e chamando o gerenciador de emails do windows, esim pelo proprio delphi), eu uso o delphi 2006 com Indy 10... pop3 e Smtp sao do gmail... tb nao sei se o gmail utiliza pop3... quem puder me ajudar agredeco desde de ja... -- Dai-me Senhor, a perseverança das ondas do mar, que fazem de cada recuo um ponto de partida para um novo avanço. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Envio de Email
Dá uma pesquisada na seção de mensagens da lista. Esta pergunta tá sempre aparecendo por aqui. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] nome de Gustavo Sequeira Enviada em: quinta-feira, 12 de abril de 2007 20:30 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Envio de Email Boa noite a todos... bem... estou com um pqn problema, gostaria de saber como envio emails pelo delphi (lembrando que nao e chamando o gerenciador de emails do windows, esim pelo proprio delphi), eu uso o delphi 2006 com Indy 10... pop3 e Smtp sao do gmail... tb nao sei se o gmail utiliza pop3... quem puder me ajudar agredeco desde de ja... -- Dai-me Senhor, a perseverança das ondas do mar, que fazem de cada recuo um ponto de partida para um novo avanço. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] ENVIO DE EMAIL
Caro Rubem, os anexos que estou mandando são pequenos. Quanto ao servidor,
quando mando via outlook, são enviados sem problema algum.
Obrigado pela dica, mas creio que não é nenhum destes motivos.
Continuo no aguardo de todos e um grande abraço.
Pedro - Desenvolvimento
Das duas uma:
1) O servidor não aceita e-mail nos anexos, ou;
2) Se aceita, os anexos são muito grandes.
Informe-se com o provedor do servidor de e-mail.
Sds.
From: Pedro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] ENVIO DE EMAIL
Date: Fri, 5 Jan 2007 18:06:41 -0300
Pessoal, Feliz 2007 e um grande abraço para Todos.
Como sempre, venho recorrer a ajuda de vocês.
Estou usando a rotina abaixo para enviar email, com anexo, no Delphi 5.
Quando não uso anexo, o email é enviado com sucesso mas quando anexo algum
arquivo o email não chega ao destino.
OBS: Ao executar o programa não é dado nenhum sinal de erro.
Desde já agradeço a Todos
ROTINA USADA:
var inPos: Integer;
begin
IdSMTP.AuthenticationType := atlogin;//Conexão com autenticação
IdSMTP.Host := TRIM(edtHost.Text) ; // 'smtp.diagramaba.com.br';
IdSMTP.Password := 'pa3725'; //senha
IdSMTP.Port := 25; //porta é sempre essa não mude isso
IdSMTP.Username := '[EMAIL PROTECTED]';
IdMessage.From.Name := TRIM(edtDE.Text); //
'[EMAIL PROTECTED]';
IdMessage.Recipients.EMailAddresses := TRIM(edtPara.Text); // EMAIL
DESTINO
IdMessage.CCList.EMailAddresses := TRIM(edtCC.Text);
IdMessage.BccList.EMailAddresses := TRIM(edtBCC.Text);
case cbPrioridade.ItemIndex of
0: IdMessage.Priority := mpHigh;
1: IdMessage.Priority := mpNormal;
2: IdMessage.Priority := mpLow;
end;
IdMessage.Subject := TRIM(edtAssunto.Text);
IdMessage.Body.Clear;
IdMessage.Body.Text := TRIM(mmTexto.Lines.Text);
if cbConfirma.Checked then
IdMessage.ReceiptRecipient.Text := TRIM(IdMessage.From.Text);
for inPos := 0 to mmAnexos.Lines.Count - 1 do
begin
if TRIM(mmAnexos.Lines.Strings[inPos]) '' then
TIdAttachment.Create(IdMessage.MessageParts,
TFileName(TRIM(mmAnexos.Lines.Strings[inPos])));
end;
try
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
except
On E: Exception do
begin
ShowMessage(E.Message);
Exit;
end;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
[As partes desta mensagem que não continham texto foram removidas]
__
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.16.7/619 - Release Date: 7/1/2007 18:29
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ENVIO DE EMAIL
Pedro, a lista não aceita anexos.
Sds.
From: Pedro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] ENVIO DE EMAIL
Date: Mon, 8 Jan 2007 08:11:00 -0300
Caro Rubem, os anexos que estou mandando são pequenos. Quanto ao servidor,
quando mando via outlook, são enviados sem problema algum.
Obrigado pela dica, mas creio que não é nenhum destes motivos.
Continuo no aguardo de todos e um grande abraço.
Pedro - Desenvolvimento
Das duas uma:
1) O servidor não aceita e-mail nos anexos, ou;
2) Se aceita, os anexos são muito grandes.
Informe-se com o provedor do servidor de e-mail.
Sds.
From: Pedro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] ENVIO DE EMAIL
Date: Fri, 5 Jan 2007 18:06:41 -0300
Pessoal, Feliz 2007 e um grande abraço para Todos.
Como sempre, venho recorrer a ajuda de vocês.
Estou usando a rotina abaixo para enviar email, com anexo, no Delphi 5.
Quando não uso anexo, o email é enviado com sucesso mas quando anexo
algum
arquivo o email não chega ao destino.
OBS: Ao executar o programa não é dado nenhum sinal de erro.
Desde já agradeço a Todos
ROTINA USADA:
var inPos: Integer;
begin
IdSMTP.AuthenticationType := atlogin;//Conexão com autenticação
IdSMTP.Host := TRIM(edtHost.Text) ; // 'smtp.diagramaba.com.br';
IdSMTP.Password := 'pa3725'; //senha
IdSMTP.Port := 25; //porta é sempre essa não mude isso
IdSMTP.Username := '[EMAIL PROTECTED]';
IdMessage.From.Name := TRIM(edtDE.Text); //
'[EMAIL PROTECTED]';
IdMessage.Recipients.EMailAddresses := TRIM(edtPara.Text); // EMAIL
DESTINO
IdMessage.CCList.EMailAddresses := TRIM(edtCC.Text);
IdMessage.BccList.EMailAddresses := TRIM(edtBCC.Text);
case cbPrioridade.ItemIndex of
0: IdMessage.Priority := mpHigh;
1: IdMessage.Priority := mpNormal;
2: IdMessage.Priority := mpLow;
end;
IdMessage.Subject := TRIM(edtAssunto.Text);
IdMessage.Body.Clear;
IdMessage.Body.Text := TRIM(mmTexto.Lines.Text);
if cbConfirma.Checked then
IdMessage.ReceiptRecipient.Text := TRIM(IdMessage.From.Text);
for inPos := 0 to mmAnexos.Lines.Count - 1 do
begin
if TRIM(mmAnexos.Lines.Strings[inPos]) '' then
TIdAttachment.Create(IdMessage.MessageParts,
TFileName(TRIM(mmAnexos.Lines.Strings[inPos])));
end;
try
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
except
On E: Exception do
begin
ShowMessage(E.Message);
Exit;
end;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
[As partes desta mensagem que não continham texto foram removidas]
__
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.16.7/619 - Release Date: 7/1/2007
18:29
[As partes desta mensagem que não continham texto foram removidas]
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
Re: [delphi-br] ENVIO DE EMAIL
Rs... ele não tava mandando anexos para a lista.. ele quer mandar anexos via
email pela aplicação dele...
Acho que vc não leu o email por inteiro =)
[]'s
Eric D. - Desenvolvimento e Soluções de Tecnologia
[EMAIL PROTECTED]
Talk is cheap, show me the code...
- Original Message -
From: Rubem Nascimento da Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 08, 2007 9:16 AM
Subject: Re: [delphi-br] ENVIO DE EMAIL
Pedro, a lista não aceita anexos.
Sds.
From: Pedro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] ENVIO DE EMAIL
Date: Mon, 8 Jan 2007 08:11:00 -0300
Caro Rubem, os anexos que estou mandando são pequenos. Quanto ao servidor,
quando mando via outlook, são enviados sem problema algum.
Obrigado pela dica, mas creio que não é nenhum destes motivos.
Continuo no aguardo de todos e um grande abraço.
Pedro - Desenvolvimento
Das duas uma:
1) O servidor não aceita e-mail nos anexos, ou;
2) Se aceita, os anexos são muito grandes.
Informe-se com o provedor do servidor de e-mail.
Sds.
From: Pedro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] ENVIO DE EMAIL
Date: Fri, 5 Jan 2007 18:06:41 -0300
Pessoal, Feliz 2007 e um grande abraço para Todos.
Como sempre, venho recorrer a ajuda de vocês.
Estou usando a rotina abaixo para enviar email, com anexo, no Delphi 5.
Quando não uso anexo, o email é enviado com sucesso mas quando anexo
algum
arquivo o email não chega ao destino.
OBS: Ao executar o programa não é dado nenhum sinal de erro.
Desde já agradeço a Todos
ROTINA USADA:
var inPos: Integer;
begin
IdSMTP.AuthenticationType := atlogin;//Conexão com autenticação
IdSMTP.Host := TRIM(edtHost.Text) ; // 'smtp.diagramaba.com.br';
IdSMTP.Password := 'pa3725'; //senha
IdSMTP.Port := 25; //porta é sempre essa não mude isso
IdSMTP.Username := '[EMAIL PROTECTED]';
IdMessage.From.Name := TRIM(edtDE.Text); //
'[EMAIL PROTECTED]';
IdMessage.Recipients.EMailAddresses := TRIM(edtPara.Text); // EMAIL
DESTINO
IdMessage.CCList.EMailAddresses := TRIM(edtCC.Text);
IdMessage.BccList.EMailAddresses := TRIM(edtBCC.Text);
case cbPrioridade.ItemIndex of
0: IdMessage.Priority := mpHigh;
1: IdMessage.Priority := mpNormal;
2: IdMessage.Priority := mpLow;
end;
IdMessage.Subject := TRIM(edtAssunto.Text);
IdMessage.Body.Clear;
IdMessage.Body.Text := TRIM(mmTexto.Lines.Text);
if cbConfirma.Checked then
IdMessage.ReceiptRecipient.Text := TRIM(IdMessage.From.Text);
for inPos := 0 to mmAnexos.Lines.Count - 1 do
begin
if TRIM(mmAnexos.Lines.Strings[inPos]) '' then
TIdAttachment.Create(IdMessage.MessageParts,
TFileName(TRIM(mmAnexos.Lines.Strings[inPos])));
end;
try
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
except
On E: Exception do
begin
ShowMessage(E.Message);
Exit;
end;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
[As partes desta mensagem que não continham texto foram removidas]
__
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.16.7/619 - Release Date: 7/1/2007
18:29
[As partes desta mensagem que não continham texto foram removidas]
__
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ENVIO DE EMAIL
Pessoal, Feliz 2007 e um grande abraço para Todos.
Como sempre, venho recorrer a ajuda de vocês.
Estou usando a rotina abaixo para enviar email, com anexo, no Delphi 5. Quando
não uso anexo, o email é enviado com sucesso mas quando anexo algum arquivo o
email não chega ao destino.
OBS: Ao executar o programa não é dado nenhum sinal de erro.
Desde já agradeço a Todos
ROTINA USADA:
var inPos: Integer;
begin
IdSMTP.AuthenticationType := atlogin;//Conexão com autenticação
IdSMTP.Host := TRIM(edtHost.Text) ; // 'smtp.diagramaba.com.br';
IdSMTP.Password := 'pa3725';//senha
IdSMTP.Port := 25; //porta é sempre essa não mude isso
IdSMTP.Username := '[EMAIL PROTECTED]';
IdMessage.From.Name := TRIM(edtDE.Text); // '[EMAIL PROTECTED]';
IdMessage.Recipients.EMailAddresses := TRIM(edtPara.Text); // EMAIL DESTINO
IdMessage.CCList.EMailAddresses := TRIM(edtCC.Text);
IdMessage.BccList.EMailAddresses:= TRIM(edtBCC.Text);
case cbPrioridade.ItemIndex of
0: IdMessage.Priority := mpHigh;
1: IdMessage.Priority := mpNormal;
2: IdMessage.Priority := mpLow;
end;
IdMessage.Subject := TRIM(edtAssunto.Text);
IdMessage.Body.Clear;
IdMessage.Body.Text := TRIM(mmTexto.Lines.Text);
if cbConfirma.Checked then
IdMessage.ReceiptRecipient.Text := TRIM(IdMessage.From.Text);
for inPos := 0 to mmAnexos.Lines.Count - 1 do
begin
if TRIM(mmAnexos.Lines.Strings[inPos]) '' then
TIdAttachment.Create(IdMessage.MessageParts,
TFileName(TRIM(mmAnexos.Lines.Strings[inPos])));
end;
try
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
except
On E: Exception do
begin
ShowMessage(E.Message);
Exit;
end;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] ENVIO DE EMAIL
Das duas uma:
1) O servidor não aceita e-mail nos anexos, ou;
2) Se aceita, os anexos são muito grandes.
Informe-se com o provedor do servidor de e-mail.
Sds.
From: Pedro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] ENVIO DE EMAIL
Date: Fri, 5 Jan 2007 18:06:41 -0300
Pessoal, Feliz 2007 e um grande abraço para Todos.
Como sempre, venho recorrer a ajuda de vocês.
Estou usando a rotina abaixo para enviar email, com anexo, no Delphi 5.
Quando não uso anexo, o email é enviado com sucesso mas quando anexo algum
arquivo o email não chega ao destino.
OBS: Ao executar o programa não é dado nenhum sinal de erro.
Desde já agradeço a Todos
ROTINA USADA:
var inPos: Integer;
begin
IdSMTP.AuthenticationType := atlogin;//Conexão com autenticação
IdSMTP.Host := TRIM(edtHost.Text) ; // 'smtp.diagramaba.com.br';
IdSMTP.Password := 'pa3725';//senha
IdSMTP.Port := 25; //porta é sempre essa não mude isso
IdSMTP.Username := '[EMAIL PROTECTED]';
IdMessage.From.Name := TRIM(edtDE.Text); //
'[EMAIL PROTECTED]';
IdMessage.Recipients.EMailAddresses := TRIM(edtPara.Text); // EMAIL
DESTINO
IdMessage.CCList.EMailAddresses := TRIM(edtCC.Text);
IdMessage.BccList.EMailAddresses:= TRIM(edtBCC.Text);
case cbPrioridade.ItemIndex of
0: IdMessage.Priority := mpHigh;
1: IdMessage.Priority := mpNormal;
2: IdMessage.Priority := mpLow;
end;
IdMessage.Subject := TRIM(edtAssunto.Text);
IdMessage.Body.Clear;
IdMessage.Body.Text := TRIM(mmTexto.Lines.Text);
if cbConfirma.Checked then
IdMessage.ReceiptRecipient.Text := TRIM(IdMessage.From.Text);
for inPos := 0 to mmAnexos.Lines.Count - 1 do
begin
if TRIM(mmAnexos.Lines.Strings[inPos]) '' then
TIdAttachment.Create(IdMessage.MessageParts,
TFileName(TRIM(mmAnexos.Lines.Strings[inPos])));
end;
try
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
except
On E: Exception do
begin
ShowMessage(E.Message);
Exit;
end;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
[As partes desta mensagem que não continham texto foram removidas]
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
[delphi-br] Envio de Email pelo Indy Falhando
Pessoal, Uso o Indy do Delphi 7 para enviar emails automáticos. Na minha máquina que tem o Delphi 7 instalado ele funciona sem problemas, no entanto em uma outra máquina ele as vezes falha. Será que tenho que levar alguma dll específica ou alguma biblioteca? Levi [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] Envio de Email Delphi 7
Olá!! Estou desenvolvendo um aplicativo para envio de email, onde a conta de destino sera a conta [EMAIL PROTECTED] Tenho tambem as respectivas configuracoes de SMTP e POP3 da conta [EMAIL PROTECTED] So que o grande problema esta no seguinte. - O usuario pode informar qualquer email, que fuja das configuracoes referente ao dominio email.com.br com isso a autenticacao para o envio do email sera cancelada.. Com consigo resolver esse problema??? -- 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] Envio de Email Delphi 7
é só deixar o campo desabilitado para o usuario nao poder digitar. propriedade enabled seta como false; Abraços Elton Adriano Pering. - Original Message - From: bsilvaweb To: delphi-br@yahoogrupos.com.br Sent: Friday, June 09, 2006 3:43 PM Subject: [delphi-br] Envio de Email Delphi 7 Olá!! Estou desenvolvendo um aplicativo para envio de email, onde a conta de destino sera a conta [EMAIL PROTECTED] Tenho tambem as respectivas configuracoes de SMTP e POP3 da conta [EMAIL PROTECTED] So que o grande problema esta no seguinte. - O usuario pode informar qualquer email, que fuja das configuracoes referente ao dominio email.com.br com isso a autenticacao para o envio do email sera cancelada.. Com consigo resolver esse problema??? [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] [*** ENVIO DE EMAIL ***]
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] Envio de Email via Indy
Estou tentando enviar um email usando idSmtp da paleta Indy e em alguns cliente está acusando a mensagem Relay access denied, alguém já passou por isso. -- 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] Envio de email pelo OutLook
Amigos...
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
Ele funciona legal, e envia o email pelo OutLook deixando uma cópia
nos itens enviados como meu gerente quer.
Só que agora eu tenho que anexar arquivos nos emails a serem
enviados, e eu gostaria de saber se existe uma maneira de fazer isso
no código que já existe ou se tenho que refazer este código.
Segue o código:
AssignFile(Arq_mail, sFileN );
Rewrite(Arq_mail);
writeLn(Arq_mail,'From: ');
writeLn(Arq_mail,'To: '+ sMailDest );
writeLn(Arq_mail,'Cc: '+ sCopia );
writeLn(Arq_mail,'Bcc: '+ sCopiaOculta );
writeLn(Arq_mail,'Subject: '+ sSubject );
writeLn(Arq_mail,'Date: ');
writeLn(Arq_mail,'MIME-Version: 1.0');
writeLn(Arq_mail,'Content-Type: multipart/alternative;');
writeLn(Arq_mail,'boundary=
=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'X-Priority: 3');
writeLn(Arq_mail,'X-MSMail-Priority: Normal');
writeLn(Arq_mail,'X-Unsent: 1');
writeLn(Arq_mail,'X-MimeOLE: Produced By Microsoft MimeOLE
V6.00.2800.1165');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'This is a multi-part message in MIME format.');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/plain;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/html;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0
Transitional//EN');
writeLn(Arq_mail,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
writeLn(Arq_mail,'');
For nQtLines := 0 to memoHtml.Lines.Count - 1 do
writeLn(Arq_mail, memoHtml.Lines.Strings[nQtLines]);
CloseFile(Arq_mail);
{$I+}
if lAbrir Then
ShellExecute(Handle,'open', PChar( sFileN ), nil, nil,
SW_SHOWNORMAL);
Desde já agradeço
Mariana
--
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] Envio de email pelo OutLook
Olá,
Olha que complicado hein??!!?? Porque você não monta um programinha (telinha
de cliente de email) tipo :
Para:
Assunto:
-
Memo1
Um botão ENVIAR;
No código do botao enviar tu escreves:
procedure .
var
Opendialog1 : TOpenDialog;
begin
Opendialog1 := TOpendialog.Create(application);
try
if OpenDialog1.Execute then
begin
EnviarEmail(edtPara.text,
edtAssunto.Text,Memo1.Text,opendialog1.FileName);
end;
finally
Opendialog1.Destroy;
end;
end;
Claro, antes crie esta função: e não esqueça dos uses: ComObj, Dialogs
function TForm1.EnviarEmail(Email, Subject : string; Body : Widestring ;
Filename : string): boolean;
var
outlook : variant;
item: variant;
begin
try
outlook := CreateOLEObject('outlook.application');
try
item := outlook.CreateItem(0);
item.Subject := Subject;
item.Body:= Body;
// Aqui é legal, você pode aperfeicoar para depois poder anexar vários
arquivos no email.
item.Attachments.Add(FileName,1,1,FileName);
item.To := email;
item.Send;
finally
outlook.quit;
end;
except
result := false;
exit;
end;
result := true;
end;
Tenta aí, serve pra um arquivo mas você pode melhorar bastante.
Alexandre
- Original Message -
From: Mariana [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 5:05 PM
Subject: [delphi-br] Envio de email pelo OutLook
Amigos...
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
Ele funciona legal, e envia o email pelo OutLook deixando uma cópia
nos itens enviados como meu gerente quer.
Só que agora eu tenho que anexar arquivos nos emails a serem
enviados, e eu gostaria de saber se existe uma maneira de fazer isso
no código que já existe ou se tenho que refazer este código.
Segue o código:
AssignFile(Arq_mail, sFileN );
Rewrite(Arq_mail);
writeLn(Arq_mail,'From: ');
writeLn(Arq_mail,'To: '+ sMailDest );
writeLn(Arq_mail,'Cc: '+ sCopia );
writeLn(Arq_mail,'Bcc: '+ sCopiaOculta );
writeLn(Arq_mail,'Subject: '+ sSubject );
writeLn(Arq_mail,'Date: ');
writeLn(Arq_mail,'MIME-Version: 1.0');
writeLn(Arq_mail,'Content-Type: multipart/alternative;');
writeLn(Arq_mail,'boundary=
=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'X-Priority: 3');
writeLn(Arq_mail,'X-MSMail-Priority: Normal');
writeLn(Arq_mail,'X-Unsent: 1');
writeLn(Arq_mail,'X-MimeOLE: Produced By Microsoft MimeOLE
V6.00.2800.1165');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'This is a multi-part message in MIME format.');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/plain;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/html;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0
Transitional//EN');
writeLn(Arq_mail,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
writeLn(Arq_mail,'');
For nQtLines := 0 to memoHtml.Lines.Count - 1 do
writeLn(Arq_mail, memoHtml.Lines.Strings[nQtLines]);
CloseFile(Arq_mail);
{$I+}
if lAbrir Then
ShellExecute(Handle,'open', PChar( sFileN ), nil, nil,
SW_SHOWNORMAL);
Desde já agradeço
Mariana
--
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
--
Este e-mail está livre de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.2 - Data de Lançamento:
22/10/2004
--
Mensagens enviadas estão livres de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.2 Data de Lançamento: 22/10/2004
--
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
