Hallo zusammen!
Ich habe bei uns Exchange 2003 installiert, soweit funktioniert alles wunderbar.
Nun habe ich ein VB-Script auf dem Exchange Server installiert, das an jede ausgehende Mail eine Standardsignatur hängen soll, wie auch gesetzlich vorgeschrieben.
Nun wird diese Signatur allerdings bei rausgehenden Mails NICHT angehängt, DAFÜR aber bei Eingehenden Mails was ja sinnlos ist.
Das Script sieht so aus:
<SCRIPT LANGUAGE="VBScript">Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus) TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript." HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer added in a VBScript." If Msg.HTMLBody <> "" Then 'Search for the "</body>" tag and insert our disclaimer before that tag. pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare) szPartI = Left(Msg.HTMLBody, pos - 1) szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1)) Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII End If If Msg.TextBody <> "" Then Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf End If 'Commit the content changes to the transport ADO Stream object. Msg.DataSource.Save ' Commit the changes into the transport Stream EventStatus = cdoRunNextSinkEnd Sub</SCRIPT>
Leider hab ich keine Ahnung von VB und Scripten.
Über eure Hilfe wäre ich sehr dankbar.