Automatisk gennemgang af mail

Skal det være ASP - VBA eller...?

Det skal være ASP.
Det er tanken, at jeg sætter et scheduled task op, til at kalde jobbet, som er en ganske almindelig asp side.

Slet ingen, som har nogle ideer eller andet, til hvad der skal gøres?

Har noget kode - men i VBA, der er lagret i f.eks. et Word.doc / Excel.xls

Jah, det vil nok bare ikke kunne fungere med Word eller Excel i denne her situation.

Men det kunne nu være interessant at vide hvordan du sådan rent praktisk har grebet det an. Ligger der en indbygget mail-parser i VBA, eller hvordan har du fået informationerne ud af selve mailen?

Finder koden og vender tilbage

Til inspiration 1) (prøver at finde endnu et eksempel)

Rem Koden indsættes i ThisWorkbook i en ExcelFil
Rem Reference til Microsoft Outlook 11.0 Object Library sættes i VBA - Tools - References
Rem =====================================================================================
Public Sub testIndbakken()
Dim mailApp, Namespace, indbakke, m, vf
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")
    Set indbakke = Namespace.GetDefaultFolder(olFolderInbox)

Rem Gennemløber indbakken
    If indbakke.Items.Count > 0 Then
        For m = 1 To indbakke.Items.Count

Rem Hver mail test for vedhæftet fil - p.t. behandler kun vedhæftet fil
                If indbakke.Items(m).Attachments.Count > 0 Then

Rem henter filnavnet / Gem temp.
                    vf = LCase(indbakke.Items(m).Attachments(1).Filename)
                    indbakke.Items(m).Attachments(1).SaveAsFile "c:\" + vf
                   
Rem Indeholder filnavnet .csv og mailen stadig er ulæst... så...
                    If InStr(vf, ".csv") > 0 Then 'And indbakke.Items(m).UnRead = True Then
                        importerCSV (vf)

Rem marker som læst
                        indbakke.Items(m).UnRead = False
Rem Slet templagring
                        Kill "c:\" + vf
                    End If
                End If
        Next m
    End If
End Sub

Til inspiration 2)

uddrag af mail, der sendes - Emne & meddelelse er markeret <--

    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")
    Set indbakke = Namespace.GetDefaultFolder(olFolderInbox)

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set nymod = nyMail.Recipients

    nymod.Add modtager
    nyMail.Subject = emne    <--
    nyMail.body = body        <--

Lukker spørgsmålet igen.

Det var ikke en mulighed for mig, og opgav måden.