Autor Thema: Return Receipt verhindern ...  (Gelesen 5319 mal)

Offline kloeti

  • Senior Mitglied
  • ****
  • Beiträge: 363
  • Geschlecht: Männlich
  • jack of all trade, master of none...
Return Receipt verhindern ...
« am: 29.05.02 - 10:13:27 »
Sali zämme ...

Hat einer von Euch ev. ein Script parat, mit dem man den Delivery Receipt verhindern kann?   :P

Gruzz
kloeti
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.730
  • Geschlecht: Männlich
Re: Return Receipt verhindern ...
« Antwort #1 am: 29.05.02 - 10:35:43 »
na logisch.

das hier in einen Agenten gepackt ( nach Eingang neuer Mail )

und schon ist Ruhe  ;D

FIELD ReturnReceipt:= ReturnReceipt;
FIELD Subject:= Subject;
@If(@IsAvailable(ReturnReceipt);
@If(ReturnReceipt = "1";
@Do(
@SetField("ReturnReceipt"; "0");
@SetField("Subject"; "****** INFO: DISABLED \"Return Receipt\" ****** " +
Subject)); ""); "");
SELECT @All
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Offline Hardy

  • Aktives Mitglied
  • ***
  • Beiträge: 137
  • Geschlecht: Männlich
  • Wer will sucht Wege , wer nicht will sucht Gründe
    • Homepage
Re: Return Receipt verhindern ...
« Antwort #2 am: 29.05.02 - 10:36:20 »
Moin,

wie wärs hiermit ?

In das Queryopen der Maildatenbank kopieren.
(Vorhandene Einträge überschreiben!):

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
     Set cMemoObject = New UIMemoDocument        
     Call cMemoObject.Init(Source,Isnewdoc)  
     Set uidoc = Source
     Set doc = Source.document
     If uidoc.isNewDoc Then
'don' t do anything, as this is a new document
     Else
           RR = doc.GetItemValue("ReturnReceipt")
           If RR(0) = "1" Then
                 boxType& = MB_YESNO
                 answer% = Messagebox ("Der Absender erwartet eine Empfangsbestätigung." + Chr(13) + " >>>> Wollen Sie diese versenden ? ", boxType&, "Empfangsbestätigung ?")
                 If answer% = 7 Then
                       doc.ReturnReceipt="0"
                 End If
           End If
     End If
     
     
End Sub

Wenn ReturnReceipt vorhanden erscheint ein PopUp Fenster mit einer Abfrage

Gruß

Hardy
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
______________________________
Mit Software ist es wie mit Bananen !
Beides reift beim Kunden !!
______________________________
28 x 6.5.5 im Cluster auf WinSrv 2003

Clients:
6.000 User (Win XP Prof.) 6.5.4

Offline kloeti

  • Senior Mitglied
  • ****
  • Beiträge: 363
  • Geschlecht: Männlich
  • jack of all trade, master of none...
Re: Return Receipt verhindern ...
« Antwort #3 am: 29.05.02 - 11:28:28 »
@eknori ... geht ned   :-/

@Hardy ... wo find ich die QueryOpen? Hast Du einen Screenshot, damit ich nix falsch mache?

Grazie  ;D
kloeti

Offline Felix

  • Aktives Mitglied
  • ***
  • Beiträge: 222
  • Geschlecht: Männlich
  • Es ist noch kein Meister vom Himmel gefallen!
Re: Return Receipt verhindern ...
« Antwort #4 am: 29.05.02 - 11:38:50 »
Hallo kloeti,

Mail DB im Designer öffnen – auf Maske gehen Memo öffnen –
unter dem Punkt Memo (Maske) in den Objekten Queryopen auswählen – Script einkopieren
Fertig

Felix
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline Hardy

  • Aktives Mitglied
  • ***
  • Beiträge: 137
  • Geschlecht: Männlich
  • Wer will sucht Wege , wer nicht will sucht Gründe
    • Homepage
Re: Return Receipt verhindern ...
« Antwort #5 am: 29.05.02 - 11:47:56 »
Danke für's Synchronsprechen !  :D


Hardy
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
______________________________
Mit Software ist es wie mit Bananen !
Beides reift beim Kunden !!
______________________________
28 x 6.5.5 im Cluster auf WinSrv 2003

Clients:
6.000 User (Win XP Prof.) 6.5.4

Offline Felix

  • Aktives Mitglied
  • ***
  • Beiträge: 222
  • Geschlecht: Männlich
  • Es ist noch kein Meister vom Himmel gefallen!
Re: Return Receipt verhindern ...
« Antwort #6 am: 29.05.02 - 11:49:08 »
gerngeschehen  ;D :D ;)
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline kloeti

  • Senior Mitglied
  • ****
  • Beiträge: 363
  • Geschlecht: Männlich
  • jack of all trade, master of none...
Re: Return Receipt verhindern ...
« Antwort #7 am: 29.05.02 - 11:51:55 »
goil ... es gait  ;D


Danke danke danke ...
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline NotesBug

  • Aktives Mitglied
  • ***
  • Beiträge: 129
  • Geschlecht: Männlich
  • Accept it, it is Notes !
Re: Return Receipt verhindern ...
« Antwort #8 am: 29.05.02 - 12:53:30 »
Bitte solche Fragen immer im Problem Forum bringen.

Nachdem die Anwort aber wirklich mehr ein Tip ist lasse ich Sie mal weiterhin hier und verschiebe sie nicht.

NotesBug
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline Silke

  • Senior Mitglied
  • ****
  • Beiträge: 463
  • Geschlecht: Weiblich
  • Carpe Diem
Re: Return Receipt verhindern ...
« Antwort #9 am: 30.05.02 - 10:59:17 »
Zitat
Bitte solche Fragen immer im Problem Forum bringen.

Nachdem die Anwort aber wirklich mehr ein Tip ist lasse ich Sie mal weiterhin hier und verschiebe sie nicht.

NotesBug


Ich hatte das Problem vor wenigen Tagen im Entwicklerforum angestossen:
http://www.atnotes.de/cgi-bin/yabb/YaBB.pl?board=002-2;action=display;num=1022489766

Könnte es vielleicht mal eine Mailaktion geben wo nochmal kurz dagelegt wird was tendenziell wo hin soll

Silke  8)

« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Silke 8)

1. Mitglied der 1. DAU Selbsthilfegruppe :D

Support für Alles und Jeden

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz