Avatar billede hugopedersen Nybegynder
03. maj 2008 - 20:03 Der er 6 kommentarer og
2 løsninger

Et script der kan hjælpe mig

Jeg har brug for et script der kan gøre følgende ved en mail:
Tage afsender + subjectlinien og gemme det i en tekstfil der f.eks. kunne være navngivet med aktuelle dato og tid.

Det må kunne gøres på en eller anden måde. Jeg ved dog bare ikke lige hvor jeg skal starte.
Avatar billede supertekst Ekspert
03. maj 2008 - 23:26 #1
Skal det gælde for alle mails, der endnu ikke er behandlet? - dette kan gøres via VBA..
Avatar billede hugopedersen Nybegynder
04. maj 2008 - 16:30 #2
Det skal gælde for næsten alle mail - jeg havde tænkt mig at lave en rule der tager mail fra en adresseliste og behandler disse. Jeg kan se at man kan få en rule til at køre et script, så det må være den vej.

Jeg skal bruge det til noget fjernstyring hvor nogen kan sende en mail til en bestemt adresse og så får en maskine til at gøre noget (det som står i subjectlinien)
Avatar billede supertekst Ekspert
04. maj 2008 - 18:02 #3
I model 1 har jeg taget udgangspunkt i, at "din regel" kopierer de relevante mails til en undermappe til indbakken. Koden til herefter behandle disse mails - trække data ud og skrive dem i tekstfiler i c:\Test-mappen:

Rem KODEN INDSÆTTES I OUTLOOK (ALT+F11) ThisOutLookSession
Rem ======================================================
Public Sub mailsFraTestMappe()
Dim mailApp, Namespace, indbakke, TestMappe, m, aFold
Dim afSender, Emne

On Error GoTo fejl

    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")
    Set aFold = Namespace.GetDefaultFolder(olFolderInbox)
    Set TestMappe = aFold.Folders("TestMappe")
         
Rem stien for tekst-filer
    sti = "c:\Test\"
             
    If TestMappe.Items.Count > 0 Then
        For m = 1 To TestMappe.Items.Count
            afSender = TestMappe.Items(m).SenderName
            Emne = TestMappe.Items(m).Subject
Rem opbyg TekstFil
            Open sti + Format(Now, "dd-mm-yy hh_mm_ss") + ".txt" For Output As #1
                Print #1, afSender + " " + Emne
            Close #1
        Next m
    End If
Rem Afslutning
    MsgBox ("gennemgang er afsluttet")
   
    Exit Sub
   
fejl:
    MsgBox ("Fejl!")
    Stop
    Resume Next
End Sub
Avatar billede hugopedersen Nybegynder
05. maj 2008 - 06:54 #4
Jeg vil lige tage et kig på det når jeg kommer hjem til maskinen senere på dagen
Avatar billede supertekst Ekspert
13. maj 2008 - 18:06 #5
Noget nyt?
Avatar billede hugopedersen Nybegynder
13. maj 2008 - 19:57 #6
Både ja og nej
Jeg har fundet frem til at der er mulighed for at kalde en funktion med (Item As Outlook.MailItem) som parametre og så har man adgang til de mest besynderlige properties m.m.
Så jeg har sådan set lavet det på den måde - jeg har bare haft så meget om ørerne i den sidste tid at jeg helt havde glemt dette spørgsmål.
Men hvis nu vi siger at du får halvdelen af points for dit input er det så OK med dig.
Avatar billede supertekst Ekspert
14. maj 2008 - 23:47 #7
Ok - så kan vi afslutte
Avatar billede hugopedersen Nybegynder
15. maj 2008 - 06:48 #8
Det gør vi så.
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