Default "Gem som"-sti??

noget lignende dette ?  http://www.hcma.dk/tips61to70.htm#no69

Word viser altid som standard den mappe filen er åbnet fra. Da den vedhæftede fil er gemt i en undermappe til mappen "Temporary Internet Files", vil Word altid foreslå at du gemmer filen her igen. Det er selvfølgelig uheldigt, da det sjældent er der man ønsker at gemme filen - mange filer er i tidens løb forsvundet fordi de er gemt i denne mappe.

Du kan ændre indstilling for hvor Gem-funktionen skal gemme nye dokumenter; men eksisterende dokumenter vil altid blive foreslået gemt i samme mappe, som den er åbnet fra.
Funktioner->Indstillinger, fanen Filplaceringer - Dokumenter.

Hvis du har mod på lidt vba kan du lave dig en knap, så du let kan gemme de vedhæftede filer i en bestemt mappe. Kopiér nedenstående (fra "Sub") til en editor indsæt [Stien til den valgte mappe]- BEMÆRK 2 STEDER, gem den som en .bas fil, importér den som et modul i Outlook, menuen Funktioner-Makro-Visual Basic Editor. Så optræder den som en makro, hvortil du kan lave en knap i menuen Funktioner-Tilpas... .

Jeg har ikke selv kodet. Hentet den på nettet og fordansket.

Sub GemEllerSlet()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Tryk ""Ja"" for både at gemme og fjerne vedhæftede filer." & vbCrLf & vbCrLf & _
"Tryk ""Nej"" for kun at fjerne vedhæftede filer."    ' Define message.
Style = vbYesNo + vbQuestion + vbDefaultButton1    ' Define buttons.
Title = "Gem og fjern eller kun fjern"

svar = MsgBox(Msg, Style, Title)
If svar = vbYes Then
Msg = "De vedhæftede filer gemmes i mappen:" & vbCrLf & vbCrLf & _
"[Stien til den valgte mappe]"    ' Define message.
Style = vbOKCancel + vbInformation + vbDefaultButton1    ' Define buttons.
Title = "Gemmeoplysninger "

svar = MsgBox(Msg, Style, Title)

If svar = vbOK Then
SaveAttachment
Else
GoTo Slut
End If
Else
RemoveAttachment
End If
Slut:
End Sub

Private Sub SaveAttachment()

    'Declaration
   
    Dim myItems, myItem, myAttachments, myAttachment As Object
    Dim myOrt As String
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection
    Dim fs
    Dim fejl As String
         
   
    'Ask for destination folder
Retry:
    myOrt = "[Stien til den valgte mappe]"
       
    On Error Resume Next
   
    'Does the folderpath exists
'    Set fs = CreateObject("Scripting.FileSystemObject")
'    If fs.FolderExists(myOrt) = False Then
'    fejl = MsgBox("Stien eksisterer ikke." & vbCrLf & _
'    "Tryk ""OK"" og angiv en korrekt sti." & vbCrLf & _
'    "Tryk ""Annuler"" for at afbryde.", vbOKCancel + vbCritical + vbDefaultButton1, "Fejl i sti!")
'    If fejl = vbOK Then
'    GoTo Retry
'    Else
'    GoTo Slut
'    'Exit Sub
'    End If
'    End If
   
    'work on selected items
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
       
    'for all items do...
    For Each myItem In myOlSel
   
    Set myItem.BodyFormat = olFormatRichText
   
        'point on attachments
        Set myAttachments = myItem.Attachments
       
       
        'if there are some...
        If myAttachments.Count > 0 Then
       
            'add remark to message text
            myItem.Body = myItem.Body & vbCrLf & _
                "Vedhæftede fjernet:" & vbCrLf
               
            'for all attachments do...
            For i = 1 To myAttachments.Count
           
                'save them to destination
                myAttachments(i).SaveAsFile myOrt & _
                    myAttachments(i).DisplayName

                'add name and destination to message text
                myItem.Body = myItem.Body & _
                    "Fil: " & myAttachments(i).DisplayName & vbCrLf
                   
            Next i
           
            'for all attachments do...
            While myAttachments.Count > 0
           
                'remove it (use this method in Outlook XP)
                'myAttachments.Remove 1
               
                'remove it (use this method in Outlook 2000)
                myAttachments(1).Delete
               
            Wend
           
            'save item without attachments
'            With myItem
'            .BodyFormat = olFormatRichText
'            .Display
'            .Save
'            End With
           
            myItem.Save
        End If
       
    Next

Slut:
   
    'free variables
    Set myItems = Nothing
    Set myItem = Nothing
    Set myAttachments = Nothing
    Set myAttachment = Nothing
    Set myOlApp = Nothing
    Set myOlExp = Nothing
    Set myOlSel = Nothing
   
MsgBox "De fjernede filers navne er indsat i emnet.", vbOKOnly + vbInformation, "Vedhæftede filer fjernet!"
   
End Sub

Private Sub RemoveAttachment()

    'Declaration
    Dim myItems, myItem, myAttachments, myAttachment As Object
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection

    On Error Resume Next
   
    'work on selected items
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
   
    'for all items do...
    For Each myItem In myOlSel
   
    Set myItem.BodyFormat = olFormatRichText
   
        'point on attachments
        Set myAttachments = myItem.Attachments
       
        'if there are some...
        If myAttachments.Count > 0 Then
       
            'add remark to message text
            myItem.Body = myItem.Body & vbCrLf & _
                "Vedhæftede fjernet:" & vbCrLf
               
            'for all attachments do...
            For i = 1 To myAttachments.Count

                'add name and destination to message text
                myItem.Body = myItem.Body & _
                    "Fil: " & myAttachments(i).DisplayName & vbCrLf
                   
            Next i
           
            'for all attachments do...
            While myAttachments.Count > 0
           
                'remove it (use this method in Outlook XP)
                'myAttachments.Remove 1
               
                'remove it (use this method in Outlook 2000)
                myAttachments(1).Delete
               
            Wend
           
            'save item without attachments
            myItem.Save
        End If
       
    Next
   
    'free variables
    Set myItems = Nothing
    Set myItem = Nothing
    Set myAttachments = Nothing
    Set myAttachment = Nothing
    Set myOlApp = Nothing
    Set myOlExp = Nothing
    Set myOlSel = Nothing
   
    MsgBox "De fjernede filers navne er indsat i emnet.", vbOKOnly + vbInformation, "Vedhæftede filer fjernet!"
   
End Sub

se her.->> http://dbhome.dk/bartfreak/guider/aendre%20gem%20som%20placering%20i%20Outlook.htm