Autor Thema: Mails(Inbox) kopieren  (Gelesen 2560 mal)

Offline shiraz

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 648
  • Geschlecht: Männlich
Mails(Inbox) kopieren
« am: 31.08.11 - 22:03:23 »

Code
....
Dim collection As NotesDocumentCollection
	Set curdb = session.CurrentDatabase
	Set collection = curdb.UnprocessedDocuments
        Set doc = collection.GetFirstDocument()
....
		While Not(doc Is Nothing)

			Set newdoc = pd_db.CreateDocument	
			Call doc.CopyAllItems( newdoc, True )
....
                         Set doc = collection.GetNextDocument(doc)
		  Wend

Hallo,
ich will die ausgewählten mails mit hilfe eines agentes kopieren, es klappt bei mails(memo) ohne Probleme aber bei weitergeleiteten Anwort-Mails (reply) hab keinen erfolg !!!!

was mache ich falsch?

Gruß
Christian
« Letzte Änderung: 31.08.11 - 22:32:45 von shiraz »
Gruß
Christian

Offline m3

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.102
  • Geschlecht: Männlich
  • Non ex transverso sed deorsum!
    • leyrers online pamphlet
Re: Mails(Inbox) kopieren
« Antwort #1 am: 31.08.11 - 22:14:21 »
1) weiterleiten ist nicht "reply". Was jetzt?
2) In welchem Kontext wird der Code ausgeführt (Agent, ...)? Das ist für den Inhalt von UnprocessedDocuments relevant.
3) UnprocessedDocuments sind NICHT die Mails in der Inbox.
HTH
m³ aka. Martin -- leyrers online pamphlet | LEYON - All things Lotus (IBM Collaborations Solutions)

All programs evolve until they can send email.
Except Microsoft Exchange.
    - Memorable Quotes from Alt.Sysadmin.Recovery

"Lotus Notes ist wie ein Badezimmer, geht ohne Kacheln, aber nicht so gut." -- Peter Klett

"If there isn't at least a handful of solutions for any given problem, it isn't IBM"™ - @notessensai

Offline shiraz

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 648
  • Geschlecht: Männlich
Re: Mails(Inbox) kopieren
« Antwort #2 am: 31.08.11 - 22:29:24 »
ich markiere paar Mails und starte ich mein Agent! die Mails werden kopiert aber die ausgewählten Antwort-Dokumente werden nicht bearbeitet!
« Letzte Änderung: 31.08.11 - 22:41:38 von shiraz »
Gruß
Christian

Offline m3

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.102
  • Geschlecht: Männlich
  • Non ex transverso sed deorsum!
    • leyrers online pamphlet
Re: Mails(Inbox) kopieren
« Antwort #3 am: 31.08.11 - 22:49:00 »
Wie äußert sich dieses "nicht bearbeitet"?
HTH
m³ aka. Martin -- leyrers online pamphlet | LEYON - All things Lotus (IBM Collaborations Solutions)

All programs evolve until they can send email.
Except Microsoft Exchange.
    - Memorable Quotes from Alt.Sysadmin.Recovery

"Lotus Notes ist wie ein Badezimmer, geht ohne Kacheln, aber nicht so gut." -- Peter Klett

"If there isn't at least a handful of solutions for any given problem, it isn't IBM"™ - @notessensai

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Mails(Inbox) kopieren
« Antwort #4 am: 31.08.11 - 22:51:39 »
Ich denke auch, dass Martins Frage schon den Kern trifft, insbesondere, wenn ich das CopyAllItems lese  ;)

Bernhard

Offline Peter Klett

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.713
  • Geschlecht: Männlich
Re: Mails(Inbox) kopieren
« Antwort #5 am: 31.08.11 - 23:14:52 »
Kann es sein, dass Antwortdokumente in der Ansicht der "neuen" Datenbank hierarchisch angezeigt werden? Durch das Erstellen der neuen Dokumente ändert sich die UniversalID, die Antwortdokumente beinhalten aber im $REF den Verweis auf die alte DokumentID und haben daher kein Elterndokument in der Ansicht.

Ergänze Dein Script mal um diese Zeile

Set newdoc = pd_db.CreateDocument
newdoc.UniversalID = doc.UniversalID
Call doc.CopyAllItems( newdoc, True )



Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Mails(Inbox) kopieren
« Antwort #6 am: 31.08.11 - 23:18:26 »
Das geht aber einfach mit einem NotesDocument.CopyToDatabase, Peter  ;)

Bernhard

Offline shiraz

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 648
  • Geschlecht: Männlich
Re: Mails(Inbox) kopieren
« Antwort #7 am: 31.08.11 - 23:29:41 »
Danke Jungs!
Danke Bernhard!


es klappt!!
Gruß
Christian

Offline Peter Klett

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.713
  • Geschlecht: Männlich
Re: Mails(Inbox) kopieren
« Antwort #8 am: 31.08.11 - 23:34:53 »
Das geht aber einfach mit einem NotesDocument.CopyToDatabase, Peter  ;)

Bernhard
Klar, es gibt aber meist mehrere Wege und manchmal führen die auch zum gleichen Ziel, so wie hier ...

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Mails(Inbox) kopieren
« Antwort #9 am: 31.08.11 - 23:39:52 »
Naja, CopayAllItems und CopyToDatabase tun auf denersten Blick gleiches, aber da gibt schon interessante Nuancen (die man dann je nach Sachlage ausnutzen kann).

Bernhard

Offline Tode

  • Moderatoren
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 6.883
  • Geschlecht: Männlich
  • Geht nicht, gibt's (fast) nicht... *g*
Re: Mails(Inbox) kopieren
« Antwort #10 am: 01.09.11 - 09:12:31 »
Nuancen. die einem auch je nach Sachlage ins Genick schiessen... CopyToDatabase ist zum Beispiel sofort gespeichert, und damit ggf. für mich nciht mehr änderbar (wenn ich z.B. Autor bin und nicht in einem Autorenfeld stehe, oder wenn ich nicht in einem Leserfeld stehe)... das merkt man dann evtl. erst, wenn der erste Benutzer die Funktion ausprobiert (weil der keine Rolle "ReadAll" hat, o.ä.)... (natürlich vorausgesetzt, man testet nicht anständig, was wir natürlich immer alle tun)
Gruss
Torsten (Tode)

P.S.: Da mein Nickname immer mal wieder für Verwirrung sorgt: Tode hat NICHTS mit Tod zu tun. So klingt es einfach, wenn ein 2- Jähriger versucht "Torsten" zu sagen... das klingt dann so: "Tooode" (langes O, das r, s und n werden verschluckt, das t wird zum badischen d)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz