[Webinar] Streamline your web hosting managementRegister Today

x
?
Solved

Delphi / Indy. Problem with sending email with attachments

Posted on 2010-09-08
4
Medium Priority
?
2,426 Views
1 Endorsement
Last Modified: 2012-06-21
Good Day

I am having trouble with sending out emails with a pdf attachments. I am using wpdf to generate the pdf documents.

I create entries into a table and then I read one by one from the table and send the emails out with the attachments. Sometimes I can send 20 emails with the pdf attachment and I works 100%, but other times I get the emails with the following error : "Disposition: attachment".

I have included the body of the email.

Please advice what the problem is and how can I solve this. EMail-body.txt
1
Comment
Question by:henryreynolds
  • 2
  • 2
4 Comments
 
LVL 5

Accepted Solution

by:
briangochnauer earned 2000 total points
ID: 33627532
Try the code below; works for me on tens of thousands of clients it's running on.
function SendMailResults(const email:String):boolean;
var sendfile :string;
    IdSMTP1  : TIdSMTP;
    SentMsg  : TIDMessage;
    Attachment : TIdAttachmentfile;
    base :string;
const CRLF : string = #10#13;
begin

    IdSMTP1 := TIdSMTP.Create(self);
    Name := 'IdSMTP1';
    idSMTP1.Host := emailSMTPHost; //like '10.105.0.0';
    SentMsg := TIDMessage.Create(nil);

    with SentMsg do
      begin
        IsEncoded := True ;
        Encoding := meMIME;
        Subject :=  'PDF';
        Body.Add('PDF attached');
        From.address := emailSMTPFrom;//'ed at mail dot nl';
        Recipients.EMailAddresses := email;//'jk at them dot nl';
      end;

    sendfile := 'c:\yourfile.pdf';
    if FileExists(SendFile) then
     begin
       Attachment := TIdAttachmentfile.Create(SentMsg.MessageParts,SendFile);
//      Attachment.ContentDisposition := 'attachment';
//      Attachment.ContentType := 'text/xml';
       Attachment.FileName := SendFile;
     end;

  try
    try
      idSMTP1.Connect;
      idSMTP1.Send(SentMsg) ;
    except on E:Exception do
      ShowMessage('ERROR: ' + E.Message);
    end;
  finally
    if idSMTP1.Connected then idSMTP1.Disconnect;
  end;
end;

Open in new window

1
 

Author Comment

by:henryreynolds
ID: 33644204
Hi

I have tried your example but I still get sometimes the same error message.

Please help
0
 
LVL 5

Expert Comment

by:briangochnauer
ID: 33645621
I would check the smtp server for errors or maybe your client is decoding the message incorrectly.
Your 'email-body.txt' file reminds me of client side problems I have had.
0
 

Author Closing Comment

by:henryreynolds
ID: 33768640
done
0

Featured Post

[Webinar] Improve your customer journey

A positive customer journey is important in attracting and retaining business. To improve this experience, you can use Google Maps APIs to increase checkout conversions, boost user engagement, and optimize order fulfillment. Learn how in this webinar presented by Dito.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
SQL Database Recovery Software repairs the MDF & NDF Files, corrupted due to hardware related issues or software related errors. Provides preview of recovered database objects and allows saving in either MSSQL, CSV, HTML or XLS format. Ensures recov…
In this video I will demonstrate how to set up Nine, which I now consider the best alternative email app to Touchdown.
Suggested Courses
Course of the Month8 days, 19 hours left to enroll

590 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