---

Hej alle.

Kan subj. lade sig gøre? Vi taler om Office 2003.

Mvh
David

---

"David Schjelde" <schjeldenyheder@mailme.dk> wrote in message
news:41b8aa73$0$266$edfadb0f@dread12.news.tele.dk...
> Hej alle.
>
> Kan subj. lade sig gøre? Vi taler om Office 2003.
>
Denne makro (Afspilles i Outllok, mens mailen er åben, gemmes en mail som et
Word-dokument.

Sub SaveAsWord()
Dim myItem As Outlook.Inspector
Dim objItem As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector
If Not TypeName(myItem) = "Nothing" Then
Set objItem = myItem.CurrentItem
strname = objItem.Subject
Dim strPrompt As String
strPrompt = "Er du sikker på at du vil gemme mailen? Hvis der
allerede eksisterer en fil med samme navn, vil den blive overskrevet."
If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
objItem.SaveAs "C:\" & strname & ".doc", olTXT
End If
Else
MsgBox "Der er ingen aktiv Outlook Inspektor."
End If

End Sub


Jan