snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 20.329
Of zo ?
Code:
Sub M_snb()
st = Array(59, 17, 23, 29, 47, 53, 17, 23, 41, 0)
With CreateObject("outlook.application").getnamespace("mapi").Folders(4).Folders("Postvak IN").Folders("Solax MV")
ReDim sp(.items.Count, 5)
For Each it In .items
sn = Split(it.body, vbLf)
sp(n, 0) = it.Subject
For j = 1 To 5
sp(n, j) = sn(st(j - 1 - 5 * (Left(it.Subject, 1) = "W")))
Next
n = n + 1
Next
End With
sheets("Dagelijks").cells(rows.count,1).end(xlup).offset(1).resize(ubound(sp),ubound(sp,2)+1)=sp
End Sub