Save Attachment in VFP9 1

[Admigha]

How Can I Save Attachment w/o openning Outlook Express in VFP9?
knowing that I'm using CDO to send e-mails via FoxPro.
thanks.

Tony Lama
Admigha SoftHouse

 

[Nifrabar]

Hi!,
As far as my knowlegde goes this is not possible with outlook express.
Using Outlook might make sense.
-Bart

 

[Mike Lewis]

Tony,

You say you are "opening Outlook Express in VFP 9". How exactly are you doing that?

As far as I know, there's no way to control OE from VFP. At best, you can only launch it and then work with it interactively. Or, you can open a message composing window, with the fields pre-populated with text that you specify. But you cannot access it programmatically in any way.

As Bart say, it's a different story with the full Outlook.

Mike



__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[Olaf Doschke]

Hi Mike and Nifrabar,

while you cannot OLE automate Outlook Express it's MAPI compliant and you can use MAPI.Session etc. to control it.

See if you have C:\Program Files\Shared\Microsoft System\MSMAPI\1031 or can create a MAPI.Session object. If you use CDO this should be possible.

Local lnCount, loMapiSession, loInbox, loMessage, loAttachment

MkDir D:\attachments
lnCount = 0

loMapiSession = CreateObject("MAPI.Session")
loMapiSession.Logon("Outlook") && modify this for your needs

loInbox = loMapiSession.GetDefaultFolder(1) && this too, if you have multiple inbox folders

For Each loMessage IN loInbox.Messages
    If loMessage.Attachments.Count>0
       For Each loAttachment IN loMessage.Attachments
          ? loAttachment.Name
          If InList(loAttachment.Type,1,2)
             loAttachment.WriteToFile("D:\attachments\"+loAttachment.Name)
             lnCount = lnCount + 1
          EndIf
       EndFor 
    EndIf
    * Just a demo, don't save all attachments to disk, that could take a while...
    If lnCount>5 
       Exit    
    EndIf 
EndFor

You could eg check loMessage.Unread and only save attachments of new mails.

Bye, Olaf.

 

[Admigha]

Thanks OlafDoschke,
this is exactly what I was looking for,
I tried it and I helped me.
Thanks again.
Tony Lama
Admigha SoftHouse


Tony Lama
Admigha SoftHouse

 

[Mike Lewis]

Olaf,

I can see how that would solve the problem, but how is it using Outlook Express?

Tony,

Glad to see the problem's solved. But I think you meant to give the start to Olaf, not to me.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[DSummZZZ]

Mike,
Not to nit pick, but I think you've gone and confused yourself:

How Can I Save Attachment w/o openning Outlook Express in VFP9?

So even though Olaf's code isn't controlling OE after all, the answer is still good.



-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[Mike Lewis]

Dave,

You're right (of course). I hadn't taken in that w/o means without. (There's a lot to be said for clarity in writing, but perhaps that's being old-fashioned.)

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[Admigha]

Hi Olaf,
In fact, I was looking for a solution either in Outlook or OE, the solution you gave me is good for outlook, and it didn't work on Outlook express, If I find the solution I will let you know.
Thanks again.

Tony Lama
Admigha SoftHouse

 

[Nifrabar]

Maybe this give you some help:

http://www.aksel.com/whitepapers/OutlookAutomation.htm

http://www.tedroche.com/Present/2003/OutlookAutomation.html

faq184-3894

-Bart

 

[Olaf Doschke]

Sorry, my code does control the default mail program, as long as it's MAPI compliant, it does not rely on Outlook or Outlook Express. Don't be confused, that I use "Outlook" in my Login call. As the comment says this needs to be modified, it's simply that my mail profile is called Outlook, it is not Oultook specific code.

Simply make the call
loMapiSession.Logon()
without any parameters and you'll get an interactive logon.

Bye, Olaf.

 

[Admigha]

Hi Olaf,
As I mensioned, It is working fine on the computer using Outlook, but on the other computer not having outlook it doesn't work, it may need some MAPI components to be installed.

Tony Lama
Admigha SoftHouse

 

[Olaf Doschke]

This should be the needed download:

http://www.microsoft.com/downloads/...31-079A-43A9-BFF2-0A110307611E&displaylang=en

Bye, Olaf.