Udskrive sendt mail automatisk fra outlook

Og her er så koden......(flovt).. :-)

Option Explicit

Public WithEvents olSentMailFolder As Items


Private Sub Application_Startup()

Set olSentMailFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Items

End Sub


Private Sub olSentMailFolder_ItemAdd(ByVal Item As Object)

'MsgBox Prompt:="New mail added to sent mail folder", _
'  Buttons:=vbOKOnly, _
'  Title:="Sent Mail Folder"
Dim mmFound As Long
Dim testStr1 As String
Dim testStr2 As String
Dim boxPrompt As String
Dim boxTitle As String

testStr1 = "streng1"
testStr2 = "streng2"
boxPrompt = "A cc: to file was detected.  Do you want this message printed?"
boxTitle = "Automatic Printout"

mmFound = InStr(1, Item.Body, testStr1, vbTextCompare) + _
    InStr(1, Item.Body, testStr2, vbTextCompare)

If mmFound <> 0 Then

    If MsgBox(boxPrompt, vbYesNo + vbQuestion, boxTitle) = vbYes Then

        Item.PrintOut

    End If

End If
End Sub

som efter sigende skulle indsættes i ThisOutlookSession i VBA-editoren.

Næsten hver gang - eller hver gang?
Hvad er fejlen?
Hvad sker der hvis du kører subben olSentMailFolder_ItemAdd

Den ser da ellers meget forunftig ud, koden, men som jeg forstår den tjekker den kun i sent items når du aktiverer macroen - der er ikke noget der sker automatisk...

Af en eller anden årsag virker koden alligevel, når den køres i Outlook, som er koblet op mod en application-server. Så jeg lukker og slukker.

Tak for kommentaren ;-)

VH

Ing