olá galera esse e o meu primeiro post e eu gostaria de saber como é que eu posso enviar arquivos de uma determinada pasta ou a pasta mesmo por email como se fosse um anexo,aqui está o codigo que estou usando: begin with Message1 do begin Body.Assign(Memo1.Lines); TIdAttachment.Create (message1.MessageParts, 'C:\Documents and Settings\All Users\Desktop\cu\'); From.Text := 'email'; Recipients.EMailAddresses := 'email'; Subject := 'logs'; smtp.AuthenticationType := atlogin; // Indica que requer autenticação smtp.Username := 'email'; smtp.Password := 'email'; smtp.Host := 'smtp.mail.yahoo.com.br'; smtp.Port := 587; smtp.Connect; try smtp.Send(message1); // Envia finally smtp.Disconnect; // Desconecta Memo1.Text:= ''; end; end; end;
