在SSIS脚本任务中将vb.net转换为C#

时间:2011-04-04 14:21:13

标签: c# vb.net ssis task

我想将以下vb.net脚本转换为SSIS脚本任务中的C#.net脚本。 我尝试使用Developer Fusion进行转换,但是我遇到了很多错误。可以帮助我。我的Vb.net脚本:

    Public Sub GetAttachments()
        Dim myolApp As Outlook.Application
        Dim ns As Outlook.NameSpace
        Dim Inbox As MAPIFolder
        Dim Item As Object
        Dim Atmt As Attachment
        Dim FileName As String
        Dim subject As String
        Dim AttachmentName As String
        Dim Body As String
        Dim SenderName As String
        Dim SenderEmailAddress As String
        Dim CreationTime As String

        Dim i As Integer
        Dim j As Integer
        On Error GoTo GetAttachments_err
        myolApp = CreateObject("Outlook.Application")
        ns = myolApp.GetNamespace("MAPI")
        ns.Logon("", "", False, True)
        Inbox = ns.Folders("Mailbox - name").Folders("Inbox")
        i = 0
        j = 1

       'Scan for attachments
        For Each Item In Inbox.Items() 
            System.Windows.Forms.Application.DoEvents()
            If (Item.UnRead) Then

                MessageBox.Show(j, "EMail Number")
                subject = DirectCast(Item, Microsoft.Office.Interop.Outlook.MailItem).Subject
                MessageBox.Show(subject, "E-Mail Subject")
                AttachmentName = DirectCast(Item, Microsoft.Office.Interop.Outlook.MailItem).Attachments(1).FileName
                Body = DirectCast(Item, Microsoft.Office.Interop.Outlook.MailItem).Body
                SenderEmailAddress = DirectCast(Item, Microsoft.Office.Interop.Outlook.MailItem).SenderEmailAddress
                SenderName = DirectCast(Item, Microsoft.Office.Interop.Outlook.MailItem).SenderName
                CreationTime = DirectCast(Item, Microsoft.Office.Interop.Outlook.MailItem).CreationTime.ToString()
                MessageBox.Show(AttachmentName, "Attachment Name")
                MessageBox.Show(Body, "Body")
                MessageBox.Show(SenderEmailAddress, "From Address")
                MessageBox.Show(SenderName, "From")
                MessageBox.Show(CreationTime, "Created Time")
                j = j + 1
                If (SenderEmailAddress.ToLower = "lch@gmail.com".ToLower) Then
                    MessageBox.Show("reading from")
                    For Each Atmt In Item.Attachments
                        FileName = "C:\Email Attachments\" & Atmt.FileName
                        Atmt.SaveAsFile(FileName)
                        i = i + 1
                        Item.UnRead = True
                    Next Atmt
                End If
            End If
        Next Item

        'Display summary
        If i > 0 Then
            MsgBox("I found " & i & " attached files." _
               & vbCrLf & "I have saved them into the C:\Email Attachments folder." _
               & vbCrLf & vbCrLf & "Have a nice day.", vbInformation, "Finished!")
        Else
            MsgBox("I didn't find any attached files in your mail.", vbInformation, _
            "Finished!")
        End If

        'Clear Memory
GetAttachments_exit:
        Atmt = Nothing
        Item = Nothing
        ns = Nothing
        Exit Sub

        'Error Handler
GetAttachments_err:
        MsgBox("An unexpected error has occurred." _
           & vbCrLf & "Please note and report the following information." _
           & vbCrLf & "Script Name: GetAttachments" _
           & vbCrLf & "Error Number: " & Err.Number _
           & vbCrLf & "Error Description: " & Err.Description _
           & vbCrLf & "Error Line: " & Err.Source _
           , vbCritical, "Error!")
        Resume GetAttachments_exit
        'End If

    End Sub

1 个答案:

答案 0 :(得分:2)

添加对Microsoft.VisualBasic的引用

添加使用语句:

using Microsoft.Office.Interop.Outlook;
using Microsoft.VisualBasic;

 public void GetAttachments()
{
Microsoft.Office.Interop.Outlook.Application myolApp = default(Microsoft.Office.Interop.Outlook.Application);
Microsoft.Office.Interop.Outlook.NameSpace ns = default(NameSpace);
MAPIFolder Inbox = default(MAPIFolder);
object Item = null;
Attachment Atmt = default(Attachment);
string FileName = null;
string subject = null;
string AttachmentName = null;
string Body = null;
string SenderName = null;
string SenderEmailAddress = null;
string CreationTime = null;

int i = 0;
int j = 0;
try
{

    myolApp = (Microsoft.Office.Interop.Outlook.Application)Interaction.CreateObject("Outlook.Application","");
    ns = myolApp.GetNamespace("MAPI");
    ns.Logon("", "", false, true);
    Inbox = ns.Folders["Mailbox - name"].Folders["Inbox"];
    i = 0;
    j = 1;

    //Scan for attachments
    foreach (object Item_loopVariable in Inbox.Items) {
        Item = Item_loopVariable;
        System.Windows.Forms.Application.DoEvents();

        if ((Item as MailItem) != null ? ((MailItem)Item).UnRead : false) {
            MessageBox.Show(j.ToString(), "EMail Number");
            subject = ((Microsoft.Office.Interop.Outlook.MailItem)Item).Subject;
            MessageBox.Show(subject, "E-Mail Subject");
            AttachmentName = ((Microsoft.Office.Interop.Outlook.MailItem)Item).Attachments[1].FileName;
            Body = ((Microsoft.Office.Interop.Outlook.MailItem)Item).Body;
            SenderEmailAddress = ((Microsoft.Office.Interop.Outlook.MailItem)Item).SenderEmailAddress;
            SenderName = ((Microsoft.Office.Interop.Outlook.MailItem)Item).SenderName;
            CreationTime = ((Microsoft.Office.Interop.Outlook.MailItem)Item).CreationTime.ToString();
            MessageBox.Show(AttachmentName, "Attachment Name");
            MessageBox.Show(Body, "Body");
            MessageBox.Show(SenderEmailAddress, "From Address");
            MessageBox.Show(SenderName, "From");
            MessageBox.Show(CreationTime, "Created Time");
            j = j + 1;
            if ((SenderEmailAddress.ToLower() == "lch@gmail.com".ToLower())) {
                MessageBox.Show("reading from");
                foreach (Attachment att in ((MailItem)Item).Attachments ) {
                    FileName = "C:\\Email Attachments\\" + att.FileName;
                    att.SaveAsFile(FileName);
                    i = i + 1;
                    ((MailItem)Item).UnRead = true;
                }
            }
        }
    }

    //Display summary
    if (i > 0) {
        MessageBox.Show("I found " + i + " attached files." + "\r\n" + "I have saved them into the C:\\Email Attachments folder." + "\r\n" + "\r\n" + "Have a nice day.", "Finished!");
    } else {
        MessageBox.Show("I didn't find any attached files in your mail.", "Finished!");
    }

        //Clear Memory
        Atmt = null;
        Item = null;
        ns = null;

}
catch (System.Exception ex)
{
        MessageBox.Show("An unexpected error has occurred." 
       + "\r\n" + "Please note and report the following information."
       + "\r\n" + "Script Name: GetAttachments"
       + "\r\n" + "Error Description: " + ex.Message
       + "\r\n" + "Error StackTrace: " + ex.StackTrace
       , "Error!");
        Atmt = null;
        Item = null;
        ns = null;
}
}

尝试一下让我知道,我已经更改了一些异常细节,所以如果你想改变别的东西,请告诉我。另外,我删除了goto语句并将其替换为try catch。