2014-10-28 3 views
0

Internet Explorer 9을 통해 IBM Lotus Notes 8.5을 통해 이메일을 보내고 싶습니다. 이 작업을 위해 다음 웹 페이지를 작성했습니다.자바 스크립트에서 연꽃 노트로 메일 보내기

그러나 아무 일도 발생하지 않습니다. 내가 무슨 일을하고있는 중이 야

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
    <title>Lotus</title> 
    <script language="javascript" type="text/javascript"> 
    function SendScriptMail() 
{ 
    var mToMail = document.getElementById('txtMailId').value 
    var mSub = document.getElementById('txtSubject').value 
    var mMsg = document.getElementById('txtContent').value 
    var Maildb; 
    var UserName; 
    var MailDbName; 
    var MailDoc; 
    var AttachME; 
    var Session; 
    var EmbedObj; 
    var server; 
    try 
    { 
     // Create the Activex object for NotesSession 
     Session = new ActiveXObject('Notes.NotesSession'); 
     if(Session !=null) 
     { 
      // Get the user name to retrieve database 
      UserName = Session.UserName; 
      // Retrieve database from username 
      MailDbName = UserName.substring(0,1) + UserName.substring(
       UserName.indexOf(" " ,1) + 1 ,UserName.length) + ".nsf" 
      // Get database 
      Maildb = Session.GetDatabase("", MailDbName); 
      // open the database 
      if(Maildb.IsOpen != true) 
      { 
       Maildb.OPENMAIL(); 
      } 
      // Create the mail document 
      MailDoc = Maildb.CREATEDOCUMENT(); 
      // From email id (Username) 
      MailDoc.Form = 'Memo'; 
      // To email id 
      MailDoc.sendto = mToMail; 
      // Subject of the mail 
      MailDoc.Subject = mSub; 
      // Content of the mail 
      MailDoc.Body = mMsg 
       // if you want to save message on send, give true here 
       MailDoc.SAVEMESSAGEONSEND = false; 
      // send the mail (check ensure the internet connection) 
      MailDoc.Send(true); 
      // save the mail in draft (no need of internet connection) 
      MailDoc.Save(false, true); 
      // destroy the objects 
      Maildb = null; 
      MailDoc = null; 
      AttachME = null; 
      EmbedObj = null; 
      Session.Close(); 
      Session = null; 
      alert('Mail sent successfully'); 
     } 
     else 
     { 
      alert('Mail not sent'); 
     } 
    } 
    catch(err) 
    { 
     if(err == '[object Error]') 
     { 
      alert('Error while sending mail, 
     Please check Lotus Notes installed in your system'); 
     } 
     else 
     { 
      alert('Error while sending mail'); 
     } 
    } 
} 

    </script> 
</head> 
<body> 
    <table width="100%" height="100%"> 
     <tr> 
      <td width="40%" height="130px"> 
      </td> 
      <td> 
      </td> 
      <td width="40%"> 
      </td> 
     </tr> 
     <tr> 
      <td> 
      </td> 
      <td> 
       <table width="100%"> 
        <tr> 
         <td style="color: Black; font-size: 10px; font-family: Verdana; text-align: left;" 
          width="100px" valign="top"> 
          Mail Id</td> 
         <td> 
          <input id="txtMailId" style="color: #000000; font-size: 10px; font-family: Verdana; 
           height: 11px; text-align: left; top: auto; border: 1px solid #336699; text-decoration: none; 
           width: 176px;" type="text" maxlength="50" /></td> 
        </tr> 
        <tr> 
         <td style="color: Black; font-size: 10px; font-family: Verdana; text-align: left;" 
          valign="top"> 
          Subject</td> 
         <td> 
          <input id="txtSubject" style="color: #000000; font-size: 10px; font-family: Verdana; 
           height: 11px; text-align: left; top: auto; border: 1px solid #336699; text-decoration: none; 
           width: 176px;" type="text" maxlength="50" /></td> 
        </tr> 
        <tr> 
         <td style="color: Black; font-size: 10px; font-family: Verdana; text-align: left; 
          height: 79px;" valign="top"> 
          Content</td> 
         <td> 
          <textarea id="txtContent" cols="20" style="color: #000000; font-size: 10px; font-family: Verdana; 
           height: 100px; text-align: left; top: auto; border: 1px solid #336699; text-decoration: none; 
           width: 300px;"></textarea></td> 
        </tr> 
        <tr> 
         <td> 
         </td> 
         <td> 
          <input id="btnSend" type="button" onclick="SendScriptMail();" style="font-family: Verdana; font-size: 11px; text-align: center; 
           top: auto; width: 60px; background-color: #A55129; border: 1px solid #336699; 
           text-decoration: none; font-weight: normal; color: #FFFFFF;" value="Send" /> 
          <input id="btnCancel" style="font-family: Verdana; font-size: 11px; text-align: center; 
           top: auto; width: 60px; background-color: #A55129; border: 1px solid #336699; 
           text-decoration: none; font-weight: normal; color: #FFFFFF;" type="button" value="Cancel" onclick="sendEmail();"/></td> 
        </tr> 
       </table> 
      </td> 
      <td> 
      </td> 
     </tr> 
     <tr> 
      <td height="130px"> 
      </td> 
      <td> 
      </td> 
      <td> 
      </td> 
     </tr> 
    </table> 
</body> 
</html> 

모든 권고를 :

이 내 코드?

답변 해 주셔서 감사합니다.

+0

"UserName"대신 "UerName"맞춤법 오류가 발견 될 수 있습니다. –

+0

@PerHenrikLausten Thx 나는 그것을 바로 잡고 다시 시도했다. 그러나 아무 일도 일어나지 않습니다. 나는 아무런 경고도 내지 않네. ( – mrquad

+1

누군가 여기 간단한 예제가있다 : http://www.coderanch.com/t/561821/HTML-CSS-JavaScript/Invoking-Lotus-Notes-JavaScript-code. 당신도 그 일을 할 수 있는지보십시오 –

답변

1

로컬 ActiveX 컨트롤을 사용하기 때문에 사용중인 컴퓨터에 Notes 클라이언트 (및 올바른 DLL 파일)가 설치되어 있습니까? 디버거 (예 : Firebug)를 통해 Javascript를 실행하여 어떤 일이 발생했는지 확인 했습니까?

이렇게하면 안됩니다. 웹 페이지에서 호출하는 서버 측 스크립트를 작성합니다. 아래 코드를 참조하십시오. 그런 다음 서버에 LotusScript 에이전트를 작성하여 호출하십시오. 전달한 인수를 읽고 전자 메일을 보냅니다.