Script wird nicht mehr ausgeführt

09/03/2010 - 10:42 von Damian Meier | Report spam
Hallo

Ich habe ein Script, nochmals dank an Miachel Bauer, welches eigentlich
jedes mal beim senden ablaufen sollte:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
If MsgBox("An Zeiterfassung sendne?", vbYesNo) = vbYes Then
Set objMe = Item.Recipients.Add(emailadresse@domain.com)
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
Else
End If
End Sub

Nun wird dieses aber nicht mehr ausgeführt. Ich habe nun gelesen das die VBA
Umgebung von Outlook beim starten nicht iniziert wird. Wie kann ich das
hinbiegen, dass immer dieses Script ausgeführt wird?

Grüsse
Damian
 

Lesen sie die antworten

#1 Michael Bauer [MVP - Outlook]
10/03/2010 - 08:48 | Warnen spam
Am Tue, 9 Mar 2010 10:42:04 +0100 schrieb Damian Meier:



Hallo

Ich habe ein Script, nochmals dank an Miachel Bauer, welches eigentlich
jedes mal beim senden ablaufen sollte:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
If MsgBox("An Zeiterfassung sendne?", vbYesNo) = vbYes Then
Set objMe = Item.Recipients.Add()
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
Else
End If
End Sub

Nun wird dieses aber nicht mehr ausgeführt. Ich habe nun gelesen das die VBA
Umgebung von Outlook beim starten nicht iniziert wird. Wie kann ich das
hinbiegen, dass immer dieses Script ausgeführt wird?

Grüsse
Damian



Hallo,

schau mal in Outlook (nicht VBA Editor) unter Extras/Makros/Sicherheit. Dort
muss eine Stufe gewàhlt werden, die das Ausführen erlaubt.

Viele Gruesse
Michael Bauer - MVP Outlook
Gemeinsame Kategorien verwalten:
<http://www.vboffice.net/product.html?lang=de>

Ähnliche fragen