Michael Rasmussen wrote:
>>Jeg har den tilsvarende funktion kørende til brug ved Outlook. Om den
>>virker i Outlook Express vides ikke, men det er jo et spørgsmål om at
>>prøve.
>>
>>Når jeg får tændt den PC, hvor kildekoden ligger, skal jeg vende tilbage
>>med et link (koden er fundet et sted på nettet)
>>
>>/Krabsen
>
> Det lyder dejligt, det vil jeg glæde mig til.
>
> Mvh
> Michael
>
>
Så meget for sin gode hukommelse
Det viste sig at være en simpel kode, hvor jeg bruger MAPI. Du får den
her, skrællet for de dele, hvor jeg udnytter mailen til mit formål:
Private Sub btnHentMail_Click()
On Error GoTo eh
Dim mailApp
Dim EachItem As Long
Dim MailItem, InboxFolder ', ArkivFolder
Dim theNameSpace
dim MailEmne as string
Dim tidsendt As String
ventStart
Set mailApp = CreateObject("Outlook.Application")
Set theNameSpace = mailApp.GetNamespace("MAPI")
Set InboxFolder = theNameSpace.GetDefaultFolder(6)
For Each MailItem In InboxFolder.Items
EachItem = EachItem + 1
lblstatusmsg.Caption = "Checker nr. " & EachItem & " " & " af "
& InboxFolder.Items.Count
tidsendt = MailItem.ReceivedTime
MailEmne = MailItem.Subject
behandlIndhold MailItem.Body, MailEmne, tidsendt ' mail
skrælles i særskilt procedure
Next
Exit Sub
eh:
Visfejlmeddelelse Str(Err), "btnHentMail_Click"
Resume Next
End Sub