オフィス365メールが開けないノートリンク

Question

ケースが発生しました： ユーザーからのメールメールがOffice 365に変更されました。メールにはLotus Notesのリンク（ドキュメントリンク）があり、アクセスできません。

電話番号rtBody.Appenddoclink（LateInVw、 ""今日あなたの出席を見るにはクリックしてください）、 オフィス365には表示されない電子メール本文に「NotesView」を入れます。オフィス365には方法はこれを識別するメモクライアントアプリケーションとそのビューのノートアプリケーションを開こうとすると？

この

Dim tdy As Variant 
Sub Initialize() 
Print"Agent:Request for LateIn Reason started running at " & DateValue(Now()) & "," + TimeValue(Now()) 
    On Error GoTo errhandler 
    Dim ss As New NotesSession 
    Dim db As NotesDatabase 
    Dim LateInVw As NotesView 
    Dim LateInDocs As NotesViewEntryCollection 
    Dim LateEntry As NotesViewEntry 
    Dim LateDoc As NotesDocument 
    Dim StaffVw As NotesView, StaffDoc As NotesDocument 
    Dim AttVw As NotesView, Attdoc As notesdocument 
    Dim MailDoc As NotesDocument 
    Dim rtBody As NotesRichTextItem 

    Set db=ss.Currentdatabase 
    Set LateInVw=db.getview("($Today Not Alerted Late-In Time Records)") 
    Set StaffVw=db.getview("($Active Staff by ID)") 
    Set AttVw = db.Getview("($Effective Attendance Setting By ID)") 
    tdy=Datevalue(Now) 

    'get all time records for today 
    Set LateInDocs=LateInVw.Allentries 
    Set lateEntry=LateInDocs.getfirstentry 
    Do While Not LateEntry Is Nothing 
     Set LateDoc=LateEntry.Document 
     Set Attdoc=Attvw.Getdocumentbykey(LateDoc.TStaffID(0), True) 
     If Attdoc.LateAtt(0)="Yes" Then 
      If Not ApprovedLateIn(LateDoc, LateDoc.TAmend(0), False) Then 
       'get staff mail 
       Set staffDoc=StaffVw.Getdocumentbykey(LateDoc.TStaffID(0), True) 
       If Not staffdoc Is Nothing Then 
        'send email with link to main menu 
        email$=staffDoc.email(0) 
        Set Maildoc=New NotesDocument(db) 
        maildoc.Sendto=email$ 
        maildoc.Subject="Smartcard Attendance System: Late-In Notification for " +Format$(LateDoc.TDate(0),"dd/mm/yyyy") 
        Set rtBody=New NotesRichTextItem(maildoc, "Body") 
        Call rtBody.appendtext(" Dear"+" "+ staffDoc.StaffName(0)+",") 
        Call rtBody.AddNewline(2) 
        Call rtBody.appendtext("You clocked in to work today at "+lateDoc.TAmend(0)+". Please click on the link below to submit your reason for the late attendance. Thank You!") 
        Call rtBody.Addnewline(1) 
        Call rtBody.Appenddoclink(LateInVw, "", "Click to view your attendance today") 
        Call rtBody.Addnewline(2) 
        Call rtBody.Appendtext("***If the box to key in the late-in reason does not appear, kindly use the 'History Attendance' to key-in instead.") 
        maildoc.send(False) 
       End If 
      End If 
      'End If 'check late-in on/off in attendance settings 
      LateDoc.LateInAlert="Send" 
      Call LateDoc.save(True,False) 
     End If 'check late-in on/off in attendance settings 
     Set LateEntry=LateInDocs.Getnextentry(LateEntry) 
    Loop 
Print"Agent:Request for LateIn Reason ended running at " & DateValue(Now()) & "," + TimeValue(Now()) 
    Exit Sub 
errhandler: 
    Print "Got error " & Error$ & " on line " & CStr(Erl) 
    Resume next 
Print"Agent:Request for LateIn Reason ended running at " & DateValue(Now()) & "," + TimeValue(Now()) 
End Sub 

は...

Sub Initialize 
    Dim ss As New NotesSession 
    Dim db As NotesDatabase 
    Dim vw As NotesView 
    'Dim Doc As NotesViewEntryCollection 

    Dim LateInVw As NotesView 
    Dim Ec As NotesViewEntryCollection 
    Dim Entry As NotesViewEntry 
    Dim Doc As NotesDocument 

    Dim MailDoc As NotesDocument 
    Dim rtBody As NotesRichTextItem 

    Set db=ss.Currentdatabase 
    Set vw=db.getview("(test send mail)") 
    tdy=DateValue(Now) 


    %Rem 
    Set replydoc = db.Createdocument() 
    Call replydoc.Replaceitemvalue("Form", "Memo") 
    Call replydoc.Replaceitemvalue("Subject", "Pre-check Passed - " + apptitle) 
    Call replydoc.Replaceitemvalue("SendTo", indoc.From(0)) 
    Call replydoc.Replaceitemvalue("BlindCopyTo", mailinadd) 
    Set body = replydoc.Createmimeentity 
    %End Rem  
    Set EC = vw.Allentries 
    Set Entry=Ec.getfirstentry 
    Do While Not Entry Is Nothing 
     Set Doc = Entry.Document 

     email$="chee111385@gmail.com" 
     Set Maildoc= db.Createdocument() 
     Call Maildoc.Replaceitemvalue("Form", "Memo") 
     Call Maildoc.Replaceitemvalue("Subject", "Test Send Mail, Mime Format") 
     Call Maildoc.Replaceitemvalue("SendTo",email$) 
     Set body = Maildoc.Createmimeentity 

     ss.Convertmime = False 
     Set stream = ss.Createstream() 

     stream.Writetext(|<html><body>|) 
     stream.Writetext(|<p>Dear Sir, | + |,</p>|) 
     stream.Writetext(|<p>This is a testing mail. Thanks You!<br>| + |</p>|) 
     stream.Writetext(|<p>|+|Notes://Mulu/482577AE00260EC5/|+ +Doc.Universalid+|</p>|) 
     Call stream.Writetext(|</body></html>|) 

     Call body.Setcontentfromtext(stream, "text/html;charset=UTF-8", 1725) 
     Call maildoc.Send(False) 
     ss.Convertmime = True 

     Set Entry = EC.Getnextentry(Entry) 
    Loop 

End Sub 

MIME形式としての私のサンプル書き換えコードである私だけではなく、オープンNotes文書に直接...毎回のように私は、リンクをクリックする方法がわからそれはフレームセット自体に行きます...これは正しくありません！

Answer 1

あなたがこの1つのアプリケーションについて質問している場合、あなたがする必要があるのは、ノート：// URLについて学ぶことです。read about hereです。 doclinkの代わりに、またはdoclinkに加えて、ビューの正しい形式のURLを生成するようにコードを変更するだけです。ユーザーがnotes：// URLをクリックすると、Notesクライアントが開き、ユーザーがビューに移動します。

ドミノサーバーにインストールされたソリューションを探して、コードを変更することなくすべてのアプリケーションに対して自動的にこれを処理するよりも、実際にドキュメントリンクをユーザーに送信するアプリケーションがたくさんある場合は。 Genii Softwareという会社には、これを行うCoExLinks Fidelityという製品があります。