Как сохранить объект MailMessage на диск в виде файла * .eml или * .msg

Question

Как мне сохранить объект MailMessage на диск?Объект MailMessage не предоставляет никаких методов Save().

У меня не возникнет проблем, если он сохранится в любом формате, * .eml или * .msg.Есть какие-нибудь идеи, как это сделать?

Answer 1

Для простоты я просто процитирую объяснение из Элемент подключения:

На самом деле вы можете настроить SmtpClient для отправки электронных писем в файловую систему, а не в сеть.Вы можете сделать это программно, используя следующий код:

SmtpClient client = new SmtpClient("mysmtphost");
client.DeliveryMethod = SmtpDeliveryMethod.SpecifiedPickupDirectory;
client.PickupDirectoryLocation = @"C:\somedirectory";
client.Send(message);

Вы также можете настроить это в своем файле конфигурации приложения, например это:

 <configuration>
     <system.net>
         <mailSettings>
             <smtp deliveryMethod="SpecifiedPickupDirectory">
                 <specifiedPickupDirectory pickupDirectoryLocation="C:\somedirectory" />
             </smtp>
         </mailSettings>
     </system.net>
 </configuration>

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

Вы должны иметь возможность использовать пустой конструктор вместо указанного в списке, так как он все равно не будет его отправлять.

Answer 2

Вот метод расширения для преобразования MailMessage в поток, содержащий данные EML.Очевидно, это немного хак, поскольку он использует файловую систему, но он работает.

public static void SaveMailMessage(this MailMessage msg, string filePath)
{
    using (var fs = new FileStream(filePath, FileMode.Create))
    {
        msg.ToEMLStream(fs);
    }
}

/// <summary>
/// Converts a MailMessage to an EML file stream.
/// </summary>
/// <param name="msg"></param>
/// <returns></returns>
public static void ToEMLStream(this MailMessage msg, Stream str)
{
    using (var client = new SmtpClient())
    {
        var id = Guid.NewGuid();

        var tempFolder = Path.Combine(Path.GetTempPath(), Assembly.GetExecutingAssembly().GetName().Name);

        tempFolder = Path.Combine(tempFolder, "MailMessageToEMLTemp");

        // create a temp folder to hold just this .eml file so that we can find it easily.
        tempFolder = Path.Combine(tempFolder, id.ToString());

        if (!Directory.Exists(tempFolder))
        {
            Directory.CreateDirectory(tempFolder);
        }

        client.UseDefaultCredentials = true;
        client.DeliveryMethod = SmtpDeliveryMethod.SpecifiedPickupDirectory;
        client.PickupDirectoryLocation = tempFolder;
        client.Send(msg);

        // tempFolder should contain 1 eml file

        var filePath = Directory.GetFiles(tempFolder).Single();

        // stream out the contents
        using (var fs = new FileStream(filePath, FileMode.Open))
        {
            fs.CopyTo(str);
        }

        if (Directory.Exists(tempFolder))
        {
            Directory.Delete(tempFolder, true);
        }
    }
}

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

Answer 3

Если вы используете Почтовый комплект.Просто напишите ниже код

string fileName = "your filename full path";
MimeKit.MimeMessage message = CreateMyMessage ();
message.WriteTo(fileName);

Answer 4

По той или иной причине клиент.send не удался (сразу после фактической отправки с использованием этого метода), поэтому я подключил хороший поток CDO и ADODB.Мне также пришлось загрузить CDO.message с помощью template.eml перед установкой значений .Message.Но это работает.

Поскольку приведенный выше вариант C, здесь есть вариант для VB.

    MyMessage.From = New Net.Mail.MailAddress(mEmailAddress)
    MyMessage.To.Add(mToAddress)
    MyMessage.Subject = mSubject
    MyMessage.Body = mBody

    Smtp.Host = "------"
    Smtp.Port = "2525"
    Smtp.Credentials = New NetworkCredential(------)

    Smtp.Send(MyMessage)        ' Actual Send

    Dim oldCDO As CDO.Message
    oldCDO = MyLoadEmlFromFile("template.eml")  ' just put from, to, subject blank. leave first line blank
    oldCDO.To = mToAddress
    oldCDO.From = mEmailAddress
    oldCDO.Subject = mSubject
    oldCDO.TextBody = mBody
    oldCDO.HTMLBody = mBody
    oldCDO.GetStream.Flush()
    oldCDO.GetStream.SaveToFile(yourPath)