Flytte vedhæftet fil automatisk til mappe på C:\drev

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

Du kan evt. kopiere denne her kode over i en macro i Outlook.

Sub SaveAttachment(mail As MailItem)
  'Declaration

Dim myItems
Dim myItem
Dim myAttachments
Dim myAttachment As Object
Dim myOrt As String
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection

   

'Ask for destination folder

    myOrt = InputBox("Destination", "Save Attachments", "C:\")
    On Error Resume Next
    'Make dir if not exists
    If Dir(myOrt) = "" Then
      MkDir (myOrt)
    End If

    'work on selected items
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
   
    'for all items do...
    For Each myItem In myOlSel
    'If only from a selected person start 
      If myItem.From = "person@person" Then 'change mail adderss'
        '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 & _
                "Removed Attachments to :" & 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 & _
                            "File: " & myOrt & _
                              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
      End If 'If only from a selected person slut
    Next

    'free variables
    Set myItems = Nothing
    Set myItem = Nothing
    Set myAttachments = Nothing
    Set myAttachment = Nothing
    Set myOlApp = Nothing
    Set myOlExp = Nothing
    Set myOlSel = Nothing
End Sub

Så kan du lave en regl, der bruger et script.

Fedder -> Undersøger lige om scriptet virker. Hvis det virker er du vinderen.

Hej
Det skulle gerne virke. Jeg bruger det selv dagligt.