I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.