Enviando Email com Msg em anexo numa porta dinamica

Imagine o seguinte cenário: No tratamento de erro é necessário enviar um email com a descrição do erro no corpo do email, e a msg orignal em anexo, numa porta dinamica.

Eis aqui a solução:

msgEmail.Anexo(MIME.FileName) = "msgErro.xml"; //O nome do arquivo em anexo

msgEmail(SMTP.From) = "biztalk@microssoft.com.br";

msgEmail(SMTP.Subject) = "Teste email em anexo"; 

msgEmail(SMTP.MessagePartsAttachments) = 2; //

msgEmail(SMTP.EmailBodyText) = "Ocorreu um erro na orchestrastion"; // Corpo do email

msgEmail(SMTP.SMTPHost) = "smtp.biztalkbrasil.com.br";

msgEmail(SMTP.EmailBodyTextCharset) = "UTF-8";

msgEmail(SMTP.SMTPAuthenticate) = 0;

portSMTP_EnviaErro(Microsoft.XLANGs.BaseTypes.Address) = "mailto:contato@biztalkbrasil.com.br; 

O segredo está na propriedade SMTP.MessagePartsAttachments pois se não seta-la, a mensagem msgEmail não vai em anexo.

Entao é isso. Até mais.