trække filer fra outlook til Access

can you be moe specific as to what you want?

You say "...over i min access DB hvor de placeres i en mappe så de kan nås med en link. .."

but then you say that you already can most of what you want to do "jeg kan flytte dokumenterne fra outlook til en mappe."


so iof thats the case all you need to do is save the path\filename of the documents and then using shellexecuteyou can open the files.

and I'm sure you can find loads of examples of using shellexecute in this forum

EG: http://www.eksperten.dk/spm/117416

Jeg prøver igen:
I outlook har jeg en vedhæftet fil.
Dem ønsker jeg trukket over i Access i en tekstbox.
Her skal linket til filen gemmes i Access
Selve filen skal gemmes i en mappe på disken.

can you do this?
"Jeg har det i dag så jeg kan flytte dokumenterne fra outlook til en mappe"?

Jeg prøver igen:
Ja jeg kan selvfølgelig flytte filer til en mappe det er ikke det jeg spørger om.
Jeg ønsker at trække outlooks vedhæftede filer over til en tekstbox i ACCESS 2007. Her skal linket til filen gemmes i Access
og selve filen skal saves på disken.

per2edb I'm trying to find out what you can and what you cant do already, because I dont intend waisting my time in telling you something you already know.


If you can already save an attached file to a folder then you must already have most of the code for what you want to do.

If you can do that then I assume you have the path and filename which you now can save in a textbox.

And if we dont understand each other then I think you will have to wait until someone else comes by.

Hej
If you can already save an attached file => nej den er ikke savet i en folder på dette tidspunkt.
1) filen trækkes over fra Outlook til access.
2) så spørges der om den skal saves- samt hvor.
3) der svares ja og stien angives, hvorefter den saves på disken
4) Linket til filen saves i access
5) efterfølgende kan et klik på dette link vise filen

Denne metode findes i mange professionelle programmer - benævnt - "træk og slip" MS bruger det også selv.

OK, that helps but just need to clear up 1)"filen trækkes over fra Outlook til access"

hows that done? You must obviously be able to get hold of the file(s) from outlook

klikker med musen på filen i outlook og holder den nede medens jeg trækker ocer til ACCESS og slipper over tekstboxen

well the biggets problem here is actually getting hold of the attachmenst in Oulook.

You need to break the task into a numbver of smaller tasks and then put them all together when each work.

Start by just getting the save attachments working first tthen take it from there.

Here an example which I havent tested, see if you can get taht working first.
http://www.dbforums.com/microsoft-access/985662-ms-outlook-attachments-access.html

Tak. Jeg prøver først dette

Det virker desværre ikke!!!!
Jeg har lagt nedenfor viste koder i et VBA modul i outlook
Herudover oprettet C:\new email
Der vises fejl i:

Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFo lderInbox)
og
If UCase(Right(myFolder.Items(A).Attachments(b).Displ ayName, 3)) = "XLS" Then
----- Outlook -----
Private Sub Application_NewMail()

Dim myFolder As Outlook.MAPIFolder

Set myOlApp = CreateObject("Outlook.application")
Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFo lderInbox)
Set myitem = myOlApp.CreateItem(olMailItem)

For A = 1 To myFolder.Items.Count
If myFolder.Items(A).UnRead = True Then
If myFolder.Items(A).Attachments.Count <> 0 Then
For b = 1 To myFolder.Items(A).Attachments.Count
If UCase(Right(myFolder.Items(A).Attachments(b).Displ ayName, 3)) = "XLS" Then

the_filename = "C:\new email\recd " & Format(Now(), "dd-mmm-yyyy") & " " & myFolder.Items(A).Attachments(b).DisplayName
myFolder.Items(A).Attachments(b).SaveAsFile the_filename

End If
Next
End If
End If
Next
End Sub

Jeg har lagt nedenfor viste koder i et VBA modul i outlook

??
Now you have confused me!

The code is supposed to be in access which gets the attachments from Outlook

Ohhhh?
Det prøver jeg

Det virker heller ikke?
Der vises fejl i:

Dim myFolder As Outlook.MAPIFolder

Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFo lderInbox)

og

If UCase(Right(myFolder.Items(A).Attachments(b).Displ ayName, 3)) = "XLS" Then

----- Access -----

Private Sub Tilbud_Leverandør_Doc_2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim myFolder As Outlook.MAPIFolder

Set myOlApp = CreateObject("Outlook.application")
Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFo lderInbox)
Set myitem = myOlApp.CreateItem(olMailItem)

For a = 1 To myFolder.Items.Count
If myFolder.Items(a).UnRead = True Then
If myFolder.Items(a).Attachments.Count <> 0 Then
For b = 1 To myFolder.Items(a).Attachments.Count
If UCase(Right(myFolder.Items(A).Attachments(b).Displ ayName, 3)) = "XLS" Then

