Mail Archive Helper |
// 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)
'// 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 )
'// 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