Отправка электронной почты из Lotus Notes с вложением и текстом HTML - PullRequest
Новая
       10

Отправка электронной почты из Lotus Notes с вложением и текстом HTML

0 голосов
/ 29 октября 2018

Правильно. Я пытаюсь отправить форму электронной почты, хотя в лотосе есть вложение, и тело должно быть в HTML.

У меня есть некоторый код, который из всего, что я прочитал, должен позволять мне делать это, но это не так. Без тела HTML вложение будет отправлено, когда я использую тело HTML, электронное письмо все еще отправляется, но вложение исчезает 

   try
            {
                Session.Initialize("1234567890");
                Session.ConvertMime = false;
                MailServer = Session.GetEnvironmentString("MailServer", true);
                MailFile = Session.GetEnvironmentString("Mailfile", true);
                MailDb = Session.GetDatabase(MailServer.ToString(), MailFile.ToString(), false);
                MailDoc = MailDb.CreateDocument();
                MailDoc.ReplaceItemValue("Form", "Memo");
                MailDoc.ReplaceItemValue("SendTo", "XXXXXX");
                MailDoc.ReplaceItemValue("subject", "Test test");
                MailDoc.AppendItemValue("Principal", "HIHIHi");
                object obAttachment;
                Mime = MailDoc.CreateMIMEEntity("Body");
                HtmlBody = Session.CreateStream();
                HtmlBody.Open("C:\\Users\\Documents\\310143-001_1125_20181016.pdf", "");
                Mime.SetContentFromBytes(HtmlBody, "Application/pdf", Domino.MIME_ENCODING.ENC_IDENTITY_BINARY);
                HtmlBody.Close();
                HtmlBody.Truncate();
        HtmlBody = Session.CreateStream();
                HtmlBody.WriteText(mailBoby, EOL_TYPE.EOL_CR);
                Mime.SetContentFromText(HtmlBody, "text/html;charset=UTF-8", Domino.MIME_ENCODING.ENC_IDENTITY_BINARY);
                Object obj = MailDoc.GetItemValue("SendTo");
                MailDoc.SaveMessageOnSend = true;
                MailDoc.Send(false, ref obj);
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.ToString());
            }
            finally
            {
                rt = null;
                Session = null;
                MailDoc = null;
                MailDb = null;

            }

Ответы [ 2 ]

0 голосов
/ 29 октября 2018

Вам нужно будет создать MIME-сообщение из нескольких частей как для HTML, так и для файловых вложений. 

Session.Initialize("1234567890");
Session.ConvertMime = false;
MailServer = Session.GetEnvironmentString("MailServer", true);
MailFile = Session.GetEnvironmentString("Mailfile", true);
MailDb = Session.GetDatabase(MailServer.ToString(), MailFile.ToString(), false);
MailDoc = MailDb.CreateDocument();
MailDoc.ReplaceItemValue("Form", "Memo");
MailDoc.ReplaceItemValue("SendTo", "XXXXXX");
MailDoc.ReplaceItemValue("subject", "Test test");
MailDoc.AppendItemValue("Principal", "HIHIHi");
object obAttachment;
AttachmentPath = "C:\\Users\\Documents\\";
AttachmentFile = "310143-001_1125_20181016.pdf";
mailBody = "<html><head></head><body>Hello There.</body></html>";

Mime = MailDoc.CreateMIMEEntity("Body");

MimeHeader = Mime.CreateHeader("MIME-Version");
MimeHeader.SetHeaderVal("1.0");

MimeHeader= Mime.CreateHeader("Content-Type");
MimeHeader.SetHeaderValAndParams( "multipart/alternative;boundary=\"=NextPart_=\"");

MimeChild = Mime.CreateChildEntity();
HtmlBody = Session.CreateStream();

HtmlBody.WriteText(mailBody, Stream.EOL_CR);
MimeChild.SetContentFromText(HtmlBody, "text/html;charset=\"iso-8859-1\"", Domino.MIME_ENCODING.ENC_NONE);

MimeChild = Mime.CreateChildEntity();
HtmlBody = Session.CreateStream();
HtmlBody.Open(AttachmentPath + AttachmentFile, "");   

MimeHeader = MimeChild.CreateHeader("Content-Disposition");
MimeHeader.SetHeaderVal("attachment; filename=\""+AttachmentFile+"\"");

MimeChild.SetContentFromBytes(HtmlBody, "application/octet-stream; name=\""+AttachmentFile+"\"", Domino.MIME_ENCODING.ENC_IDENTITY_BINARY); 

MailDoc.CloseMIMEEntities(true);

Session.ConvertMime = true;

Object obj = MailDoc.GetItemValue("SendTo");
MailDoc.SaveMessageOnSend = true;
MailDoc.Send(false, ref obj);

Это должно работать для большинства файлов любого типа, но вы можете указать application/pdf для Content-Disposition для файлов PDF.

0 голосов
/ 29 октября 2018

Вы дважды вызываете методы SetContentFromBytes и SetContentFromText для вашего объекта Mime. На том же объекте Mime. Второй вызов перезаписывает первый.

Вам необходимо создать дерево MIME-сущностей, используя метод CreateChildEntity , указав тип контента для родительской сущности как «multipart» и указав одну из дочерних сущностей для вашего текста и одну из сущностей. из вашего вложения.

...