將vba轉換爲c＃ - 請幫忙！ Lotus Notes創建新的電子郵件

Question

我有工作的VBA代碼，但我無法將其轉換爲C＃。 我試過了，但是我的C＃技能讓我失望。

下面的代碼創建新消息並在Lotus Notes中打開新電子郵件（如果Lotus應用程序處於活動狀態，則使用活動會話）或在Notes未運行時打開新的Notes實例。

您能否協助？

Sub SendMail() 
Dim Notes As Object 
Dim db As Object 
Dim WorkSpace As Object 
Dim UIdoc As Object 
Dim userName As String 
Dim MailDbName As String 
Set Notes = CreateObject("Notes.NotesSession") 
userName = Notes.userName 
MailDbName = Left$(userName, 1) & Right$(userName, (Len(userName) - InStr(1, userName, " "))) & ".nsf" 
Set db = Notes.GetDataBase(vbNullString, MailDbName) 
Set WorkSpace = CreateObject("Notes.NotesUIWorkspace") 
Call WorkSpace.ComposeDocument(, , "Memo") 
Set UIdoc = WorkSpace.currentdocument 
Recipient = "test@email.com" 
CCD = "test2@email.com" 
Call UIdoc.FieldSetText("EnterSendTo", Recipient) 
Call UIdoc.FieldSetText("EnterCopyTo", CCD) 
Subject1 = "Subject") 
Call UIdoc.FieldSetText("Subject", Subject1) 
Call UIdoc.GotoField("Body") 
Call UIdoc.INSERTTEXT("This text goes to body") 
Application.CutCopyMode = False 
Set UIdoc = Nothing 
Set WorkSpace = Nothing 
Set db = Nothing 
Set Notes = Nothing 
END SUB 

謝謝！

謝謝competent_tech的解決方案：

public void SendMail() 
{ 
    dynamic Notes = null; 
    object db = null; 
    dynamic WorkSpace = null; 
    dynamic UIdoc = null; 
    string userName = null; 
    string MailDbName = null; 
    Notes = Activator.CreateInstance(Type.GetTypeFromProgID("Notes.NotesSession")); 
    userName = Notes.userName; 
    MailDbName = userName.Substring(0, 1) + userName.Substring(userName.Length - ((userName.Length - (userName.IndexOf(" ", 0) + 1)))) + ".nsf"; 
    db = Notes.GetDataBase(null, MailDbName); 
    WorkSpace = Activator.CreateInstance(Type.GetTypeFromProgID("Notes.NotesUIWorkspace")); 
    WorkSpace.ComposeDocument("", "", "Memo"); 
    UIdoc = WorkSpace.currentdocument; 
    Recipient = "test@email.com"; 
    CCD = "test2@email.com"; 
    UIdoc.FieldSetText("EnterSendTo", Recipient); 
    UIdoc.FieldSetText("EnterCopyTo", CCD); 
    Subject1 = "Subject"; 
    UIdoc.FieldSetText("Subject", Subject1); 
    UIdoc.GotoField("Body"); 
    UIdoc.INSERTTEXT("This text goes to body"); 
    UIdoc = null; 
    WorkSpace = null; 
    db = null; 
    Notes = null; 
} 

Answer 1

這將是大致爲：

public void SendMail() 
    { 
     dynamic Notes = null; 
     object db = null; 
     dynamic WorkSpace = null; 
     dynamic UIdoc = null; 
     string userName = null; 
     string MailDbName = null; 
     Notes = Activator.CreateInstance(Type.GetTypeFromProgID("Notes.NotesSession")); 
     userName = Notes.userName; 
     MailDbName = userName.Substring(0, 1) + userName.Substring(userName.Length - ((userName.Length - (userName.IndexOf(" ", 0) + 1)))) + ".nsf"; 
     db = Notes.GetDataBase(null, MailDbName); 
     WorkSpace = Activator.CreateInstance(Type.GetTypeFromProgID("Notes.NotesUIWorkspace")); 
     WorkSpace.ComposeDocument("", "", "Memo"); 
     UIdoc = WorkSpace.currentdocument; 
     Recipient = "test@email.com"; 
     CCD = "test2@email.com"; 
     UIdoc.FieldSetText("EnterSendTo", Recipient); 
     UIdoc.FieldSetText("EnterCopyTo", CCD); 
     Subject1 = "Subject"; 
     UIdoc.FieldSetText("Subject", Subject1); 
     UIdoc.GotoField("Body"); 
     UIdoc.INSERTTEXT("This text goes to body"); 
     UIdoc = null; 
     WorkSpace = null; 
     db = null; 
     Notes = null; 
    } 

這將是更好，如果你有COM對象，你可以添加作爲參考，但有可能是版本問題。還要注意，這段代碼假定後期綁定。