[vba] Outlook forward event

[roeltje]

Hallo,

Wat ik probeer te maken: Op het moment dat ik een outlook 2003 mail ga forwarden moet er vba code uitgevoerd worden. Ik ben via de help van vba en op internet op het volgende voorbeeld gekomen.

code:

Public WithEvents myItem As Outlook.MailItem

Public Sub Initialize_Handler()
    Set myItem = Application.ActiveInspector.CurrentItem
End Sub

Private Sub myItem_Forward(ByVal Forward As Object, Cancel As Boolean)
    If myItem.Subject = "Do not forward" Then
        MsgBox "You may not forward this message!"
        Cancel = True
    End If
End Sub

Deze heb ik in thisoutlooksession gezet.

Maar naar mijn idee doe ik iets niet goed, want op het moment dat de code aanpas naar bijv. myItem.subject = "onderwerp" wordt dit niet ingesteld. het lijkt er op dat de code niet uitgevoerd wordt.

In princiepe hoeft de code niet gestart te worden via dit event. Wat ook mogelijk is, is een knop in de toolbar te zetten, maar omdat word als email editor ingesteld staat, kan ik daar alleen (denk ik) word macro's in zetten.

Ik heb nog niet veel ervaring in het schrijven in vba, nu 2 dagen om precies te zijn, dus ik hoop dat iemand mij kan helpen

[RobIII]

Ik kan me voorstellen dat 't spul niet werkt omdat je een case-sensitive vergelijking doet...
Probeer eens:

code:

If lcase(myItem.Subject) = lcase("zethierietsin") Then

of, mooier:

code:

If strComp(myItem.Subject,"zethierietsin",vbText)=0 Then

Ik weet dus niet of 't de oorzaak is, maar 't zou kunnen...

[ Voor 16% gewijzigd door RobIII op 13-10-2004 01:20 ]

[roeltje]

Volgens mij begrijp je me verkeerd, het bovenstaande voorbeeld komt zo uit de help. Wat ik bedoel:

code:

Public WithEvents myItem As Outlook.MailItem

Public Sub Initialize_Handler()
    Set myItem = Application.ActiveInspector.CurrentItem
End Sub

Private Sub myItem_Forward(ByVal Forward As Object, Cancel As Boolean)
    myItem.subject = "onderwerp geset in forward event"
End Sub

ik wil dus gewoon het onderwerp van het bericht kunnen veranderen

[ Voor 10% gewijzigd door roeltje op 13-10-2004 09:03 ]

[Woudloper]

Op deze pagina in de MSDN staat uitgelegd hoe jou stukje code moet werken.

Onder aan deze pagina staat dat het Object van de sub myItem_Forward o.a. kan verwijzen naar het MailItem Object. Onder aan die pagina staan weer de ndige properties die behoren bij het MailItem Object. Ik zou daar eens even naar kijken, want je antwoord staat er écht tussen.