Como salvar MailMessage objeto para o disco como * .eml ou ficheiro.MSG *

Question

Como faço para salvar MailMessage objeto para o disco? O objeto MailMessage não expõe quaisquer métodos save ().

Eu não tenho um problema se ele salva em qualquer formato, * .eml ou .msg *. Alguma idéia de como fazer isso?

Answer 1

Para simplificar, eu vou citar uma explicação de um item de Ligação :

Você pode realmente configurar o SmtpClient para enviar e-mails para o arquivo sistema em vez da rede. Você pode fazer isso programaticamente usando o seguinte código:

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

Você também pode configurá-lo em sua arquivo de configuração do aplicativo como isto:

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

Depois de enviar o e-mail, você deve ver os arquivos de e-mail são adicionados à diretório especificado. Você pode, então, tem um envio processo separado fora do enviar e-mail mensagens em modo de lote.

Você deve ser capaz de usar o construtor vazio em vez da lista, uma vez que não será enviá-lo de qualquer maneira.

Answer 2

Aqui está um método de extensão para converter um MailMessage a um fluxo que contém os dados de EML. Sua obviamente um pouco de um truque, uma vez que usa o sistema de arquivos, mas funciona.

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);
        }
    }
}

Você pode então tomar as Thats fluxo retornado e fazer o que quiser com ele, incluindo a poupança para outro local no disco ou armazenar em um campo de banco de dados, ou mesmo e-mail como um anexo.

Answer 3

Se você estiver usando Mailkit . Basta escrever o código abaixo

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

Answer 4

Por uma razão ou outra, o client.send falhou (logo após um envio real usando esse método) para que eu ligado em boa 'ole CDO e ADODB fluxo. Eu também tive que carregar CDO.Message com um template.eml antes de definir os valores .message. Mas funciona.

Uma vez que o descrito acima é C aqui é um para 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)