ntType := GetMIMETypeFromFile(ResumeLocation);

Giganews Newsgroups
Subject: ntType := GetMIMETypeFromFile(ResumeLocation);
Posted by:  Rhys Sage (abu…@127.0.0.1)
Date: Tue, 17 Feb 2004

I get an error that says that  GetMIMETypeFromFile is unrecognised. I'm sure
I've done this before. What's the solution?

    begin
    MakeupLetter;
    with TIdText.Create(idMessage1.MessageParts) do
      begin
      IdMessage1.Body.AddStrings(RichEdit2.Lines);
      // now add original email + header
      IdMessage1.Body.AddStrings(RichEdit1.Lines);
      IdMessage1.Body.AddStrings(RichEdit4.Lines);
      MarkCVSent(IdMessage1.From.Address);
      end;
    // attach CV to mailing
    with TIdAttachment.Create(idMessage1.MessageParts, ResumeLocation) do
      begin
      ContentType := GetMIMETypeFromFile(ResumeLocation);
      FileName := ExtractFileName(ResumeLocation);
      end;
    end;

--
Yours

Rhys

Join the anti-spam project:
http://groups.yahoo.com/group/Anti-Spam-Development/
or view my website:
http://www.sageworld.freeserve.co.uk

"Linux - an operating system that wants to work.
Windows - an operating system that mostly works.
Mac OS - an operating system that really works."

Replies