Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / IBM DB2, WebSphere, IMS, U2, etc Новый топик    Ответить
 Сохранение вложенных файлов из писем IBM Notes на C#  [new]
msleg
Member

Откуда: Москва
Сообщений: 532
Написал функцию на C# для загрузки файлов из писем IBM Notes. Происходит фильтрация нужных писем по двум критериям (From и DeliveredDate). Чтобы не забыть выложу тут) может еще кому-нибудь пригодиться

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using Domino;

namespace IBMnotes
{
    class Program
    {
        static void Main(string[] args)
        {
            GetAttachments(@"D:\temp\");
        }

         static void GetAttachments(String fileSavePath)
        {
            String NoteServer = "Адрес сервера";
            string NateMailFile = "расположение MailFile на сервере .nsf";

            NotesDateTime _datetime = null;

            NotesSession session = new NotesSession();
            session.Initialize("");

            //Get connection to database.
            Domino.NotesDatabase NotesDb = session.GetDatabase(NoteServer, NateMailFile, false);
            //NotesDb.Open();

            Console.WriteLine(NotesDb.Title);
            Console.WriteLine("");

            //поиск писем по 2 критериям (From и DeliveredDate)
            NotesDocumentCollection NotesDocuments = NotesDb.Search("@Contains(From;'MicroStrategy Distribution Services') & DeliveredDate=[22.08.2017]", _datetime, 0);
         

            //Console.WriteLine(NotesDocuments.Count);

            if (NotesDocuments.Count > 0)
            {
                NotesDocument document = NotesDocuments.GetFirstDocument();
                while (document != null)
                {
                    // Check if any attachments
                    if (document.HasEmbedded)
                    {
                        object[] items = (object[])document.Items;
                        foreach (NotesItem item in items)
                        {
                            if (item.Name.Equals("$FILE"))
                            {
                                object[] values = (object[])item.Values;
                                document.GetAttachment(values[0].ToString()).ExtractFile(fileSavePath + values[0].ToString());
                            }
                        }
                    }

                    //Console.WriteLine(document.GetItemValue("DeliveredDate")[0]);
                    //Console.WriteLine(document.GetItemValue("body")[0]);

                    document = NotesDocuments.GetNextDocument(document);
                }
            }
        }
    }

    
}
23 авг 17, 13:57    [20744063]     Ответить | Цитировать Сообщить модератору
 Re: Сохранение вложенных файлов из писем IBM Notes на C#  [new]
Garrick
Member

Откуда: Москва
Сообщений: 2744
msleg, мне кажется как-то так Examples: EmbeddedObjects property (NotesRichTextItem - LotusScript) было бы правильнее.
Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
      Call o.ExtractFile( "c:\samples\" & o.Source )
      Call o.Remove
      Call doc.Save( False, True )
    End If
  End Forall
End If

Только
Call o.Remove
Call doc.Save( False, True )

уберите!
23 авг 17, 16:39    [20744739]     Ответить | Цитировать Сообщить модератору
Все форумы / IBM DB2, WebSphere, IMS, U2, etc Ответить