java 调用dll实现exchange server发email和保存email到Drafts

java项目需要使用outlook exchange server发email和保存已发email到drafts

在网上查找了很多java call exchange server的方法和call outlook的方法，要不就很复杂，要不就要licence，非常麻烦，考虑了很久，最后决定使用exchange server的outlook client来发送email，把和exchange server的交互交给client，java只负责和outlook client交互。

而与outlook交互最简单的方法就是用VB来调用，又直观又方便，所以打算先用VB写一个和outlook交互的DLL，然后再使用java call这个DLL实现email的sent和save to drafts。

首先，VB调用outlook。

VB CODE（网上很多）：

*************************************************************************************

Dim MsOutlook, NS, draftFldrs
Function InitializeOutlook()
  InitializeOutlook = True
  Err.Clear
  On Error Resume Next
  Set MsOutlook = CreateObject("Outlook.Application")
  If Err.Number <> 0 Then
    Err.Clear
    Set MsOutlook = CreateObject("Outlook.Application.11")
  End If
  Set NS = MsOutlook.GetNamespace("MAPI")
 
  Set draftFldrs = NS.Folders("FY2010").Folders("Drafts")

  If Err.Number <> 0 Then
    InitializeOutlook = False
 
  End If

End Function

Sub AddItemToDraft(mSubject, mHTMLBody, mTo, mToCC, mToBCC)
 
  Set MI = MsOutlook.CreateItem(olMailItem)
 
  MI.Subject = mSubject
 
  MI.HTMLBody = mHTMLBody 
  MI.To = mTo
  MI.CC = mToCC
  MI.BCC = mToBCC 
  MI.Save  
    Set MI = Nothing
   
End Sub
Private Sub Class_Initialize()
   
   InitializeOutlook

End Sub
Public Sub SendEmail(mSubject, mHTMLBody, mTo, mToCC, mToBCC)
 
  Set MI = MsOutlook.CreateItem(olMailItem)
 
 
 
  MI.Subject = mSubject

 
  MI.HTMLBody = mHTMLBody
     
 
  MI.To = mTo
  MI.CC = mToCC
  MI.BCC = mToBCC

   
  MI.Send
   Set MI = Nothing
End Sub
Public Sub CloseFunction()
Call Class_Terminate
End Sub
Public Sub callsendAndsave(mSubject, mHTMLBody, mTo, mToCC, mToBCC)
Call SendEmail(mSubject, mHTMLBody, mTo, mToCC, mToBCC)
Call AddItemToDraft(mSubject, mHTMLBody, mTo, mToCC, mToBCC)
End Sub

Private Sub Class_Terminate()
    Set MsOutlook = Nothing
  
End Sub

*******************************************************************************

用VB build 一个DLL

再把dll拷贝到system32里

再用regsvr32进行注册

 

接下来是主要的java call dll了

先准备的dll和jar

-jacob-1.15-M3-x86.dll
-XXX.dll（VB生成的dll）
-jacob.jar

 

把jacob-1.15-M3-x86.dll拷贝到system32

再把vb生成的dll和jacob.jar导入java工程里

然后

写一个类

exp（我的dll名称是prjSendMail.dll,动态库里的类的名称是Class1，要调用的方法名是callsendAndsave）：

*************************************************************************************

import com.jacob.activeX.ActiveXComponent;
import com.jacob.com.Dispatch;

public class EmailSenderImpl

{

   ActiveXComponent pp;
   Dispatch dpA ;

    public void init()

  {    
        pp= new ActiveXComponent("prjSendMail.Class1");

        dpA = (Dispatch) pp.getObject();

  } 
   public void sendEmail（）

  {       
        Dispatch.call(dpA, "callsendAndsave", subJect, bodyHtml, to, cc, bcc);

   }

}