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
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.
Kaydol:
Kayıtlar (Atom)