Aklımda Kalası Kelimeler

* давайте работать вместе
* Zarf ve Mazruf, Zerafet(xHoyratlık) ile aynı kökten(za-ra-fe) gelir
* Bedesten
* Suç subuta ermiştir - Suç sabit olmuştur

14 Eylül 2015 Pazartesi

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