Solved

Delphi 2009 & Indy 10 email attachments

Posted on 2009-07-09
13
2,494 Views
Last Modified: 2012-05-07
I am upgrading from Delphi 7 with Indy 9 to Delphi 2009 and Indy 10.

I get Indy to attach a document to a email but the recipient receives a email with the attachment names ATT????.Dat although I attached a PDF file. If the recipient save's this as a PDF file it is the correct file.

How can I get Indy to send the correct attachment name.
MSG.Clear;

        if tbEmPendAttachment.Value <> '' then

        begin

          l_attachment := MailDir + '\' + tbEmPendAttachment.Value;

          TIdAttachmentFile.Create(Msg.MessageParts,l_attachment);

        end;

        if tbEmPendAttachment2.Value <> '' then

        begin

          MailFile := TIdAttachmentFile.Create(Msg.MessageParts,

          tbEmPendAttachment2.Value);

          MailFile.DisplayName := Msg.Subject;

        end;

        MSG.From.Text := Trim(tbEmPendFrom.Value);

        MSG.ReplyTo.EMailAddresses := Trim(tbEmPendFrom.Value);

        MSG.Recipients.EMailAddresses := trim(tbEMPendTo.Value);

        MSG.Subject := tbEmPendSubject.Value;

        MSG.ReceiptRecipient.Text := tbEmPendFrom.Value;

        l_body := TStringList.Create;

        l_body.Text := tbEmPendNote.Value;

        MSG.Body.Assign(l_body);

        l_body.Free;

        SMTP.Send(Msg);

Open in new window

0
Comment
Question by:gerhard9121
  • 7
  • 5
13 Comments
 
LVL 14

Expert Comment

by:SteveBay
Comment Utility
I had to solve the same issue but I don't remember exactly how I did it. I think it had something to do with AttachmentEncoding.

Try adding this line some where prior to making your attachment.
MSG.AttachmentEncoding  := 'MIME';
0
 

Author Comment

by:gerhard9121
Comment Utility
Tried adding MSG.AttachmentEncoding  := 'MIME' but it still attaches a ATT?????.Dat
0
 
LVL 14

Expert Comment

by:SteveBay
Comment Utility
Well it did take a fair amount of trial and error on my part to figure it out.
Also may need to add:
MSG.Encoding := meMIME;
0
 

Author Comment

by:gerhard9121
Comment Utility
MSG.Encoding := meMIME;

This makes no difference. Any other suggestion please
0
 
LVL 14

Expert Comment

by:SteveBay
Comment Utility
Have you tried setting:
MailFile.Filename := tbEmPendAttachment2.Value;
0
 

Author Comment

by:gerhard9121
Comment Utility
I have changed my code but no luck so far
    l_attachment := MailDir + '\' + tbEmPendAttachment.Value;

    MailFile := TIdAttachmentFile.Create(Msg.MessageParts,l_attachment);

    MSG.Encoding := meMime;

    Mailfile.FileName := tbEmPendAttachment.Value;

Open in new window

0
Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

 
LVL 14

Expert Comment

by:SteveBay
Comment Utility
Sorry, I know I have gone through this same stuff but I cannot remember exactly what solved it for me. If I stumble accross it I will post.
0
 

Author Comment

by:gerhard9121
Comment Utility
Thanks for your help sofar. I have been battling with this for a couple of days and require a solution urgently
0
 

Author Comment

by:gerhard9121
Comment Utility
The problem is with the version of Indy10 distributed with Delphi 2009. I downloaded the latest Indy after deleting all older indy file and recompiled Indy. Everything went well but cant load the dclIndyProtocols package. According to Indy it is because I still have old Indy files but I have checked this and still think it is an error in their source code.
0
 
LVL 14

Expert Comment

by:SteveBay
Comment Utility
When you say "can't load dclIndyProtocols package" - what happens, an error?
When that happens it's usually a problem with the library path
0
 

Author Comment

by:gerhard9121
Comment Utility
I receive the following errro:

'The procdure entry point @Idheadercoderindy@anitialization&qqrv could not be located in the dynamik link library IndyProtocals120.bplgerhardodendaal
 
0
 
LVL 22

Accepted Solution

by:
mnasman earned 500 total points
Comment Utility
Have you tried the fix here? :
http://blog.digivendo.com/2008/10/fix-indy-mail-attachments-filenames-lost-in-d2009/

also the error you got seems by old version of indy, try to delete indy, and all indy *.bpl from delphi lib and windows system32 folder, then try to install the newer one
0
 

Author Comment

by:gerhard9121
Comment Utility
As I previously stated the problem was in teh version of Indy distributed with Delph 2009. I loaded the latest version of Indy but could not get the components to load. I bypassed this problem by creating them at runtime.
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Suggested Solutions

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
This video discusses moving either the default database or any database to a new volume.

728 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now