Fórum Envio de anexo por email NMSmtp1 D6 #279834
03/05/2005
0
{ 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
Curtir tópico
+ 0Posts
03/05/2005
Otto
NMSMTP1.Attachments.Add(caminhocrt);
:wink:
Gostei + 0
03/05/2005
O4pr3ndiz
NMSMTP1.Attachments.Add(caminhocrt);
o compilador para na linha e avisa..
undeclarier identifier...
Gostei + 0
03/05/2005
Massuda
NMSMTP1.PostMessage.Attachments.Add(caminhoarquivoenvio);
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)