Filerne gemmes i c:\mail, og der tjekkes om der findes filer med samme navn (så der ikke overskrives)
Desuden skal "ulovlige tegn" som < : osv, der ikke må optræde i filnavne, frasorteres.
Jeg kan sikkert finde ud af det meste selv, men mangler lige sparket til at komme igang - hvordan får man "fat i " den markerede mail, hvordan gemmes den og de vedhæftede filer, og hvordan aflæser man afsender, modtager, subject osv...
Har fundet denne kode, der viser subject på alle ulæste mails i inbox
Dim oApp As Application Dim oNS As NameSpace Dim oMsg As Object Dim oFolder As Object
Set oApp = New Outlook.Application Set oNS = oApp.GetNamespace("MAPI")
'Set folder to check the INBOX Set oFolder = oNS.GetDefaultFolder(olFolderInbox) For Each oMsg In oFolder.Items With oMsg If .UnRead Then MsgBox oMsg.Subject End If End With Next
Men jeg skal bare have fat i den markerede mail (når mailen er markeret, skal jeg starte macroen med Crtl+W eller lignende, og så gemmes den markerede mail)
Nu har jeg besvaret over 500 spørgsmål - er der så ikke nogen der gider svare på et af mine? :o)
Synes godt om
Slettet bruger
15. september 2004 - 20:00#4
Noget i denne stil du søger?
Dim myOA As Outlook.Application Dim myOM As Outlook.MailItem Set myOA = GetObject(, "Outlook.Application") Set myOM = myOA.ActiveInspector.CurrentItem FilNavn = DokSti & FilNavn & ".msg" Do Until Not FilFindes(FilNavn) 'Sørg for at filen ikke findes i forvejen offset = offset + 1 FilNavn = DokSti & AendreNavn(offset) & ".msg" Loop myOM.SaveAs FilNavn 'Gem filen myOM.Close (olDiscard) 'Luk uden at gemme Set myOM = Nothing Set myOA = Nothing
Synes godt om
Slettet bruger
15. september 2004 - 20:00#5
Den gemmer den aktuelle email man har åbent, måske du kan komme videre ud fra det?
Dim oApp As Application Dim oNS As NameSpace Dim oMsg As Object Dim oFolder As Object Dim oMail As MailItem
Set oApp = New Outlook.Application Set oNS = oApp.GetNamespace("MAPI") Set oMail = oApp.ActiveInspector.CurrentItem MsgBox oMail.Subject & " - " & oMail.SenderName Set oApp = Nothing Set oNS = Nothing Set oMail = Nothing
I mis msgbox bliver der IKKE skrevet subject og sender ud for den markerede mail, men for en helt anden
Næ, det har du ret i. Men så prøver vi bare et andet objekt:
Dim oApp As Application Dim oMail As MailItem
Set oApp = Outlook.Application For Each oMail In oApp.ActiveExplorer.Selection MsgBox oMail.Subject & " - " & oMail.SenderName Next Set oApp = Nothing Set oMail = Nothing
Det virker hos mig - alle de markerede emner vises.
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.
