Fórum Envio de anexo por email NMSmtp1 D6 #279834

03/05/2005

0

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;


O4pr3ndiz

O4pr3ndiz

Responder

Posts

03/05/2005

Otto

tente assim:


NMSMTP1.Attachments.Add(caminhocrt);



:wink:


Responder

Gostei + 0

03/05/2005

O4pr3ndiz

o mesmo problema esta acontecendo com o codigo que enviou....
NMSMTP1.Attachments.Add(caminhocrt);

o compilador para na linha e avisa..
undeclarier identifier...


Responder

Gostei + 0

03/05/2005

Massuda

Não uso esse componente, mas pelo código que você postou, o lógico seria usar
NMSMTP1.PostMessage.Attachments.Add(caminhoarquivoenvio);



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar