envio de email
10/03/2003
0
utilizo o componente smtp da indy
uso a velox para acessar a internet
uso o proxyi como servidor proxy
estou tentando enviar um email de uma estacao
rede win98 com ip
IdSMTP1.Host := ´smtpcorp.veloxmail.com.br´;
IdSMTP1.Port := 25;
IdSMTP1.UserID := vuserid;
IdSMTP1.Password := vuserid;
a velox requer autenticacao
socksinfo
authentication := saUsernamePassword;
host := ip do servidor na rede (estou em uma estacao.utilizo o proxyi
como servidor proxy)
password := senha da conta que é autenticada
userid := conta que é autenticada
version := svSocks4;
nao esta funcionado,qual o problema ?
uso a velox para acessar a internet
uso o proxyi como servidor proxy
estou tentando enviar um email de uma estacao
rede win98 com ip
IdSMTP1.Host := ´smtpcorp.veloxmail.com.br´;
IdSMTP1.Port := 25;
IdSMTP1.UserID := vuserid;
IdSMTP1.Password := vuserid;
a velox requer autenticacao
socksinfo
authentication := saUsernamePassword;
host := ip do servidor na rede (estou em uma estacao.utilizo o proxyi
como servidor proxy)
password := senha da conta que é autenticada
userid := conta que é autenticada
version := svSocks4;
nao esta funcionado,qual o problema ?
Helder Andr
Curtir tópico
+ 0
Responder
Posts
10/03/2003
Anonymous
1. Coloque um componente TNMSMTP no form.
2. Coloque um botão e no evento OnClick deste botão escreva:
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Seu servidor SMTP }
NMSMTP1.Host := ´smtp.servidor.com.br´;
{ Porta SMTP, **NÃO MUDE ISTO** }
NMSMTP1.Port := 25;
{ Nome de login do usuário }
NMSMTP1.UserID := ´MeuLogin´;
{ Conecta ao servidor }
NMSMTP1.Connect;
{ Se ocorrer algum erro durante a conexão com o servidor, avise! }
if not NMSMTP1.Connected then
raise Exception.Create(´Erro de conexão´);
with NMSMTP1.PostMessage do begin
{ Seu e-mail }
FromAddress := ´meuemail@meuserver.com.br´;
{ Seu nome }
FromName := ´Meu Nome´;
{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add(´destinatario@servidor.com.br´);
{ Assunto da mensagem }
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(Se não quiser anexar arquivos, apague as 3 linhas seguintes) }
Attachments.Clear;
{ Endereço do anexo }
Attachments.Add(´c:\diretorio\arquivo.ext´);
end;
{ Manda o e-mail }
NMSMTP1.SendMail;
{ Disconecta do servidor }
NMSMTP1.Disconnect;
end;
2. Coloque um botão e no evento OnClick deste botão escreva:
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Seu servidor SMTP }
NMSMTP1.Host := ´smtp.servidor.com.br´;
{ Porta SMTP, **NÃO MUDE ISTO** }
NMSMTP1.Port := 25;
{ Nome de login do usuário }
NMSMTP1.UserID := ´MeuLogin´;
{ Conecta ao servidor }
NMSMTP1.Connect;
{ Se ocorrer algum erro durante a conexão com o servidor, avise! }
if not NMSMTP1.Connected then
raise Exception.Create(´Erro de conexão´);
with NMSMTP1.PostMessage do begin
{ Seu e-mail }
FromAddress := ´meuemail@meuserver.com.br´;
{ Seu nome }
FromName := ´Meu Nome´;
{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add(´destinatario@servidor.com.br´);
{ Assunto da mensagem }
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(Se não quiser anexar arquivos, apague as 3 linhas seguintes) }
Attachments.Clear;
{ Endereço do anexo }
Attachments.Add(´c:\diretorio\arquivo.ext´);
end;
{ Manda o e-mail }
NMSMTP1.SendMail;
{ Disconecta do servidor }
NMSMTP1.Disconnect;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)