Envio de anexo por email NMSmtp1 D6
Amigos estou com problema que é o envio de anexo de um arquivo .txt pra enviar no delphi para um devido email do yahoo com serviço de pop habilitado. Na compilação da erro na linha:
{ Endereço do anexo }
Attachments.Add(caminhocrt);
e naum compila de jeito nenhum. Alguem tem alguma dica...
o4pr3ndiz@gmail.com
Vejam o codigo completo...
//envia o anexo em anexo por email
//Processo de reconhecimento no POP3 do YAHOO
NMPOP31.AttachFilePath := ´.´;
NMPOP31.DeleteOnRead := FALSE;
NMPOP31.ReportLevel := Status_Basic;
NMPOP31.TimeOut := 20000;
NMPOP31.Host := ´pop.mail.yahoo.com.br´;
NMPOP31.Port := 110;
NMPOP31.UserID := ´id_usuario_yahoo´;
NMPOP31.Password := ´123456´;
NMPOP31.Connect;
//Conexão não feita ele sai
//Conexão feita ele desconecta e prossegue
if not NMPOP31.Connected then exit else NMPOP31.Disconnect;
//Prosseguindo ele agora tenta se conectar ao SMTP do YAHOO
NMSMTP1.ClearParams := TRUE;
NMSMTP1.Host := ´smtp.mail.yahoo.com.br´;
NMSMTP1.Port := 25;
NMSMTP1.UserID := ´id_usuario_yahoo´;
NMSMTP1.Connect;
//Conexão não feita ele sai
//Conexão feita ele prossegue
If not NMSMTP1.Connected then exit;
//Processo de envio
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.ToAddress.Clear;
NMSMTP1.PostMessage.FromAddress := ´amigocrt@yahoo.com.br´;
NMSMTP1.PostMessage.FromName := ´Meu amigo CRT:´;
NMSMTP1.PostMessage.Body.Add(´Numero de IP:´);
// NMSMTP1.PostMessage.Subject := (ip.LocalName);
NMSMTP1.PostMessage.ToAddress.Add(´respositorio_ja@yahoo.com.br´);
{ Anexar arquivos(Se não quiser anexar arquivos, apague as 3 linhas seguintes) }
//Attachments.Clear;
{ Endereço do anexo }
Attachments.Add(caminhoarquivoenvio);
NMSMTP1.SendMail;
end;
{ Endereço do anexo }
Attachments.Add(caminhocrt);
e naum compila de jeito nenhum. Alguem tem alguma dica...
o4pr3ndiz@gmail.com
Vejam o codigo completo...
//envia o anexo em anexo por email
//Processo de reconhecimento no POP3 do YAHOO
NMPOP31.AttachFilePath := ´.´;
NMPOP31.DeleteOnRead := FALSE;
NMPOP31.ReportLevel := Status_Basic;
NMPOP31.TimeOut := 20000;
NMPOP31.Host := ´pop.mail.yahoo.com.br´;
NMPOP31.Port := 110;
NMPOP31.UserID := ´id_usuario_yahoo´;
NMPOP31.Password := ´123456´;
NMPOP31.Connect;
//Conexão não feita ele sai
//Conexão feita ele desconecta e prossegue
if not NMPOP31.Connected then exit else NMPOP31.Disconnect;
//Prosseguindo ele agora tenta se conectar ao SMTP do YAHOO
NMSMTP1.ClearParams := TRUE;
NMSMTP1.Host := ´smtp.mail.yahoo.com.br´;
NMSMTP1.Port := 25;
NMSMTP1.UserID := ´id_usuario_yahoo´;
NMSMTP1.Connect;
//Conexão não feita ele sai
//Conexão feita ele prossegue
If not NMSMTP1.Connected then exit;
//Processo de envio
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.ToAddress.Clear;
NMSMTP1.PostMessage.FromAddress := ´amigocrt@yahoo.com.br´;
NMSMTP1.PostMessage.FromName := ´Meu amigo CRT:´;
NMSMTP1.PostMessage.Body.Add(´Numero de IP:´);
// NMSMTP1.PostMessage.Subject := (ip.LocalName);
NMSMTP1.PostMessage.ToAddress.Add(´respositorio_ja@yahoo.com.br´);
{ Anexar arquivos(Se não quiser anexar arquivos, apague as 3 linhas seguintes) }
//Attachments.Clear;
{ Endereço do anexo }
Attachments.Add(caminhoarquivoenvio);
NMSMTP1.SendMail;
end;
O4pr3ndiz
Curtidas 0
Respostas
Otto
03/05/2005
tente assim:
:wink:
NMSMTP1.Attachments.Add(caminhocrt);
:wink:
GOSTEI 0
O4pr3ndiz
03/05/2005
o mesmo problema esta acontecendo com o codigo que enviou....
NMSMTP1.Attachments.Add(caminhocrt);
o compilador para na linha e avisa..
undeclarier identifier...
NMSMTP1.Attachments.Add(caminhocrt);
o compilador para na linha e avisa..
undeclarier identifier...
GOSTEI 0
Massuda
03/05/2005
Não uso esse componente, mas pelo código que você postou, o lógico seria usar
NMSMTP1.PostMessage.Attachments.Add(caminhoarquivoenvio);
GOSTEI 0