Frage zu Skript

11/12/2007 - 19:32 von Thfrank | Report spam
Ich benutze folgendes Skript zum Synchronisieren meiner gesendeten Mails
zwischen drei Rechnern (OL2007):

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("gesendet1@xxx.de")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
Set objMe = Item.Recipients.Add("gesendet2@xxx.de")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub

Außerdem verwende ich OLFolderSync zum Synchronisieren von Kalender,
Aufgaben etc. Dieses Programm sendet für jede Änderung eine e-mail an die
beiden anderen Rechner und dort werden die Änderungen dann verarbeitet.

Problem: O.a. Script làuft auch bei den von OLFolderSync gesendeten e-Mails
ab, und das führt manchmal zu Endlosschleifen.

Frage: Wie kann ich in dem o.a. Script die Bedingung einbauen, dass e-Mails
mit einer bestimmten Betreffzeile nicht als BCC versendet werden?

Vielen Dank für jeden Tipp!
Thomas
 

Lesen sie die antworten

#1 stefan onken
12/12/2007 - 10:47 | Warnen spam
On 11 Dez., 19:32, "Thfrank" wrote:
Ich benutze folgendes Skript zum Synchronisieren meiner gesendeten Mails
zwischen drei Rechnern (OL2007):

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
Set objMe = Item.Recipients.Add("")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub

Außerdem verwende ich OLFolderSync zum Synchronisieren von Kalender,
Aufgaben etc. Dieses Programm sendet für jede Änderung eine e-mail an die
beiden anderen Rechner und dort werden die Änderungen dann verarbeitet.

Problem: O.a. Script làuft auch bei den von OLFolderSync gesendeten e-Mails
ab, und das führt manchmal zu Endlosschleifen.

Frage: Wie kann ich in dem o.a. Script die Bedingung einbauen, dass e-Mails
mit einer bestimmten Betreffzeile nicht als BCC versendet werden?

Vielen Dank für jeden Tipp!
Thomas



hallo Thomas,
das gehört wohl eher in die Outllok-NG, du bist hier bei Excel
gelandet.
Trotzdem sollte es gehen, mit Item.Subject an die Betreffzeile zu
gelangen und entsprechend zu reagieren, zB
If Item.Subject = "Bestimmter Betreff" Then Exit Sub

Gruß
stefan

Ähnliche fragen