Ich möchte ein script erstellen welches beim Versenden einer
Nachricht bei bestimmten Kombinationen von Absender und Zieladresse eine Nachfrage ausgibt. Mit dem Betreff und den CC Adressen funktioniert folgender Code:
Display All
Leider gelingt es mir nicht From und To auszulesen.
Die auskommentierten Zeilen führen beispielsweise dazu, daß das script nicht aktiviert wird.
Über oItem.Fields("SRTo").value erhalte ich eine leere Zeichenkette.
Für jeden sachdienlichen Hinweis der zur Erlangungng der Lösung führt
wurde vom Fragesteller eine Belohnung von mindestens einer Flasche
Bier, die dieser zum Wohle des Helfers austrinkt, ausgesetzt.
Dieter
Nachricht bei bestimmten Kombinationen von Absender und Zieladresse eine Nachfrage ausgibt. Mit dem Betreff und den CC Adressen funktioniert folgender Code:
Source Code
- sub Initialize(oInfoCenter, vKey)
- oInfoCenter.RegisterEvent "MessageEditor/OnSend", vKey, "OnEditorSend"
- end sub
- function OnEditorSend(oInfoCenter, oEditor)
- Set oItem = oEditor.Item
- sBetreff = oItem.Subject
- nCC = oItem.CC.count
- set oCC = oItem.CC
- 'set oTO = oItem.TO
- 'nTO = oItem.TO.count
- sMT = "Informationen zur aktuellen Nachricht :"
- sMT = sMT + chr( 13)
- sMT = sMT + chr( 13)
- sMT = sMT + chr( 13) + "Betreff : " + sBetreff
- sMT = sMT + chr( 13) + "CC Zahl : " + cstr(nCC)
- sMT = sMT + chr( 13)
- sMT = sMT + chr( 13)
- sMT = sMT + chr( 13) + "Moechten Sie wirklich senden ?"
- iResult = oInfoCenter.MsgBox(sMT, "YesNoQuestion")
- if iResult = DvMbYes then
- OnEditorSend = true
- else
- OnEditorSend = false
- end if
- end function
Die auskommentierten Zeilen führen beispielsweise dazu, daß das script nicht aktiviert wird.
Über oItem.Fields("SRTo").value erhalte ich eine leere Zeichenkette.
Für jeden sachdienlichen Hinweis der zur Erlangungng der Lösung führt
wurde vom Fragesteller eine Belohnung von mindestens einer Flasche
Bier, die dieser zum Wohle des Helfers austrinkt, ausgesetzt.
Dieter