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

Ответ 1

Для простоты я просто приведу объяснение из Connect item:

Вы можете настроить 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>

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

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

Ответ 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);
        }
    }
}

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

Ответ 3

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

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

Ответ 4

По той или иной причине клиент.send не удалось (сразу после фактической отправки с использованием этого метода), поэтому я подключил хороший поток OOL CDO и ADODB. Мне также пришлось загрузить CDO.message с шаблоном.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)