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
eller giver mig lidt (beklager, så først din mail nu)
Synes godt om
Ny brugerNybegynder
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.