Notes/Domino 4 and 5 Forum

Hi All,
Here is my "Before New mail arrives" Agent which runs on my inbox to Forward mails to a yahoo mail account. My problem is it forward mails only from our domain....it doesn't forward when mails come from foreign domains eg: hotmail,yahoo...etc...I read the forum as well as the Agent FAQ still couldn't find a solution....please help me..
Regards
shana

Dim session As New NotesSession
Dim doc As NotesDocument
Dim dbug As NotesLog
Dim db As NotesDatabase
Dim bodyitem As NotesRichTextItem
Dim dup As NotesDocument


Set dbug = New NotesLog("Router log")
dbug.LogActions = True
dbug.OpenAgentLog
dbug.LogAction("begin")

Set db = session.CurrentDatabase
Set doc = session.DocumentContext

Set dup = New NotesDocument(db)
Dim subString As String
Subj=doc.Subject(0)
'ReplyTo=doc.SMTPOriginator(0)
ReplyTo=doc.From(0)
subString$ = Left$(Subj, 4)

If subString$ = "Spam" Then
Call doc.PutInFolder( "SPAM" )
Call doc.RemoveFromFolder("($InBox)")
Elseif subString$ <> "Spam" Then
Call doc.CopyAllItems(dup,True)
dup.CopyTo = ""
dup.PRINCIPAL=ReplyTo
Call dup.Send(False, "abc@yahoo.com")
dbug.LogAction("Mail Forwarded")
End If
dbug.Close