Avatar billede ges Nybegynder
24. september 2003 - 13:43 Der er 8 kommentarer og
1 løsning

Eksport af data fra e-mail, afsender e-mail og tidspunkt til Exce

Eksport af data fra e-mail,samt afsender e-mail og tidspunkt til Excel. Gerne automatiseret.

Fx.
Afsender 01@test.com, 170303 11:51
+1.298 +123.282 +145.12 +.0345 -0.12 0.172
Avatar billede bak Forsker
24. september 2003 - 16:20 #1
fra hvilket program ?
Avatar billede klid Nybegynder
24. september 2003 - 20:15 #2
Det er let nok i MO, men ikke til i OE
Avatar billede ges Nybegynder
25. september 2003 - 09:09 #3
Det er som udgangspunkt fra outlook 97 til excel 97.
Avatar billede ges Nybegynder
25. september 2003 - 11:38 #4
Kunne for så vidt også være i linux, "whatever works best"
Avatar billede bak Forsker
25. september 2003 - 16:01 #5
Her er lidt at øve på.
Virker kun med MSOutlook / Excel
Henter sendernavn, Tidspunkt og subjektfeltet.
Har ikke prøvet med body-feltet, men det gjort klart

Sub GetItemFromMail()
    Dim fldFolder          As Outlook.MAPIFolder
    Dim objItemsCollection  As Object
    Dim objItem            As Object
    Dim strCriteria        As String
    Dim objMatchingItem    As Object
    Dim i As Long
 
    If golApp Is Nothing Then
        If InitializeOutlook = False Then
            MsgBox "Unable to initialize Outlook Application " _
                & "or NameSpace object variables!"
            Exit Sub
        End If
    End If

    Set fldFolder = gnspNameSpace.GetDefaultFolder(olFolderInbox)

    Set objItemsCollection = fldFolder.Items '.Restrict(strCriteria)
    If objItemsCollection.Count > 0 Then
          On Error Resume Next
            For Each objItem In objItemsCollection
                Set objMatchingItem = _
                    gnspNameSpace.GetItemFromID(objItem.EntryID)
                    i = i + 1
                    Range("A" & i) = objMatchingItem.SenderName
                    Range("B" & i) = objMatchingItem.ReceivedTime
                    Range("c" & i) = objMatchingItem.Subject
                    'Range("d" & i) = objMatchingItem.Body
            Next objItem
    End If
GetItem_End:
    Exit Sub
End Sub
Avatar billede bak Forsker
07. oktober 2003 - 12:23 #6
GES-> har du afprøvet det ?
Avatar billede ges Nybegynder
07. oktober 2003 - 12:40 #7
Jeg skulle til at sætte mig ind i vba, men en kollega løste problemet for mig i vbscript, så mit problem er på en måde løst.

Mange tak for dit bidrag :)
Avatar billede bak Forsker
07. oktober 2003 - 13:33 #8
Så lukker du bare spørgsmålet ved selv at lægge et svar og acceptere det :-)
Avatar billede bak Forsker
07. oktober 2003 - 13:35 #9
eller giver mig lidt (beklager, så først din mail nu)
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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