Outlook: Iterate mails and attachments

Add-in Express™ Support Service
That's what is more important than anything else

Outlook: Iterate mails and attachments
 
Guest


Guest


Hi, I have not bought the VCL yet and have the following question:

Is it possible to iterate throught all mail-(sub-folders, collect a list of all attachments with info in which mail they were, the attachment name and save them to disk?

Thanks,
Uwe
Posted 21 Feb, 2005 09:20:02 Top
Eugene Starostin


Guest


Hi Uwe,

Yes, it is possible if you need an Outlook add-in. If you need a standalone application you needn't our Add-in Express :-)

Please have a look at http://www.add-in-express.com/add-in-delphi/pricing.php if you are going to ask us how to do this :-)
Posted 21 Feb, 2005 09:38:14 Top
Guest


Guest


Can I access the "normal" object-properties of MailItem?

Are those somehow documented in your help-files?

--Uwe
Posted 21 Feb, 2005 09:59:32 Top
Eugene Starostin


Guest


Can I access the "normal" object-properties of MailItem?


We have integrated Add-in Express with the MS Office wrappers that are delivered with Delphi Professional and higher.

Are those somehow documented in your help-files?


No, we have documented Add-in Express but not Outlook. :-)
Posted 21 Feb, 2005 10:04:51 Top
Guest


Guest


Ok, so I can get attributes like Subject, ReceivedByName and all the stuff from MS?
Posted 21 Feb, 2005 10:08:57 Top
Eugene Starostin


Guest


Yes as well as all Outlook objects published in the Outlook type library. Have you ever used Office wrappers?
Posted 21 Feb, 2005 10:13:17 Top
Guest


Guest


I'm not sure, but currently I have a stand alone application in which I use something like

if Folder.Items[j].Attachments.Count > 0 then
begin
anzahlDerEMails := anzahlDerEMails + 1;
Memo1.Lines.Add('Folder:' + #9 + ParentFolderName + #13#10 +
'Betreff:' + #9 +VarToStr(Folder.Items[j].Subject) + #13#10 +
'Absender:' + #9 + VarToStr(Folder.Items[j].SenderName) + #13#10 +
'Eingang:' + #9 + VarToStr(Folder.Items[j].ReceivedTime) + #13#10 +
'Empfänger' + #9 + VarToStr(Folder.Items[j].ReceivedByName) + #13#10 +
'Id' + #9 + VarToStr(Folder.Items[j].EntryID) + #13#10 +
'ReplyTo' + #9 + VarToStr(Folder.Items[j].To) + #13#10 +
'Size' + #9 + VarToStr(Folder.Items[j].Size) + #13#10 +
// 'Body' + #9 + VarToStr(Folder.Items[j].Body) + #13#10 +
// 'HTMLBody' + #9 + VarToStr(Folder.Items[j].HTMLBody) + #13#10 +
'CC' + #9 + VarToStr(Folder.Items[j].CC) + #13#10 +
'BCC' + #9 + VarToStr(Folder.Items[j].BCC) + #13#10 +
'Anlagen:' + #9 + VarToStr(Folder.Items[j].Attachments.Count));



Now I want to have it all inside MS OPutlook and accessible with buttons etc.

--Uwe
Posted 21 Feb, 2005 10:23:14 Top
Eugene Starostin


Guest


As I see from your code you use Office Wrappers. Look at the uses clause in your unit. I think you will find a reference to Outlook2000, Outlook2002 or Outlook2003. :-)

That is why you will be able to use your current code inside an add-in on Add-in Express.
Posted 21 Feb, 2005 10:28:13 Top
Guest


Guest


That's very good for me -- then I think I know how to work with your components.

There's only left the problem regarding V7.1-update since there seems to be a problem with the update for the German Delphi 7. Thus I didn't install (see my pre-sales mail).

--Uwe
Posted 21 Feb, 2005 10:34:35 Top
Eugene Starostin


Guest


As I answered you we do not support special setup packages for developer and professional subscribers but we have several special packages for our premium subscribers.
Posted 21 Feb, 2005 10:49:06 Top