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:
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
Alles anzeigen
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