0 
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Xml.Linq;
using Outlook = Microsoft.Office.Interop.Outlook;
using Office = Microsoft.Office.Core;
using RDotNet;
using RDotNet.NativeLibrary;

namespace OutlookAddinSendMailToWebService
{
    public partial class ThisAddIn
{
    #region Variables
    private Outlook.Explorer activeExplorer = null;
    #endregion

    private void ThisAddIn_Startup(object sender, System.EventArgs e)
    {
        activeExplorer = Application.ActiveExplorer();
    }

    private void ThisAddIn_Shutdown(object sender, System.EventArgs e)
    {
    }

    //Send Message to Webservice
    public void SendMailToWebservice()
    {
        string mailTo = String.Empty;
        string mailCC = String.Empty;
        string mailSubject = String.Empty;
        string mailBody = String.Empty;
        string mail = String.Empty;

        REngine.SetEnvironmentVariables();
        // There are several options to initialize the engine, but by default the following suffice:
        REngine engine = REngine.GetInstance();

        if (activeExplorer.Selection.Count > 0)
        {
            foreach (Object selectedItem in activeExplorer.Selection)
            {
                if (selectedItem is Outlook.MailItem)
                {
                    Outlook.MailItem mailItem = (selectedItem as Outlook.MailItem);
                    if (mailItem != null)
                    {
                        mailCC = "CC: " + mailItem.CC;
                        mailTo = "To: " + mailItem.To;
                        mailSubject = "Subject: " + mailItem.Subject;
                        mailBody = "Body: " + mailItem.Body;
                        mail = mailTo + '\n' + mailCC + '\n' + mailSubject + '\n' + mailBody;
                        //System.Windows.Forms.MessageBox.Show(mail);

                        engine.Evaluate("load('~/key.RData')");
                        var key = engine.Evaluate("key(mail)").AsCharacter()[0];

                        engine.Evaluate("load('~/add.RData')");
                        var add = engine.Evaluate("trim(key)").AsCharacter()[0];

                        engine.Evaluate("load('~/match.RData')");
                        var mat = engine.Evaluate("match(add,key)").AsCharacter()[0];

                        System.Windows.Forms.MessageBox.Show(mat);
                    }
                }
            }
        }
    }

我在以下代码行中遇到错误。当我尝试调用关键函数时，它给出错误作为参数邮件未找到。

engine.Evaluate("load('~/key.RData')");
var key=engine.Evaluate("key(mail)").AsCharacter()[0];
engine.Evaluate("load('~/add.RData')");
var add = engine.Evaluate("trim(key)").AsCharacter()[0];
engine.Evaluate("load('~/match.RData')");
var mat = engine.Evaluate("match(add,key)").AsCharacter()[0];
4

1 回答 1

1

R 确实不知道您的变量“mail”，它是一个 .NET 变量。

CharacterVector mailVec = engine.CreateCharacterVector(new[] { mail });
engine.SetSymbol("mail", mailVec);

请参阅文档中使用 R.NET的教程基本类型

于 2015-09-30T21:22:33.537 回答