verfaßt von glitzi, 02.09.2008, 21:19:25
Hallo,
hab selber weder einen Windows-Server noch MailEnable im Einsatz, kann es also nicht ausprobieren. Theoretisch sollte es aber mit einem Pickup-Event funktionieren. Du musst die Mail durchgehen und schauen ob der Absender passt. Wenn ja, musst du einen neuen BCC-Header einfügen.
Hier gibt es einen Beispielcode für die Pickup-Events: http://www.mailenable.com/kb/Content/Article.asp?ID=me020028
Allerdings konnte ich auf die schnelle nicht rausfinden wie die zwei Dateien (Message File und Message Command File) aufgebaut sind und was dort drinsteht. Für den Anfang könntest du das so rausbekommen:
Sub Main()
Dim sMsgCommandFile as String
Dim sMsgFile as String
Dim hFile As Long
Dim hOut As Long
Dim args() As String
Dim sFileLine as String
Dim outFile As String
args() = Split(Command(), \" \")
sMsgCommandFile = GetRegistryString(\"SOFTWARE\\Mail Enable\\Mail Enable\", \"Data Directory\") & _
\"\\QUEUES\\\" & args(1) & \"\\Inbound\\\" & args(0)
sMsgFile = GetRegistryString(\"SOFTWARE\\Mail Enable\\Mail Enable\", \"Data Directory\") & _
\"\\QUEUES\\\" & args(1) & \"\\Inbound\\Messages\\\" & args(0)
outFile = \"C:\\TEMP\\messagefile.txt\"
hFile = FreeFile
hOut = FreeFile
On Error goto Err Handler
Open sMsgFile For Input as #hFile
Open outFile For Output as #hOut
While Not EOF(hFile)
Line Input #hFile, sFileLine
Print #hOut, sFileLine
Wend
Close (hFile)
Close (hOut)
outFile = \"C:\\TEMP\\messagecommandfile.txt\"
hFile = FreeFile
hOut = FreeFile
Open sMsgCommandFile For Input as #hFile
Open outFile For Output as #hOut
While Not EOF(hFile)
Line Input #hFile, sFileLine
Print #hOut, sFileLine
Wend
Close (hFile)
Close (hOut)
Exit Sub
ErrHandler:
App.LogEvent \"Could not process pickup event for Connector: \" & ConnectorCode & _
\" Message ID: \" & MessageID
End Sub
Der Code liest beide Dateien ein und schreibt Sie nach C:\\TEMP, dann kannst dir danach anschauen was in den einzelnen Dateien drinsteht. Die Datei, die den Absender enthält läufst du nachher durch und suchst nach dem Absender. Wenn der gefunden wird, dann schreibst du in die Datei, in der der Empfänger drinsteht einen zusätzlichen BCC-Header rein.
mfg glitzi
gesamter Thread: