PHP使用 COM 对象向 Lotus Domino 发邮件

最新推荐文章于 2022-04-07 19:01:13 发布

沈家大帅

最新推荐文章于 2022-04-07 19:01:13 发布

阅读量2.6k

点赞数

分类专栏：数据库文章标签： lotus php object session string exception

本文链接：https://blog.csdn.net/Naruto_ahu/article/details/6427372

版权

数据库专栏收录该内容

9 篇文章 0 订阅

订阅专栏

终于松一口气了，今天终于可以带着清爽的心情下班了！

如题，为了实现这个功能，打印了很多资料，查了计算机网络，给公司的expert发信都没进展。最终在Melody的提示下，决定把已有的VB代码转成PHP代码。现分享原来的VB代码和转换后的PHP代码，希望有所帮助。

Public Sub SendNotesMail(Subject As String, attachment As String, recipient As String, bodytext As String, saveit As Boolean)

'Set up the objects required for Automation into lotus notes
    Dim Maildb As Object 'The mail database
    Dim UserName As String 'The current users notes name
    Dim MailDbName As String 'THe current users notes mail database name
    Dim MailDoc As Object 'The mail document itself
    Dim AttachME As Object 'The attachment richtextfile object
    Dim Session As Object 'The notes session
    Dim EmbedObj As Object 'The embedded object (Attachment)
    Set Session = CreateObject("Notes.NotesSession")
    'Session.Initialize ("password")
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    'open mailbox
    Set Maildb = Session.GETDATABASE("", MailDbName)
     If Maildb.IsOpen = True Then
          'if open then go-on
     Else
         Maildb.OPENMAIL
     End If
    'generate mail message
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = recipient
    MailDoc.Subject = Subject
    MailDoc.Body = bodytext

MailDoc.SAVEMESSAGEONSEND = saveit

'add attachment
 If attachment <> "" Then
 Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
 Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", attachment, "Attachment")
 End If
 'send message
 MailDoc.PostedDate = Now() 'add PostedDate
 MailDoc.SEND 0, recipient
 'clear memory
 Set Maildb = Nothing
 Set MailDoc = Nothing
 Set AttachME = Nothing
 Set Session = Nothing
 Set EmbedObj = Nothing
End Sub

<?php //echo phpinfo(); /* * check */ $fp = fsockopen ('131.101.17.2', 25, $errno, $errstr, 60); if($fp) { echo "Connected successfully! "; } else { die("Failed to connect! "); } ?> <?php function SendNotesMail($Subject, $attachment, $recipient, $bodytext, $saveit){ try{ //Initiate Lotus Notes session $session = new COM("Lotus.NotesSession")or die("Unable to instanciate Lotus.NotesSession"); $session->Initialize("password***"); $UserName = $session->UserName; $MailDbName = substr($UserName,0,1).substr($UserName,strpos($UserName," ")+1).".nsf"; print "Current user: " . $session->UserName . " "; print "CommonCurrent user: ".$session->CommonUserName()." "; print "/$MailDbName:$MailDbName "; //open mailbox $Maildb = $session->getDatabase("", "C:/Lotus/Notes/Data/mail/sshen.nsf"); if($Maildb->IsOpen == true){ print "IsOpen! "; } else{ //$Maildb->OPEN(); print "NotOpen! "; } echo " ".date('Y-m-d H:i')." "; //generate mail message $MailDoc = $Maildb->CREATEDOCUMENT(); $MailDoc->AppendItemValue("Subject",$Subject); $MailDoc->AppendItemValue("Body",$bodytext); $MailDoc->SAVEMESSAGEONSEND = false; //send message $MailDoc->SEND(0, $recipient); //clear memory $Maildb = null; $MailDoc = null; $AttachME = null; $session = null; $EmbedObj = null; }catch (Exception $e) { echo ' ------------------------------------------ '; echo 'Caught exception: ', $e->getMessage(); echo ' ------------------------------------------ '; } }//function SendNotesMail($Subject, $attachment, $recipient, $bodytext, $saveit) SendNotesMail("OK?Test Email by SH!", "", "Sheng_Shen@notes.terxxx.com", "Please Reply me as soon as possible!Urgent!", false); ?>

参考资料：

1.http://www.ibm.com/developerworks/cn/lotus/domino-php/

2.占位

3.在VB中按F2打开Object Browser查看属性和方法