Autor Thema: Frage nach dem Ordner - gesendete Objekte  (Gelesen 2816 mal)

Offline wuwu

  • Senior Mitglied
  • ****
  • Beiträge: 357
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Frage nach dem Ordner - gesendete Objekte
« am: 11.10.06 - 16:41:15 »
Hallo,

ich habe dieses Script im QueryOpen der Memo Maske drinnen.

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   Dim note As notesdocument
   If Not isnewdoc Then
      Set note=source.document         
      If note.hasitem("ReturnReceipt") Then
         If Not note.getitemvalue("ReturnReceipt")(0)="0" Then
            If Not (Messagebox ("Wollen Sie die Empfangsbestätigung wirklich schicken?" , 4+256, "MAIL")=6) Then
               Call note.removeitem("ReturnReceipt")
               Call note.save(True,True, True)
            End If
         End If
      End If
   End If
   Set cMemoObject = New UIMemoDocument
   Call cMemoObject.Init(Source,Isnewdoc)
End Sub

Wenn der User nun seine gesendeten Objekte - gesendeten Mails aufruft sollte die Frage nicht kommen, ob er eine Bestätigung schicken sollte!

Wie kann ich den den Ordner abfragen bzw. das die Meldung in diesem Ordner nicht erscheint?

Mfg WU
Domino 7.01 - AS 400, Domino 7.01 - Win2003, Lotus Notes 8.01 Basic->PCs, NB, Terminal Server Farm.

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: Frage nach dem Ordner - gesendete Objekte
« Antwort #1 am: 11.10.06 - 16:54:21 »
"Gesendet" ist eine View, kein Ordner.

Ev. kannst ja notesUIWorkspace.CurrentView abfragen.
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 umi

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.062
  • Geschlecht: Männlich
  • one notes to rule'em all, one notes to find'em....
    • Belsoft AG
Re: Frage nach dem Ordner - gesendete Objekte
« Antwort #2 am: 11.10.06 - 16:54:44 »
Sie Dir mal diese Formel an
Code
@If(DeliveredDate=""; @If(PostedDate="" | @IsUnavailable(PostedDate); 58;
		@If(Importance="1";124;
			@If(ExpireDate !=""   ;64;displaycopyto_icon = "1";"sentto.gif";122)));0)
Damit entscheidet das Mailtemplate, ob es das Sentto.gif anzeigen soll oder nicht. evtl. sollte dich das weiterbringen.
Gruss

Urs

<:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Jegliche Schreibfehler sind unpeabischigt
http://www.belsoft.ch
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~:>

Offline umi

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.062
  • Geschlecht: Männlich
  • one notes to rule'em all, one notes to find'em....
    • Belsoft AG
Re: Frage nach dem Ordner - gesendete Objekte
« Antwort #3 am: 11.10.06 - 16:55:42 »
Was machst Du denn, wenn der User das Mail über "All Documents " öffnet ?
Gruss

Urs

<:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Jegliche Schreibfehler sind unpeabischigt
http://www.belsoft.ch
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~:>

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Frage nach dem Ordner - gesendete Objekte
« Antwort #4 am: 11.10.06 - 18:04:39 »
... oder in einem ganz anderen Ordner zu stehen hat ...

umi's Vorschlag ist der sinnvollste in meinen Augen. Für den aktuellen Zweck sollte sogar ein
If Source.Document.From (0) <> session.UserName then ...
ausreichen.

Bernhard

Offline wuwu

  • Senior Mitglied
  • ****
  • Beiträge: 357
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Re: Frage nach dem Ordner - gesendete Objekte
« Antwort #5 am: 12.10.06 - 14:41:20 »
Hallo Bernhard,

dein Tip war genau der richtige!
Habe seit ca. einem Jahr nichts mehr programmiert bzw. mit dem Designer gearbeitet, deswegen hat es jetzt bei mir wieder ein wenig länger gedauert, aber es funktioniert!
Es ist brutal, wieder fast alles vergessen, verdammt!

Mfg & Danke
Horst
Domino 7.01 - AS 400, Domino 7.01 - Win2003, Lotus Notes 8.01 Basic->PCs, NB, Terminal Server Farm.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz