Download emial attachment

What email platform are you using (Outlook, etc...)?

Dim myOlapp As Application
Dim myFolder As MAPIFolder
Dim myNameSpace As NameSpace
Dim myItems As Items
Dim myAttach as Attachment
Dim PATH_YOU_WANT as String

PATH_YOU_WANT = "C:\Temp\"
Set myOlapp = CreateObject("Outlook.Application")
Set myNameSpace = myOlapp.GetNamespace("MAPI")
Set myFolder = myNameSpace.Folders("Inbox") 'change folder name if different

For Each myItem in myFolder.Items
 For Each myAttach in myItem.Attachments
     myAttach.SaveAsFile PATH_YOU_WANT & myAttach.DisplayName
 Next
Next

'then you can extract the attachments from the location you just saved...

https://www.experts-exchange.com/questions/20368179/How-extract-attach-file-of-Outlook-to-a-directory.html

Yes ofcourse what you have said is correct
this works fine. But the problem is
we didn't have outlook in our system
So Is there any other way to configure directly
and get the attachment.

We have a pop3 Exchange Server.
Which receives mails with attachements.
and stored them for approptiate users
So my program has to get the mails
from the pop3 server for a given user
and store the attachment files in a specified folder
of the local system.

I have got a program to retrieve pop3 mails
from server but i can't get the attachment.
I comes as some texts.I want to download the mp3
file.

Hi robertz,
It appears that you have forgotten this question. I will ask Community Support to close it unless you finalize it within 7 days. I will ask a Community Support Moderator to:

    Refund points and save as a 0-pt PAQ.

robertz, Please DO NOT accept THIS comment as an answer.
EXPERTS: Post a comment if you are certain that an expert deserves credit.  Explain why.
==========
DanRollins -- EE database cleanup volunteer