Moin,
oben drüber kommt noch folgendes:
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private WithEvents Items As Outlook.Items
Sowie ich das verstanden habe, wird die Routine
Private Sub Items_ItemAdd(ByVal Item As Object)
jedes mal aufgerufen, wenn im Posteingang eine neue Mail registriert wird. Das klappt an sich auch soweit, der Betreff wird mir bei jeder neuen empfangenen Mail korrekt in der msgbox angezeigt. Nur der Anhang wird anscheinend nicht immer korrekt erkannt (oMail.Attachments.Count = 0), wieso auch immer...?
|