使用python 驱动 lotus notes发送邮件

因为最近做buildbot，想要使用公司的邮件系统 lotus notes发送邮件，但是网上一直没有比较完整的例子，都是vb的例子比较多，或者例子不完整，后来看到一个用visual foxpro 做的例子，才知道lotus 的com对象可能在版本间有差别，比如网上很多例子都用doc.Form，但是实际上doc对象没有Form属性，应该用ReplaceItemValue才对。这个例子是针对notes 6.5的。

 

 

from win32com.client import Dispatch

 

def SendEmail(SendTo,CC,BCC,Subject,Body,Attachment=None,Pass=None):

    if SendTo==None:

        return

    session=Dispatch("Lotus.NotesSession")

    if Pass:

        session.Initialize(Pass)

    Server=session.GetEnvironmentString( "MailServer",True)

    MaildbName=session.GetEnvironmentString( "MailFile",True)

    db=session.GetDatabase(Server,MaildbName)

    doc=db.CreateDocument()

    doc.ReplaceItemValue("Form","Memo")

    if SendTo:

        doc.ReplaceItemValue("SendTo",SendTo)

    if CC:

        doc.ReplaceItemValue("CopyTo",SendTo)

    if BCC:

        doc.ReplaceItemValue("BlindCopyTo",SendTo)

    if Subject:

        doc.ReplaceItemValue("Subject",Subject)

 

    stream=session.CreateStream()

    stream.WriteText(Body)

 

    bodyMime=doc.CreateMIMEEntity()

    bodyMime.SetContentFromText(stream,"text/html;charset=iso-8859-1",False)

 

    if Attachment:

        RichTextItem = doc.CreateRichTextItem("Attachment")

        for fn in Attachment:

            RichTextItem.EmbedObject(1454, "", fn ,"Attachment")

 

    '''

    bodyMime=doc.CreateMIMEEntity()

    bodyMime.SetContentFromText(stream,"text/html;charset=iso-8859-1",False)

    doc.ReplaceItemValue( "Logo", "StdNotesLtr3" )

    doc.ReplaceItemValue( "_ViewIcon", 23 )

    doc.ReplaceItemValue( "SenderTag", "Y" )

    '''

 

    doc.Send(False)

 

SendEmail("yourname@yourdomain",None,None,"Title:test for python","body:test for python send mail",

    ["d:/testtool/teri/pcsim/test.xls","d:/testtool/teri/pcsim/test_email.py"],"password")