Using MAPI to send PDF Attachments From Delphi

I am using MAPI to send emails from my Delphi App. The Email is constructed and then the Report, which is a PDF file, is attached. This works perfectly from Delphi and up until now I thought was working correctly.

My Problem is that the workstations are using Outlook to send the email. Outlook to Outlook there is no problem but if our customers are using Outlook Express to receive the email the Attachment is stripped. I have tested this to a Web-mail based email and the file is replaced with a winmail.dat file. I have checked and the Outlook is set to send in Plain Text (Not rich text)

Upon viewing the Message source I have noticed this

Content-Type: application/ms-tnef;
Content-Transfer-Encoding: base64
Content-Disposition: attachment;

Is there a way that I can force the mime encoding of this attachment prior to sending.? Or somehow stop this annoying M$ quirk from happening ??


Who is Participating?
moorhouselondonConnect With a Mentor Commented:
You obviously know about the TNEF problem, the attached link seems to be M$'s definitive answer on this issue

I'm sure, by using Indy you can bypass the problem as suggested by Ivanov_G.  Presumably you would need to CC the sender so that they receive a copy of the email that has been sent on their behalf.
Content-Transfer-Encoding: base64 !!!

Why you are using B64? Probably it is what cause the problem. Date if to HDD and open it with Notepad. Inside you should see the original file name as well as the encoded file content...
andyd70Author Commented:
Thanks for the relpy.
I don't actually specify the encoding. It does it by default MAPI Client I think ? So how do I stop this ? I can't seem to find the property to set. I need to be able to do this automatically so that our customers receive the file regardless of the email client they are using.

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Well, for MAPI - I don't know. With Indy components TidSMTP, TidMessage, TidAttachment you can send emails without any problems...
andyd70Author Commented:
Yeah I know I can use Indy (and I used to) but with Mapi the Files are put in the Sent Items of the Default mail client. Handy when it comes to resending the reports. But if that is my option i guess i have to take that approach. For 1000 pts why does M$ make things so bloody difficult ???
> "with Mapi the Files are put in the Sent Items of the Default mail client"

This is good point, so I think for now you should stick to MAPI. Probably you are sending the mails from a PC where Outlook is installed. Maybe it has some encoding options set, which are not supported in Outlook Express ?!
The link I posted has references to MS Exchange - if the host system uses Exchange then this can affect outgoing emails too - depending on what's configured there.

On the Sent Items issue - can a Message Rule plonk the message into Sent?  
andyd70Author Commented:
I accepted moorehouslondons answer although I did already try Indy but as I said I need it to be in the users sent items. However he did bring up the exact problem I am trying to get around (which I had found out previously).
Surely there must be a work around this. back to the drawing board I guess.
Thank you for the points.

Maybe Component Obect Model is the answer.  Get Delphi to send the email using Indy, then use COM techniques to put the message into Outlook's Sent box?
if you look inside the email, you'll probably see that the attachment is there,
do you get an winmail.dat file also ?

if so, in MAPI , set the address to nil, and put the email address in the name field

      Receip.lpszAddress := nil;  // this one prevents winmail.dat
      Receip.lpszName :=    --> put the email adress here

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.