#82074 s1234 [Gast]02.09.2008, 12:07:14 |
E-Mails nach dem Senden abfangen und in anderes POP3-Konto kopieren (web.server) |
Hallo, |
#82075 Jeff ClaySyria Planum, 02.09.2008, 12:22:32 @ s1234 |
E-Mails nach dem Senden abfangen und in anderes POP3-Konto kopieren |
und wenn du ihm in der config seines mailclients einfach nen bcc auf den externe mailkonto setzt? -- |
#82085 s1234 [Gast]02.09.2008, 13:06:23 @ Jeff Clay |
E-Mails nach dem Senden abfangen und in anderes POP3-Konto kopieren |
> und wenn du ihm in der config seines mailclients einfach nen bcc auf den |
#114676 HOT1623 [Gast]14.01.2009, 09:07:07 @ s1234 |
E-Mails nach dem Senden abfangen und in anderes POP3-Konto kopieren |
Hallo, |
#82114 HausdocGreen Cottage, 02.09.2008, 16:29:57 @ s1234 |
Bei Outlook Express gehts so.. |
Stichwort : Kopie auf dem Server belassen . -- |
#82124 d-fensBonn, 02.09.2008, 18:35:50 (editiert von d-fens, 02.09.2008, 18:37:27) @ Hausdoc |
Bei Outlook Express gehts so.. (ed) |
> Stichwort : Kopie auf dem Server belassen . -- |
#82129 HausdocGreen Cottage, 02.09.2008, 18:47:05 @ d-fens |
Bei Outlook Express gehts so.. |
> -- |
#82132 d-fensBonn, 02.09.2008, 19:19:53 @ Hausdoc |
Bei Outlook Express gehts so.. |
> Muss es das zwangsweise?? -- |
#82142 glitzi02.09.2008, 21:19:25 @ s1234 |
E-Mails nach dem Senden abfangen und in anderes POP3-Konto kopieren |
Hallo, 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
|