the_filename = "C:\new email\recd " & Format(Now(), "dd-mmm-yyyy") & " " & myFolder.Items(a).Attachments(b).DisplayName
myFolder.Items(a).Attachments(b).SaveAsFile the_filename

End If
Next
End If
End If
Next

End Sub

you will need a reference to Outlook.
Tools+References menu

Kan du hjælpe med koderne til det

This works. If you cant get it to work than I cant help you.

Curently the code only looks for .docx files. The destination folder must exist, and dont forget the refernce


im myFolder As Outlook.MAPIFolder
Dim myOlApp As Outlook.Application
Dim myItem  As Outlook.MailItem
Dim a As Integer
Dim b As Integer
Dim the_filename As String


Set myOlApp = CreateObject("Outlook.application")
Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set myItem = myOlApp.CreateItem(olMailItem)


    For a = 1 To myFolder.Items.Count
        If myFolder.Items(a).UnRead = True Then
            If myFolder.Items(a).Attachments.Count <> 0 Then
                For b = 1 To myFolder.Items(a).Attachments.Count
                    If UCase(Right(myFolder.Items(a).Attachments(b).DisplayName, 4)) = "docx" Then
                        the_filename = "C:\new email\recd " & Format(Now(), "dd-mmm-yyyy") & " " & myFolder.Items(a).Attachments(b).DisplayName
                        myFolder.Items(a).Attachments(b).SaveAsFile the_filename
   
                    End If
                Next
            End If
        End If
    Next

Jeg er ked af det men:
Der er fejl i første linie

im myFolder As Outlook.MAPIFolder < mælder fejl her

have you out the code in a sub/function?
and have you set that refercne I mentioned?

I have tested the code and it works

Ja det er lagt i:
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
.
.
End sub

Jeg ved ikke hvad refercne er "Suk"

In code view you should see a menu tool and in that a menu references. Then find outlook in the list ...

Så vidt jeg kan se er der ingen.
Det er da i access jeg skal finde den - ikke?

yes. If Outlok is installed on your pc then I would expect theer to be a an entry for outlook

Microsoft Outlook some number Object Library

can you find the references menu?

Yes i have Outlook office 2007
But in access is no Outlook referance

well until you can solve that problem you wont get thsi code to work

Så fandt jed dem:

Hvad skal jeg vælge?:

acCmdAddFromOutlook
ImportAttachOutlook
Save as Outlook Contact

Hvad skal jeg så skrive i koderne?

You shouldnt choose any of them. I think your in the wrong menu!

As far as I can make out your in the import menu.. you need the TOOLS+REFERENCES menu which you can find while you are in code view.

The menu look ssomething like this ..

http://www.bluemoosetech.com/microsoft-access-vba.php?jid=12&title=VBA%20Tools%20-%20References%20in%20Microsoft%20Access

Jeg fik det aldrig til at virke men tager det op igen senere

shouldnt we close the question then?

Jeg prøver igen på Søndag

Hej Igen

Jeg Fandt:
Microsoft office Outlook view Control
og
Microsoft Outlook 12 object libery

Begge er nu vedhæftet men der kommer fejl i linie 1:
Im MyFolder as.....




Private Sub Tilbud_Leverandør_Doc_2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

im myFolder As Outlook.MAPIFolder
Dim myOlApp As Outlook.Application
Dim myItem  As Outlook.MailItem
Dim a As Integer
Dim b As Integer
Dim the_filename As String

Set myOlApp = CreateObject("Outlook.application")
Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set myItem = myOlApp.CreateItem(olMailItem)
    For a = 1 To myFolder.Items.Count
        If myFolder.Items(a).UnRead = True Then
            If myFolder.Items(a).Attachments.Count <> 0 Then
                For b = 1 To myFolder.Items(a).Attachments.Count
                    If UCase(Right(myFolder.Items(a).Attachments(b).DisplayName, 4)) = "pdf" Then
                        the_filename = "C:\new email\recd " & Format(Now(), "dd-mmm-yyyy") & " " & myFolder.Items(a).Attachments(b).DisplayName
                        myFolder.Items(a).Attachments(b).SaveAsFile the_filename
   
                    End If
                Next
            End If
        End If
    Next

End Sub

im myFolder As Outlook.MAPIFolder

im should be DIM

Nu er fejlen væk men intet sker?
Jeg trækker en pdf fil over fra outlook til access.
Her vises et lille + Så slipper jeg musen - men intet sker?

Jeg trækker en pdf fil over fra outlook til access.

You shouldnt have to do that, the code should do it for you.

This question is taking a long time to answer! I cant teach you the basics...

You will need to through the code to see what is happening and it doesnt help that I can get it to work on my PC because its you who needs to get it to work on your PC.

If you cant manage to debug the code then I think you will have to get help elsewhere :o(

Det er en email med en attached pdf fil jeg trækker over til access.

Debug viser:
myOlApp =  "outlook"
myFolder = "indbakke"
myItem = ""  <= Hvorfor er den Tom ?