Levelezolista lehetoleg exchange alatt - reszben sikerult

[Zilahy Andra's]

Hi!

Előrebocsájtom, hogy teljesen láma vagyok a scriptekhez... :-)

Tamas GAL írta:
> Egy erre a celra irt SMTP sink a Te baratod.

Ilyenről most hallok először. :-)

Gugliztam egy sort. Itt ( http://tinyurl.com/2jhs3f ) írták, hogy 
kintről bejövő levelekre SMTP Sink-et kell írni, belső levelekre meg 
Store Sink-et (mondjuk még mindig nem fogom, mi a különbség és miért). 
Itt ( http://tinyurl.com/3523mh ) találtam egy kész Sink-et, ami törli a 
levelek fejlécéből a tértivevény-kérés mezőit. Eszerint az is 
lehetséges, hogy beillesszek új fejléc-mezőket?

Nekem konkrétan olyan kellene, ami beilleszti a következőt a fejlécbe

Reply-To: Levlista <lista_neve at domain.hu>

de csak akkor, ha a címzett a lista, vagyis

To: Levlista <lista_neve at domain.hu>

A fent említett sink így néz ki (bevágom mind a VB, mind a JScript-es 
verziót). A scriptekben van egy olyan sor, hogy ".Delete" ill 
"Msg.Fields.Delete". Netán lehetne helyettük "Add"-ot írni? És 
hol/hogyan kellene a feltételt megfogalmazni bennük?

VBScript
<SCRIPT language="VBScript">
  Const cdoRunNextSink = 0
 
  Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
    ' remove read receipt request fields
    Set Flds = Msg.Fields
    With Flds
      .Delete("urn:schemas:mailheader:Disposition-Notification-To")
      .Delete("urn:schemas:mailheader:Read-Receipt-To")
      ' update the mail header
      .Update
    End With
   
    ' save changes to the mail
    Msg.Datasource.Save
   
    ' continue execution with the next sink
    EventStatus = cdoRunNextSink
  End Sub
</SCRIPT>


JScript
<SCRIPT language="JScript">
  var cdoRunNextSink = 0;
 
  function ISMTPOnArrival::OnArrival(Msg, Status) {
    // remove read receipt request fields
    Msg.Fields.Delete("urn:schemas:mailheader:Disposition-Notification-To");
    Msg.Fields.Delete("urn:schemas:mailheader:Read-Receipt-To");
   
    // update the mail header and save changes
    Msg.Fields.Update();
    Msg.Datasource.Save();

    // continue execution with the next sink
    Status = cdoRunNextSink;
  }>
</SCRIPT>

Előre is köszönök minden segítséget.

Bye,

Zilahy András
rendszergazda
Vörösmarty Mihály Ének-zenei Nyelvi Általános Iskola és Gimnázium
az ELTE Gyakorlóhelye - Budapest - zilahy.andras at vmzene.hu | www.vmzene.hu