udskriv mail automatisk

Et Word-dokument kan indholde VBA-kode, der periodisk tester (faste intervaller) om der er nye mails og derefter udskriver body.

Det kræver, at Word-dokumentet permanent enten ligger permanent kørende - eller at man selv kalder det - f.eks. et par gange i løbet af dagen.

Princippet er, at der i VBA-koden oprettes en reference til indbakken - således at indholdet kan testes.

Body for en mail er et objekt, der kan hentes og udskrives via koden.

MVH

hejsa

kan du komme med noget eksempel kode ?

Jeg gætter på, at det er ligemeget om det er VBA til Word, eller Excel, eller hvadsomhelst andet, eller blot VB6

PS. Definer "nye mails" - er det ulæste maile, eller mails siden et bestemt tidspunkt?

jeg har ikke en pind forstand på det, ved lidt om programmering, men kunne bruge lidt eksempel kode ;)

det er sådan set ligemeget, det er ALLE mails der kommer, så fra det tidspunkt at denne komponent bliver taget i brug er post programmet tomt og det er så alle nye mails der skal udskrives ! bemærk at det kun er body der skal udskrives (HTML) og ikke fra til emne osv.

Dim mailApp, Namespace, indbakke
Sub AutoOpen()
rem I udviklingsværktøjet (VBA i Word) skal der sættes en reference til OutLook
rem Indlæg koden i et word-dokument (ALT+F8) Opret makroen AutoOpen
rem Når koden vises - marker alt og indsæt nedenstående kode i stedet.
rem Under rullemenuen: Funktioner eller Tools (afh. af version) - vælg referencer - rem find den aktuelle af Microsoft OutLook  sæt flueben - Gem
rem Word skal indstilles til at køre med makroer - Funktioner / Sikkerhed - niveau 3,
rem hvis du kører med office2000, XP eller 2003

KODE:

Dim m, antalMails, bodyTekst
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")
    Set indbakke = Namespace.GetDefaultFolder(olFolderInbox)
   
Rem Gennemløb af indbakke - mappe - vis navn i variablen "n"
Rem - antal mails i mappen vises i "a"
    For f = 1 To indbakke.Folders.Count
        n = indbakke.Folders(f).Name
        a = indbakke.Folders(f).Items.Count
    Next f
   
    antalMails = LTrim(Str(indbakke.Items.Count))
   
    If antalMails > 0 Then
        For m = 1 To antalMails
            bodyTekst = ""
            With indbakke.Items(m)
                If .UnRead = True Then              'er mailen behandlet (læst)
                    bodyTekst = .body
                    WordBasic.Insert bodyTekst + Chr(13) + "xxxxxxxx" + Chr(13)
                    .UnRead = False                'marker som læst
                    .Save
                End If
            End With
        Next m
    End If
End Sub

supertekst >> tak for koden jeg får lige kigget på det i aften :) du hører nærmere!

supertekst >> Koden virker fint, men problemet er at formateringen af html mailen ikke er rigtig i word :(

Hvordan ser teksten fra mailen ud i Word dokumentet?

afstanden (linje skift) tabeller osv kommer slet ikke med

Prøv at oprette et Word dokument - gem det derefter som en .HTM - fil.

Kopier fra mailen - og indsæt i .HTM-dokumentet.

Hvordan ser du så ud?

stadig forkert ud !

Har du mulighed for at videresende en af de problematiske mails til mig?
-> pb@skivehs.dk

...så kan jeg bedre forsøge...

den er nu sendt :)

Er modtaget - vender tilbage!

noget nyt i sagen :)

supertekst, har du haft tid til at kigge på det ?

Ja, jeg har prøvet forskellige muligheder - men resultatet er ikke helt tilfredsstillende. Jeg kan isolere den egentlige tekst fra HTML-koden - således at de forskellige tabeller vises/udskrives - men beløb ialt - er ikke i korrekt bredde.

Jeg har nu ikke helt opgivet.

Er det altid den slags mails, du skal udskrive (altså fakturarer) - eller hvad?

ja det er altid den slags

OK - jeg forsøger lidt endnu!

det lyder godt :) kan der være andre muligheder ? evt og at makroen kopier det til frontpage istedet ?

der er ikke sket mere, lukker