Click or drag to resize

Mail Archive Helper

Save a mail as task in CRM 5:

 

       // create and initialize the helper

       Dim oHelper        oHelper = new MailArchiveHelper        oHelper.Initialize "MYPLUGIN", "msg", "MyPluginHelp.chm"

       Dim strSubject, strBody        Dim sentDate 

       '// pull all needed information out of the mail object        strSubject = myMail.Subject        strBody = myMail.Body        sentDate = myMail.SentDate

       '// make the appropriate call to the archivehelper        oHelper.ArchiveTask( "example@superoffice.com", "Example User", strSubject & vbCr & strBody, sentDate)

  

Save a mail as document in SuperOffice    

       '// create and initialize the helper        Dim oHelper        oHelper = new MailArchiveHelper        oHelper.Initialize "MYPLUGIN", "msg", "MyPluginHelp.chm"

       '// pull all needed information out of the mail object        Dim strPath, strSubject        strSubject = myMail.Subject

       '// save the mail to a file        strPath = "C:\mymail.msg"        myMail.SaveAs strPath 

       '// make the appropriate call to the archivehelper        oHelper.ArchiveDocument( "example@superoffice.com", "Example User", strSubject, sentDate, 1, 0, 0, strPath )

 

Retrieve documents from SuperOffice

       '// create and initialize the helper        Dim oHelper        oHelper = new MailArchiveHelper        oHelper.Initialize "MYPLUGIN", "msg", "MyPluginHelp.chm"

       '// pull all needed information out of the mail object        Dim pathArray As VariantpathArray = oHelper.ShowFindDocumentDlg(True, False) 

if( IsEmpty( pathArray ) Then             Exit Sub        Else             Dim idx As Integer             For idx = 0 To Ubound(pathArray)                     MsgBox "Document path: " & pathArray(i)        ‘ A msgbox for each path             Next idx        End If

Up: Writing Plugins   Prev: Document plugins   Next: Mail Archive Plugin          Edit