九州娛樂城

R6取消回擲通知 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 not  uidoc.IsNewDoc Then        RR = doc.GetItemValue("ReturnReceipt")         If RR(0) = "1" Then            boxType& = MB_YESNO            answer% = Messagebox("Message configured for Return Reciept. Would you like to send a Return Receipt? (No will temporarily disable Return Receipt)",boxType&, "Continue?" )             If answer% = 7 Then  ' determine if the user would like to return the receipt                doc.ReturnReceipt = "0"                Messagebox("Return Reciept disabled. No message will be sent")                Call doc.save (True, True)       ' totally disable RR on this message            End If        End If End If End SubP.S.:請注意 R5的解法和 R6不一樣哦 .msgcontent .wsharing ul li { text-indent: 0; } 分享 Facebook Plurk YAHOO! .