Lotus Notes ile gönderdiğiniz iletileri başka bir eposta hesabına gönderebilmek

Tüm kodumuz burada ve ekran görüntüleri de aşağıda olacak. Anlaşılmasında sorun çıkarsa yardım etmeye çalışırım.

Sub Initialize
 
 
 Dim s As New NotesSession 
 Dim db As NotesDatabase       ' current mail file
 Dim lupV As NotesView        ' docs in forwarding folder
 Dim lupDoc As NotesDocument     ' current lupE doc being forwarded
 Dim counter As Long         ' counter, use for limit
 Dim dc As notesdocumentcollection
 
 Set db = s.CurrentDatabase
 Set dc=db.UnprocessedDocuments
 Set lupDoc = dc.GetFirstDocument
 
 Do While Not(lupDoc Is Nothing)
  
  If (ProcessEmail(s, db, lupDoc, "cem.topkaya@hotmail.com")=1) Then
   Set lupDoc = dc.GetNextDocument(lupDoc)
  End If
  counter =counter+1
 Loop
 
SkipDone:
 Print "Es geçilen belge"
 Exit Sub
 
ErrorHandler:
 Print "Unexpected Error: " & Cstr(Err) & " " & Error$ & ", on line: " & Cstr(Erl)
 
End Sub

Function ProcessEmail(s As NotesSession, db As NotesDatabase, lupDoc As NotesDocument, newSendTo) As Integer
 ' forwards current entry/doc, and returns 1 if successful
 ' newSendTo should be internet address or Canonical Notes name
 Dim mDoc As NotesDocument ' new memo doc created from original doc
 
 On Error Goto FErrorHandler
 
 ' create new doc from current document
 Set mDoc = db.CreateDocument()
 Call lupDoc.CopyAllItems(mDoc, True)
 mDoc.SaveMessageOnSend = False
 
 ' remap from/sendto/replyto so when forwarded still be from original person
 Call mDoc.ReplaceItemValue("SendTo", newSendTo)
 Call mDoc.ReplaceItemValue("CopyTo", "")    ' otherwise another copy will be sent
 Call mDoc.ReplaceItemValue("BlindCopyTo", "")  ' otherwise another copy will be sent
 
 ' send new doc
 Call mDoc.Send(False, newSendTo)
 ' reset to nothing
 Set mDoc = Nothing
 
 ' başarılı bir eposta gönderimi yaptık
 ProcessEmail = 1
 
FExit:
 Exit Function
 
FErrorHandler:
 Print "(ProcessEmail) Unexpected Error: " & Cstr(Err) & " " & Error$ & ", on line: " & Cstr(Erl)
 ProcessEmail = 0
 Exit Function
End Function