RES: RES: [delphi-br] Enviando e-mail

2006-02-20 Por tôpico Walter Alves Chagas Junior 
Engraçado. Essa Função já zanzou aqui na lista umas 4 vezes e nunca
funcionava. Agora esta daí funciona :)

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Moacir (gmail)
Enviada em: sexta-feira, 17 de fevereiro de 2006 22:26
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Enviando e-mail


Walter,

Ja usei esta função sem ter problemas. Atualmente uso a Indy pra isto..

Function  SendMail( pTo,
pCC,
pCCo,
pAssunto,
pTexto: pChar;
aFiles: Array Of PChar ) : String;
var
  iRetorno : cardinal;
  sTo, sCC, sCCo, sAux: String;
  MapiMessage: TMapiMessage;
  pRecipiente: PMapiRecipDesc ;
  aRecipiente :array of TMapiRecipDesc ;
  aArquivoEnvio: array of  TMapiFileDesc ;
  i, iRecip, iFiles:integer;
Const
   ERRO_MAPI_AMBIGUOUS_RECIPIENT= 'O destinatário não pode ser resolvido!!';
   ERRO_MAPI_FAILURE= 'Ocorreram erros não 
especificados!'+#13+'Verifique se o Outlook Express é o sistema de 
mensagens padrão.';
   ERRO_MAPI_INSUFFICIENT_MEMORY= 'Memória insuficiente!!';
   ERRO_MAPI_NOT_SUPPORTED  = 'Operação não suportada pelo sistema 
de mensagens!';
begin
  iRecip := 0;
  //  Define destinatários TO
  sTo:= '';
  If Assigned( pTo ) Then
  Begin
sAux := pTo;
If sAux[Length(sAux)]  ';' Then
  sAux := sAux + ';';
While Pos( ';', sAux )  0 Do
Begin
  Inc( iRecip );
  sTo := sTo + Copy( sAux, 1, Pos( ';', sAux ) );
  Delete( sAux, 1, Pos( ';', sAux ) );
End;
  End;
  //  Define destinatários CC
  sCC:= '';
  If Assigned( pCC ) Then
  Begin
sAux := pCC;
If sAux[Length(sAux)]  ';' Then
  sAux := sAux + ';';
While Pos( ';', sAux )  0 Do
Begin
  Inc( iRecip );
  sCC := sCC + Copy( sAux, 1, Pos( ';', sAux ) );
  Delete( sAux, 1, Pos( ';', sAux ) );
End;
  End;
  //  Define destinatários CCo
  sCCo:= '';
  If Assigned( pCCo ) Then
  Begin
sAux := pCCo;
If sAux[Length(sAux)]  ';' Then
  sAux := sAux + ';';
While Pos( ';', sAux )  0 Do
Begin
  Inc( iRecip );
  sCCo := sCCo + Copy( sAux, 1, Pos( ';', sAux ) );
  Delete( sAux, 1, Pos( ';', sAux ) );
End;
  End;

  // cria  o tamanho do array de recipiente
  SetLength(aRecipiente, iRecip);

  I := 0;
  // Define recipientes TO
  While sTO  '' Do
  Begin
  iRetorno  := MAPIResolveName( 0, 0, PChar( 
Copy( sTo, 1, Pos(';', sTo) - 1 ) ), 0, 0, pRecipiente );

// VERIFICA  SE NÃO OCORREU ERROS
If (iRetorno  SUCCESS_SUCCESS) Then
begin
   Case iRetorno Of
 MAPI_E_AMBIGUOUS_RECIPIENT: Result:= ERRO_MAPI_AMBIGUOUS_RECIPIENT;
 MAPI_E_FAILURE: Result:= ERRO_MAPI_FAILURE;
 MAPI_E_INSUFFICIENT_MEMORY: Result:= ERRO_MAPI_INSUFFICIENT_MEMORY;
 MAPI_E_NOT_SUPPORTED  : Result:= ERRO_MAPI_NOT_SUPPORTED  ;
   else
 Result:= 'Erro ('+IntToStr(iRetorno)+') desconhecido !';
   end;
   Exit;
