Avatar billede larsaasted Nybegynder
17. marts 2005 - 10:11 Der er 5 kommentarer

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

Hvordan kan jeg automatisk flytte en vedhæftet fil fra en E-mail til en bestemt mappe på C:\drev???

Evt. via en regl.....????
Avatar billede -bartfreak Nybegynder
17. marts 2005 - 10:16 #1
Avatar billede fedder Nybegynder
18. maj 2005 - 12:25 #2
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
Avatar billede fedder Nybegynder
18. maj 2005 - 12:25 #3
Så kan du lave en regl, der bruger et script.
Avatar billede larsaasted Nybegynder
23. maj 2005 - 10:15 #4
Fedder -> Undersøger lige om scriptet virker. Hvis det virker er du vinderen.
Avatar billede fedder Nybegynder
23. maj 2005 - 11:26 #5
Hej
Det skulle gerne virke. Jeg bruger det selv dagligt.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester