[python-win32] How to send mail via Extended MAPI

[Chad and Anita Stryker]

David,   Thank you for figuring this extended MAPI interface all out.  I discovered a couple of problems with the code (on my system at least).  First, the message in my outbox was marked as read.  Second, the message would remain in the outbox after it was sent.  After several hours of work, I added three lines to the function that mark the message as unread and cause the message to be deleted from the outbox after it is sent.   First, I added a constant that I found in the MAPI header file MAPIDefS.h.   CLEAR_READ_FLAG = 4   Next I added two lines just before “outboxfolder.SaveChanges(0)”.   message.SetReadFlag(CLEAR_READ_FLAG) message.SetProps([(mapitags.PR_DELETE_AFTER_SUBMIT,1)])   With these changes, the behavior in the outbox is consistent with sending messages directly from Outlook.     Chad     -------------- next part -------------- #!/usr/bin/env python   """module to send mail with Extended MAPI using the pywin32 mapi wrappers..."""   # this was based on Jason Hattingh's C++ code at http://www.codeproject.com/internet/mapadmin.asp # written by David Fraser <davidf at sjsoft.com> and Stephen Emslie <stephene at sjsoft.com> # you can test this by changing the variables at the bottom and running from the command line   from win32com.mapi import mapi from win32com.mapi import mapitags   # constant from MAPIDefS.h, added by Chad Stryker CLEAR_READ_FLAG = 4 # Pre 2.2.1 compat. try: True, False except NameError: True = 1==1; False = 1==0   def SendEMAPIMail(Subject="", Message="", SendTo=None, SendCC=None, SendBCC=None, MAPIProfile=None):     """Sends an email to the recipient using the extended MAPI interface     Subject and Message are strings     Send{To,CC,BCC} are comma-separated address lists     MAPIProfile is the name of the MAPI profile"""       # initialize and log on     mapi.MAPIInitialize(None)     session = mapi.MAPILogonEx(0, MAPIProfile, None, mapi.MAPI_EXTENDED | mapi.MAPI_USE_DEFAULT)     messagestorestable = session.GetMsgStoresTable(0)     messagestorestable.SetColumns((mapitags.PR_ENTRYID, mapitags.PR_DISPLAY_NAME_A, mapitags.PR_DEFAULT_STORE),0)       while (True):         rows = messagestorestable.QueryRows(1, 0)         if len(rows) != 1:             break         row = rows[0]         propertyid, propertyvalue = row[0]         if (propertyid == mapitags.PR_DEFAULT_STORE and propertyvalue == True):             break       # unpack the row and open the message store     (eid_tag, eid), (name_tag, name), (def_store_tag, def_store) = row     msgstore = session.OpenMsgStore(0,eid,None,mapi.MDB_NO_DIALOG | mapi.MAPI_BEST_ACCESS)       # get the outbox     hr, props = msgstore.GetProps((mapitags.PR_IPM_OUTBOX_ENTRYID), 0)     (tag, eid) = props[0]     outboxfolder = msgstore.OpenEntry(eid,None,mapi.MAPI_BEST_ACCESS)       # create the message and the addrlist     message = outboxfolder.CreateMessage(None,0)     # note: you can use the resolveaddress functions for this. but you may get headaches     pal = []     def makeentry(recipient, recipienttype):       return ((mapitags.PR_RECIPIENT_TYPE, recipienttype),               (mapitags.PR_SEND_RICH_INFO, False),               (mapitags.PR_DISPLAY_TYPE, 0),               (mapitags.PR_OBJECT_TYPE, 6),               (mapitags.PR_EMAIL_ADDRESS_A, recipient),               (mapitags.PR_ADDRTYPE_A, 'SMTP'),               (mapitags.PR_DISPLAY_NAME_A, recipient))         if SendTo:       pal.extend([makeentry(recipient, mapi.MAPI_TO) for recipient in SendTo.split(",")])     if SendCC:       pal.extend([makeentry(recipient, mapi.MAPI_CC) for recipient in SendCC.split(",")])     if SendBCC:       pal.extend([makeentry(recipient, mapi.MAPI_BCC) for recipient in SendBCC.split(",")])       # add the resolved recipients to the message     message.ModifyRecipients(mapi.MODRECIP_ADD,pal)     message.SetProps([(mapitags.PR_BODY_A,Message),                       (mapitags.PR_SUBJECT_A,Subject)])       # Chad Stryker's modifications...     message.SetReadFlag(CLEAR_READ_FLAG)     message.SetProps([(mapitags.PR_DELETE_AFTER_SUBMIT,1)])       # save changes and submit     outboxfolder.SaveChanges(0)     message.SubmitMessage(0)   if __name__ == '__main__':    MAPIProfile = ""    # Change this to a valid email address to test    SendTo = "an.invalid at address"    SendMessage = "testing one two three"    SendSubject = "Testing Extended MAPI!!"    SendEMAPIMail(SendSubject, SendMessage, SendTo, MAPIProfile=MAPIProfile)

_______________________________________________
Python-win32 mailing list
[EMAIL PROTECTED]
http://mail.python.org/mailman/listinfo/python-win32