Domino 9 und frühere Versionen > Administration & Userprobleme

automatisches versenden von empfangsbestätigungen

<< < (4/4)

hrcmg:
Hi eknori,
nach deiner Erklärung weis ich jetzt was zu tun ist.

Gruß hrcmg

wuwu:
Hallo,


--- Zitat von: Myron am 03.12.02 - 11:15:14 ---so gehts auch ...

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

--- Ende Zitat ---

Ist es möglich bei dem Mail das in gesendete Objekte gespeichert wird, das dort die Abfrage nicht kommt?
Wenn der User seine gesendeten Mails durchsieht bekommt er dann die Meldung!

Mfg Horst

Navigation

[0] Themen-Index

[*] Vorherige Sete