end;
aRecipiente[i].ulReserved   := pRecipiente.ulReserved;
aRecipiente[i].lpszName := pRecipiente.lpszName;
aRecipiente[i].lpszAddress  := pRecipiente.lpszAddress;
aRecipiente[i].ulEIDSize:= pRecipiente.ulEIDSize;
aRecipiente[i].lpEntryID:= pRecipiente.lpEntryID;
aRecipiente[i].ulRecipClass := MAPI_TO;
Delete( sTO, 1, Pos( ';', sTO ) );
Inc( I );
  End;
  // Define recipientes CC
  While sCC  '' Do
  Begin
iRetorno := MAPIResolveName( 0, 0, PChar( Copy( sCC, 1, Pos(';', 
sCC) - 1 ) ), 0, 0, pRecipiente );
// VERIFICA  SE NÃO OCORREU ERROS
If (iRetorno  SUCCESS_SUCCESS) Then
begin
   Case iRetorno Of
 MAPI_E_AMBIGUOUS_RECIPIENT: Result:= ERRO_MAPI_AMBIGUOUS_RECIPIENT;
 MAPI_E_FAILURE: Result:= ERRO_MAPI_FAILURE;
 MAPI_E_INSUFFICIENT_MEMORY: Result:= ERRO_MAPI_INSUFFICIENT_MEMORY;
 MAPI_E_NOT_SUPPORTED  : Result:= ERRO_MAPI_NOT_SUPPORTED  ;
   else
 Result:= 'Erro ('+IntToStr(iRetorno)+') desconhecido !';
   end;
   Exit;
end;
aRecipiente[i].ulReserved   := pRecipiente.ulReserved;
aRecipiente[i].lpszName := pRecipiente.lpszName;
aRecipiente[i].lpszAddress  := pRecipiente.lpszAddress;
aRecipiente[i].ulEIDSize:= pRecipiente.ulEIDSize;
aRecipiente[i].lpEntryID:= pRecipiente.lpEntryID;
aRecipiente[i].ulRecipClass := MAPI_CC;
Delete( sCC, 1, Pos( ';', sCC ) );
Inc( I );
  End;
  // Define recipientes BCC
  While sCCo  '' Do
  Begin
iRetorno := MAPIResolveName( 0, 0, PChar( Copy( sCCo, 1, Pos(';', 
sCCo) - 1 ) ), 0, 0, pRecipiente );
// VERIFICA  SE NÃO OCORREU ERROS
If (iRetorno  SUCCESS_SUCCESS

[delphi-br] Enviando e-mail

2006-02-17 Por tôpico Marco Aurélio 
Boa Tarde,

Segue abaixo um passo-a-passo de como mandar email em DELPHI, sem ser um
tutorial, mas sim detalhando passo a passo como pode utilizar, as funções. O
que gostaria do grupo é que analisa-se e falassem como poderia melhorar e se
essa ‘receitinha’  funcionaria normalmente em um programa de envio de email?

Como criar um programa para envio de email

 

1º Passo: Colocar dois componentes no formulário:

 

-IdSMTP(Paleta IndyClients)

-IdMessage (palheta Indy Misc);

 

2º Passo: Incluir no Formulário componentes(Edit,Label), dados que deseja
ser configurado manualmente.

 

Exemplo: Para(To), Assunto(Subject), Corpo da Mensagem(Body);

 

3º Passo: Configurar o componente que irá enviar as mensagens:

 

-IdSMTP

--[nomedoIdSmtp].Host := ‘servidor.smtp.com.br’;

--[nomedoIdSmtp].UserName := [EMAIL PROTECTED];

--[nomedoIdSmtp].Password := ‘senhadelogin’;

//A linha abaixo é utilizada quando o usuário
necessita fazer o login no servidor de email

--[nomedoIdSmtp].AuthenticationType := atLogin; 

 

4º Passo: Terá de conectar no servidor de email:

--[nomedoIdSmtp].Connect;

 

5º Passo: Inserir um bloco de tentativa/exceções(try);

 

Try

{dentro deste bloco conterá o código para montar e tentar
enviar a mensagem}

 //Inserir os próximos passos aqui.

   

Finally

  --[nomedoIdSmtp].disconnect;

End;

 

6º Passo: Configurar a mensagem a ser enviada:

//Configura o endereço que está enviando o email

--[nomedoIdMessage].From.Address := nome ou componente que
contenha o nome;

//Configura o nome de envio

--[nomedoIdMessage].From.Name := nome ou componente que contenha o nome;

//Configura para qual e-mail será enviada a mensagem;

--[nomedoIdMessage].Recipients.EmailAdresses := nome ou
componente que contenha o nome;

//Configurar a prioridade desejada

--[nomedoIdMessage].priority := nome ou componente que contenha
as prioridades;



//Configura o assunto da mensagem

--[nomedoIdMessage].Subject := assunto ou nome do componente que contenha o
asssunto;

//Configura o corpo da mensagem

--[nomedoIdMessage].Body := nomedocomponente ou corpodotextodamensagem;

//Configura a mensagem para aceitar ou não text/html

--[nomedoIdMessage].ContentType := ‘text/html’;

 

7º Passo: Enviar a Mensagem

--[nomedoIdSmtp].Send(nomedoIdMessage);



Um forte abraço a todos.

Ass: 

Marco Aurélio



[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Enviando e-mail

2006-02-17 Por tôpico Walter Alves Chagas Junior 
E pelo Outlook (não é SMTP, é E-mail corporativo), alguém aí tem algum
exemplo?


[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Marco Aurélio
Enviada em: quinta-feira, 16 de fevereiro de 2006 11:13
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Enviando e-mail


Boa Tarde,

Segue abaixo um passo-a-passo de como mandar email em DELPHI, sem ser um
tutorial, mas sim detalhando passo a passo como pode utilizar, as funções. O
que gostaria do grupo é que analisa-se e falassem como poderia melhorar e se
essa 'receitinha'  funcionaria normalmente em um programa de envio de email?

Como criar um programa para envio de email

 

1º Passo: Colocar dois componentes no formulário:

 

-IdSMTP(Paleta IndyClients)

-IdMessage (palheta Indy Misc);

 

2º Passo: Incluir no Formulário componentes(Edit,Label), dados que deseja
ser configurado manualmente.

 

Exemplo: Para(To), Assunto(Subject), Corpo da Mensagem(Body);

 

3º Passo: Configurar o componente que irá enviar as mensagens:

 

-IdSMTP

--[nomedoIdSmtp].Host := 'servidor.smtp.com.br';

--[nomedoIdSmtp].UserName := '[EMAIL PROTECTED]';

--[nomedoIdSmtp].Password := 'senhadelogin';

//A linha abaixo é utilizada quando o usuário
necessita fazer o login no servidor de email

--[nomedoIdSmtp].AuthenticationType := atLogin; 

 

4º Passo: Terá de conectar no servidor de email:

--[nomedoIdSmtp].Connect;

 

5º Passo: Inserir um bloco de tentativa/exceções(try);

 

Try

{dentro deste bloco conterá o código para montar e tentar
enviar a mensagem}

 //Inserir os próximos passos aqui.

   

Finally

  --[nomedoIdSmtp].disconnect;

End;

 

6º Passo: Configurar a mensagem a ser enviada:

//Configura o endereço que está enviando o email

--[nomedoIdMessage].From.Address := nome ou componente que
contenha o nome;

//Configura o nome de envio

--[nomedoIdMessage].From.Name := nome ou componente que contenha o nome;

//Configura para qual e-mail será enviada a mensagem;

--[nomedoIdMessage].Recipients.EmailAdresses := nome ou
componente que contenha o nome;

//Configurar a prioridade desejada

--[nomedoIdMessage].priority := nome ou componente que contenha
as prioridades;



//Configura o assunto da mensagem

--[nomedoIdMessage].Subject := assunto ou nome do componente que contenha o
asssunto;

//Configura o corpo da mensagem

--[nomedoIdMessage].Body := nomedocomponente ou corpodotextodamensagem;

//Configura a mensagem para aceitar ou não text/html

--[nomedoIdMessage].ContentType := 'text/html';

 

7º Passo: Enviar a Mensagem

--[nomedoIdSmtp].Send(nomedoIdMessage);



Um forte abraço a todos.

Ass: 

Marco Aurélio



[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 


 
Links do Yahoo! Grupos




 




[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: RES: [delphi-br] Enviando e-mail

2006-02-17 Por tôpico Moacir (gmail) 
 := pRecipiente.lpszName;
aRecipiente[i].lpszAddress  := pRecipiente.lpszAddress;
aRecipiente[i].ulEIDSize:= pRecipiente.ulEIDSize;
aRecipiente[i].lpEntryID:= pRecipiente.lpEntryID;
aRecipiente[i].ulRecipClass := MAPI_BCC;
Delete( sCCo, 1, Pos( ';', sCCo ) );
Inc( I );
  End;

  iFiles := Length( aFiles );

  // cria o tamanho do array de anexos
  SetLength(aArquivoEnvio, iFiles);

  // indica os parâmetros para cada recepiente de anexos
  For I := 0 To High(aArquivoEnvio) Do
  Begin
aArquivoEnvio[i].ulReserved   := 0;
aArquivoEnvio[i].flFlags  := 0;
aArquivoEnvio[i].nPosition:= 0;
aArquivoEnvio[i].lpszPathName := aFiles[I];
aArquivoEnvio[i].lpszFileName := Nil;
aArquivoEnvio[i].lpFileType   := Nil;
  End;

  //  configura o MapiMessage  para ser usando pelo MapiSendMail
  With MapiMessage Do
  Begin
ulReserved := 0;
lpszSubject:= pAssunto;
lpszNoteText   := pTexto;
lpszMessageType:= Nil;
lpszDateReceived   := Nil;
lpszConversationID := Nil;
flFlags:= 0;
lpOriginator   := Nil;
nRecipCount:= iRecip;
lpRecips   := @aRecipiente[0];
nFileCount := iFiles;
lpFiles:= @aArquivoEnvio[0];
  end;

  // ativo o e-mail usado pelo usuário e coloca o destinatário, 
Assunto,corpo do e-mail e anexos
  //  Result := MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or 
MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);

  //   caso você queira que não seja ativado o e-mail, apenas enviando a 
mensagem use a linha abaixo no lugar da linha acima.
  iRetorno := MapiSendMail( 0, 0, MapiMessage, 0, 0 );

  If iRetorno  0 Then
 Result:='Erro no envio ('+IntToStr(iRetorno)+')';

  // libera a memória alocada para o Recipiente
  MAPIFreeBuffer( pRecipiente );
End;

Exemplo de uso:

SendMail(pChar('Pontual Cargas - Matriz '+EMAIL_MATRIZ+''),
   nil,
   nil,
   pChar('[PONTUAL CARGAS] AGENCIA '+sIDLocal+' 
Movimento de '+DEmovimento.EditText),
   pChar('Enviado em 
'+FormatDateTime('dd'+DateSeparator+'mm'+DateSeparator+' as 
hh:nn',Now)+'  '+SIS_VER),
   aAnexos);


[ ]´s
Moacir

Walter Alves Chagas Junior escreveu:
 E pelo Outlook (não é SMTP, é E-mail corporativo), alguém aí tem algum
 exemplo?


 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia de telecomunicações
 Belo Horizonte - MG - Brazil
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200


 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
 nome de Marco Aurélio
 Enviada em: quinta-feira, 16 de fevereiro de 2006 11:13
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Enviando e-mail


 Boa Tarde,

 Segue abaixo um passo-a-passo de como mandar email em DELPHI, sem ser um
 tutorial, mas sim detalhando passo a passo como pode utilizar, as funções. O
 que gostaria do grupo é que analisa-se e falassem como poderia melhorar e se
 essa 'receitinha'  funcionaria normalmente em um programa de envio de email?

 Como criar um programa para envio de email

  

 1º Passo: Colocar dois componentes no formulário:

  

 -IdSMTP(Paleta IndyClients)

 -IdMessage (palheta Indy Misc);

  

 2º Passo: Incluir no Formulário componentes(Edit,Label), dados que deseja
 ser configurado manualmente.

  

 Exemplo: Para(To), Assunto(Subject), Corpo da Mensagem(Body);

  

 3º Passo: Configurar o componente que irá enviar as mensagens:

  

 -IdSMTP

 --[nomedoIdSmtp].Host := 'servidor.smtp.com.br';

 --[nomedoIdSmtp].UserName := '[EMAIL PROTECTED]';

 --[nomedoIdSmtp].Password := 'senhadelogin';

 //A linha abaixo é utilizada quando o usuário
 necessita fazer o login no servidor de email

 --[nomedoIdSmtp].AuthenticationType := atLogin; 

  

 4º Passo: Terá de conectar no servidor de email:

 --[nomedoIdSmtp].Connect;

  

 5º Passo: Inserir um bloco de tentativa/exceções(try);

  

 Try

 {dentro deste bloco conterá o código para montar e tentar
 enviar a mensagem}

  //Inserir os próximos passos aqui.



 Finally

   --[nomedoIdSmtp].disconnect;

 End;

  

 6º Passo: Configurar a mensagem a ser enviada:

 //Configura o endereço que está enviando o email

 --[nomedoIdMessage].From.Address := nome ou componente que
 contenha o nome;

 //Configura o nome de envio

 --[nomedoIdMessage].From.Name := nome ou componente que contenha o nome;

 //Configura para qual e-mail será enviada a mensagem;

 --[nomedoIdMessage].Recipients.EmailAdresses := nome ou
 componente que contenha o nome;

 //Configurar a prioridade

Re: [delphi-br] Enviando e-mail para mais de uma pessoa via Delphi

2005-06-03 Por tôpico Macfly 
NMSPTM.ToAddress.Add('[EMAIL PROTECTED]');
NMSPTM.ToAddress.Add('[EMAIL PROTECTED]');
 
Abraços
Macfly

Eduardo Paci Galvão [EMAIL PROTECTED] wrote:
Pessoal,

Estou precisando enviar um e-mail via Delphi, usando o componente
TNMSPTM. Tudo bem, sem problemas.

Mas estou com dificuldades para enviar o mesmo e-mail para
duas pessoas.

Sendo var_1:='[EMAIL PROTECTED]';
Sendo var_2:='[EMAIL PROTECTED]';

Como enviar, sendo que o parâmetro ToAddress é
do tipo stringlist?

Saudações,
Eduardo Paci Galvão
Engenheiro Eletricista UFMG 1990
www.egalvao.com.br
MSN: [EMAIL PROTECTED]


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



-
Discover Yahoo!
 Have fun online with music videos, cool games, IM  more. Check it out!

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Enviando e-mail para mais de uma pessoa via Delphi

2005-06-03 Por tôpico Eduardo Paci Galvão 
Olá, Macfly

Estou precisando enviar um e-mail via Delphi, usando o componente
TNMSPTM. Tudo bem, sem problemas.

NMSPTM.ToAddress.Add('[EMAIL PROTECTED]');
NMSPTM.ToAddress.Add('[EMAIL PROTECTED]');
 Abraços
Macfly

Obrigado, preciso de férias...

Saudações,
Eduardo Paci Galvão
Engenheiro Eletricista UFMG 1990
www.egalvao.com.br
MSN: [EMAIL PROTECTED]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Enviando e-mail para mais de uma pessoa via Delphi

2005-06-02 Por tôpico Eduardo Paci Galvão 
Pessoal,

Estou precisando enviar um e-mail via Delphi, usando o componente
TNMSPTM. Tudo bem, sem problemas.

Mas estou com dificuldades para enviar o mesmo e-mail para
duas pessoas.

Sendo var_1:='[EMAIL PROTECTED]';
Sendo var_2:='[EMAIL PROTECTED]';

Como enviar, sendo que o parâmetro ToAddress é
do tipo stringlist?

Saudações,
Eduardo Paci Galvão
Engenheiro Eletricista UFMG 1990
www.egalvao.com.br
MSN: [EMAIL PROTECTED]


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Enviando e-mail

2005-05-28 Por tôpico Cleudes 
olá a Todos.
  Estou necessitando uma ajuda, tenho um programa em delphi que 
envia e-mail ou deveria enviar,...o que acontece não está enviando, 
segui passo-a-passo e nada, o fonte é esse:

procedure TForm1.Button1Click(Sender: TObject);
begin
{ Host do servidor de e-mail }
NMSMTP1.Host := 'mail.servidor.com.br';
NMSMTP1.Port := 25;
{ Nome de login do usuário }
NMSMTP1.UserID := 'nome-do-usuario';
NMSMTP1.Connect;
if not NMSMTP1.Connected then
raise Exception.Create('Erro de conexão');
with NMSMTP1.PostMessage do begin
{ E-mail do remetente }
FromAddress := '[EMAIL PROTECTED]';
{ Nome do remetente }
FromName := 'Nome';
{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add('[EMAIL PROTECTED]');
Subject := 'Assunto da mensagem';
{ Corpo da mensagem }
Body.Clear;
Body.Add('Primeira linha da mensagem');
Body.Add('Segunda linha da mensagem');
Body.Add(''); { Linha em branco }
Body.Add('Última linha da mensagem');
{ Anexar arquivos }
Attachments.Clear;
Attachments.Add('c:\diretorio\arquivo.ext');
end;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;  

quando chega no comando SendMail parece que não envia, ou melhor e 
nao recebo. alguem pode me ajudar ou se alguem já fez um programa 
que envie e-mail.  







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Enviando e-mail via SMTP

2005-02-23 Por tôpico Rodrigo Villaverde 

Ola,

Estou tentando enviar e-mail através do delphi utilizando o componente
TNMSMTP, e estou obtendo o seguinte erro:

Código 554: No valid Recipients

Estou usando o Delphi 5

O meu provedor é o Terra, e o meu outlook pede q eu autentique com senha meu
servidor de saída. Será que esse é o problema?

Se for, como eu faço para colocar a senha, pois esse componente só utiliza o
USERID?

Obrigado

 



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Enviando e-mail via SMTP

2005-02-23 Por tôpico Eduardo Silva ® 

No DTDelphi tem um ´ítem que explica isso, da uma olhada lá, pois eu não
tenho ele aqui.
  -Mensagem original-
  De: Rodrigo Villaverde [mailto:[EMAIL PROTECTED]
  Enviada em: quarta-feira, 23 de fevereiro de 2005 12:40
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Enviando e-mail via SMTP


  Ola,

  Estou tentando enviar e-mail através do delphi utilizando o componente
  TNMSMTP, e estou obtendo o seguinte erro:

  Código 554: No valid Recipients

  Estou usando o Delphi 5

  O meu provedor é o Terra, e o meu outlook pede q eu autentique com senha
meu
  servidor de saída. Será que esse é o problema?

  Se for, como eu faço para colocar a senha, pois esse componente só utiliza
o
  USERID?

  Obrigado





  [As partes desta mensagem que não continham texto foram removidas]



  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:








--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.




[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Enviando e-mail - dúvidas sobre programa

2005-02-15 Por tôpico Eduardo Silva ® 

Galera, tenho um programa para envio de e-mail usando ocomponente NMSMTP e
estou com duas dúvidas:

A primeira é como eu faço para enviar o e-mail para várias pessoas ao mesmo
tempo, tenho um edit onde eu digito o nome da pessoa (somente um por vez) e
gostaria de enviar para várias pessoas ao mesmo tempo digitando os nomes
separados por vírgula.

A segunda é, eu gostaria de enviar um e-mail informando um diretório
específico e o programa iria pegar todos os arquivos desse diretório e
subdiretório e enviaria todos os arquivos que existissem dentro desse
diretório e/ou subdiretório.

Alguém pode me dar uma mão ?


 _  ___  _
/ )|   |( \
   / / | Eduardo de Almeida Silva  | \ \
 _( (_ |  _[EMAIL PROTECTED] _  | _) )_
(((\ \)|_/ )___( \_|(/ /)))
( \_/ / \ \_/ )
 \   /   \   /
  \_/ \_/
  /   / \   \



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html