Itemsend in ThisOutlookSession start niet automatisch

[ADvH]

Goedemorgen,

Ik heb een simpele itemsend-macro in ThisOutlookSession staan, deze werkt, totdat outlook een keer afgesloten is geweest. Het lijkt of deze pas weer geactiveerd wordt door Alt-F11 en Ctrl-S en daarna werkt ie weer tot outlook afgesloten is geweest.

De case is als volgt; De dames aan de receptie beheren met elkaar de info mailbox en versturen ook namens deze mailbox. Om deze verzonden items in de verzonden items van de infomailbox te krijgen laat ik een simpele macro lopen die stukje tekst aan het subject toevoegt (waaraan ook gelijk gezien kan worden wie dat heeft verstuurd) een outlookregel reageert op de mails die verzonden worden met dat speciale stukje tekst in het onderwerp en verplaatst deze naar de verzonden items van de infomailbox. Zo zijn de verzonden items voor alle dames aan de receptie zichtbaar, ongeacht wie ze verstuurd heeft

Sub application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
    If Item.SentOnBehalfOfName = "Factuur herinnering" Then
        Item.Subject = Item.Subject & " - [via AH]"
    End If
End Sub

Heeft iemand een idee waarom die code niet meer werkt na het opnieuw opstarten van Outlook?

Vriendelijke groet Albert

 

[edmoor]

Zorg ervoor dat in het Vertrouwenscentrum macro's zijn toegestaan.
Zet dan dit in de ThisOutlookSession sectie:

Public WithEvents OlApp As Outlook.Application

Private Sub Application_Startup()
    Set OlApp = Outlook.Application
End Sub

Private Sub OlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If Item.SentOnBehalfOfName = "Factuur herinnering" Then
        Item.Subject = Item.Subject & " - [via AH]"
    End If
End Sub

 

[ADvH]

Dat lijkt inderdaad de oplossing te zijn!

Hartelijk dank weer Edmoor!!

vr Gr Albert