11. juli 2006 - 13:45Der er
3 kommentarer og 1 løsning
Default "Gem som"-sti??
Hej,
når jeg skal gemme et word-dokument og vælger "Gem som...", så peger den normalt ned i min "Dokumenter"-mappe som default. Men hvis jeg åbner et word-dokument direkte fra en mail i Outlook og vælger "Gem som...", så peger den som default på en mappe dybt nede i mine Temporary Internetfiles. Hvad styrer dette, og hvordan får jeg det ændret så uanset hvorfra jeg åbner et word-dokument foreslår den samme sted hver gang, f.eks. min "Dokumenter"-mappe??
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!"
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.